verbinden - verketten
Moderator: Moderatoren
verbinden - verketten
Hallo,
ich habe ein Problem mit meiner Tabelle.
In der Tabelle sollen ca. 250 Zellen, die in einer Zeile sind, verbunden werden. Das habe ich mit verbinden probiert, klappt wunderbar.
Leider hat die Tabelle 3500 Zeilen, das ist auf diesem Weg zu aufwendig!!
Habe ein Makro aufgezeichnet das diese Schritte ausführt aber weis nicht wie ich das Makro in jeder Zeile ausführen kann?
Habe gerade den Befehl Bereichsnamen gefunden, kann man damit etwas erreichen? Hatte probiert den mit Verketten zu benutzen aber ohne Erfolg.
Gibt es eine Lösung ohne ein komplizierese Programm zu schreiben?
Bin für jede Hilfe dankbar
ich habe ein Problem mit meiner Tabelle.
In der Tabelle sollen ca. 250 Zellen, die in einer Zeile sind, verbunden werden. Das habe ich mit verbinden probiert, klappt wunderbar.
Leider hat die Tabelle 3500 Zeilen, das ist auf diesem Weg zu aufwendig!!
Habe ein Makro aufgezeichnet das diese Schritte ausführt aber weis nicht wie ich das Makro in jeder Zeile ausführen kann?
Habe gerade den Befehl Bereichsnamen gefunden, kann man damit etwas erreichen? Hatte probiert den mit Verketten zu benutzen aber ohne Erfolg.
Gibt es eine Lösung ohne ein komplizierese Programm zu schreiben?
Bin für jede Hilfe dankbar
Re: verbinden - verketten
Hallo,
komme immer noch nicht weiter. Habe bisher folgendes getan, habe ein Makro ausgezeichnet welches mir die 250 Zellen in einer Zeile verbindet.
Habe dieses Makro geändert um eine "FOR To" Schleife zu bekommen.
Bekomme aber einen Laufzeitfehler!
REM ***** BASIC *****
Sub Verbinden
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
Dim i As Long
For i = 1800 to 1 Step -1
rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$U$100:$IN$100"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "MoveContents"
args2(0).Value = true
dispatcher.executeDispatch(document, ".uno:ToggleMergeCells", "", 0, args2())
Next
End Sub
Fehlermeldung aav-vertrieb.bplaced.net//Privat/Fehler.jpg
Kann mir jemand weiterhelfen??
komme immer noch nicht weiter. Habe bisher folgendes getan, habe ein Makro ausgezeichnet welches mir die 250 Zellen in einer Zeile verbindet.
Habe dieses Makro geändert um eine "FOR To" Schleife zu bekommen.
Bekomme aber einen Laufzeitfehler!
REM ***** BASIC *****
Sub Verbinden
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
Dim i As Long
For i = 1800 to 1 Step -1
rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$U$100:$IN$100"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "MoveContents"
args2(0).Value = true
dispatcher.executeDispatch(document, ".uno:ToggleMergeCells", "", 0, args2())
Next
End Sub
Fehlermeldung aav-vertrieb.bplaced.net//Privat/Fehler.jpg
Kann mir jemand weiterhelfen??
Zuletzt geändert von pwistuba am Do, 06.12.2012 17:56, insgesamt 1-mal geändert.
Re: verbinden - verketten
Möglicherweise. Aber wir wollen Code als solchen erkennen (also bitte markieren) und die Fehlermeldung nicht erraten müssen. (Warum muss man bloß auf solche Selbstverständlichkeiten immer wieder hinweisen. ) Da du angemeldet bist, kannst du deinen Beitrag auch nachträglich ändern. Jürgen
Nachtrag: WiM hat recht: Alle Fragen zu Basic gehören ins Unterforum Basic und Java.
@Moderator: Wenn das Problem nicht mit einer Calc-Funktion gelöst werden kann, dann bitte verschieben!
Nachtrag: WiM hat recht: Alle Fragen zu Basic gehören ins Unterforum Basic und Java.
@Moderator: Wenn das Problem nicht mit einer Calc-Funktion gelöst werden kann, dann bitte verschieben!
Zuletzt geändert von juetho am Do, 06.12.2012 18:27, insgesamt 1-mal geändert.
Situation: LibO 3.6 auf Win 7 Home Premium (64-bit) mit MySQL (localhost) über JDBC
Re: verbinden - verketten
Hallo
Warum nimmst du nicht einfach die Funktion aus dem verlinkten Beitrag, rufst die in der ersten Zelle auf und verbindest die dann gleich mit den Nachbarzellen.
Danach musst du nur noch diese erste Zelle mit 'strg+c' kopieren und in den markierten Bereich unter der Zelle mit 'strg+v' einfügen.
Karolus
Warum nimmst du nicht einfach die Funktion aus dem verlinkten Beitrag, rufst die in der ersten Zelle auf und verbindest die dann gleich mit den Nachbarzellen.
Danach musst du nur noch diese erste Zelle mit 'strg+c' kopieren und in den markierten Bereich unter der Zelle mit 'strg+v' einfügen.
Karolus
LO7.4.7.2 debian 12(bookworm) auf Raspberry4b 8GB (64bit)
LO7.6.2.1 flatpak debian 12(bookworm) auf Raspberry4b 8GB (64bit)
LO7.6.2.1 flatpak debian 12(bookworm) auf Raspberry4b 8GB (64bit)
Re: verbinden - verketten
Hallo,
danke für Eure Antworten. Wenn ich das mit der Multikette richtig verstehe dann müsste ich alle 250 Zellen eingeben?
Das andere mit dem Kopieren habe ich nicht verstanden.
Ich bin folgender maßen an das Problem gegangen, habe von Hand die Zellen verbunden und dann probiert mit kopieren runter zu ziehen, geht aber nicht.
Jetzt suche ich nach einer Möglichkeit das ausgezeichnete Makro in eine Routine einzubinden.
Man darf nicht den Umfang vergessen. 250 Zeilen horizontal und 1380 Zeilen sind eine ganze Menge, es wären noch mehr wenn ich die Tabellen nicht schon geteilt hätte!Hallo,
danke für Eure Antworten. Wenn ich das mit der Multikette richtig verstehe dann müsste ich alle 250 Zellen eingeben?
Das andere mit dem Kopieren habe ich nicht verstanden.
Ich bin folgender massen an das Problem gegangen, habe von Hand die Zellen verbunden und dann probiert mit kopieren ruter zu ziehen, geht aber nicht.
Jetzt suche ich nach einer Möglichkeit das ausgezeichnete Makro in eine Roitine einzubinden.
Man darf nicht den Umfang vergessen. 250 Zeilen horizontal und 1380 ZEilen sind eine ganze Menge, es wären noch mekr wenn ich die Tabellen nicht schon geteilt hätte!
danke für Eure Antworten. Wenn ich das mit der Multikette richtig verstehe dann müsste ich alle 250 Zellen eingeben?
Das andere mit dem Kopieren habe ich nicht verstanden.
Ich bin folgender maßen an das Problem gegangen, habe von Hand die Zellen verbunden und dann probiert mit kopieren runter zu ziehen, geht aber nicht.
Jetzt suche ich nach einer Möglichkeit das ausgezeichnete Makro in eine Routine einzubinden.
Man darf nicht den Umfang vergessen. 250 Zeilen horizontal und 1380 Zeilen sind eine ganze Menge, es wären noch mehr wenn ich die Tabellen nicht schon geteilt hätte!Hallo,
danke für Eure Antworten. Wenn ich das mit der Multikette richtig verstehe dann müsste ich alle 250 Zellen eingeben?
Das andere mit dem Kopieren habe ich nicht verstanden.
Ich bin folgender massen an das Problem gegangen, habe von Hand die Zellen verbunden und dann probiert mit kopieren ruter zu ziehen, geht aber nicht.
Jetzt suche ich nach einer Möglichkeit das ausgezeichnete Makro in eine Roitine einzubinden.
Man darf nicht den Umfang vergessen. 250 Zeilen horizontal und 1380 ZEilen sind eine ganze Menge, es wären noch mekr wenn ich die Tabellen nicht schon geteilt hätte!
Re: verbinden - verketten
Hallo
fürs Beispiel in A100:
Dann markierst du bsplw. A100:Z100 und verbindest die Zellen
Dann kopierst du diese Zelle mit den Tastenfolge 'strg+c'
Dann markierst du den Bereich A101:A1389 und fügst dort mit 'strg+v' ein.
Karolus
Nein, musst du nicht, es reicht:Wenn ich das mit der Multikette richtig verstehe dann müsste ich alle 250 Zellen eingeben?
fürs Beispiel in A100:
Code: Alles auswählen
=MULTIKETTE(U100:IN100;"")
Dann kopierst du diese Zelle mit den Tastenfolge 'strg+c'
Dann markierst du den Bereich A101:A1389 und fügst dort mit 'strg+v' ein.
Karolus
LO7.4.7.2 debian 12(bookworm) auf Raspberry4b 8GB (64bit)
LO7.6.2.1 flatpak debian 12(bookworm) auf Raspberry4b 8GB (64bit)
LO7.6.2.1 flatpak debian 12(bookworm) auf Raspberry4b 8GB (64bit)
Re: verbinden - verketten
Danke, aber irgend wir funktioniert es nicht.
Müssen die Zellen besonders formatiert werden?
Bild mit Fehlermeldung:
aav-vertrieb.bplaced.net//Privat/Fehler_2.jpg
Müssen die Zellen besonders formatiert werden?
Bild mit Fehlermeldung:
aav-vertrieb.bplaced.net//Privat/Fehler_2.jpg
Re: verbinden - verketten
Hallo
Hast du die Verlinkte Funktion in einem Modul in deiner Standard Bibliothek abgelegt ?
Nach der Fehlermeldung offenbar nicht.
Karolus
Hast du die Verlinkte Funktion in einem Modul in deiner Standard Bibliothek abgelegt ?
Nach der Fehlermeldung offenbar nicht.
Karolus
LO7.4.7.2 debian 12(bookworm) auf Raspberry4b 8GB (64bit)
LO7.6.2.1 flatpak debian 12(bookworm) auf Raspberry4b 8GB (64bit)
LO7.6.2.1 flatpak debian 12(bookworm) auf Raspberry4b 8GB (64bit)
Re: verbinden - verketten
Hallo,
jetzt dachte ich, ich habe es endlich verstanden! Habe das Makro angelegt und die Zeilen kopiert, siehe Bild:
aav-vertrieb.bplaced.net//Privat/Fehler_3_Makro.jpg
Jetzt bekomme ich einen Laufzeit Fehler, siehe Bild:
aav-vertrieb.bplaced.net//Privat/Fehler_3_Laufzeit.jpg
Haben Sie noch einen Tipp??
Danke im voraus
jetzt dachte ich, ich habe es endlich verstanden! Habe das Makro angelegt und die Zeilen kopiert, siehe Bild:
aav-vertrieb.bplaced.net//Privat/Fehler_3_Makro.jpg
Jetzt bekomme ich einen Laufzeit Fehler, siehe Bild:
aav-vertrieb.bplaced.net//Privat/Fehler_3_Laufzeit.jpg
Haben Sie noch einen Tipp??
Danke im voraus
Re: verbinden - verketten
Karolus hat geschrieben:Hallo
Hast du die Verlinkte Funktion in einem Modul in deiner Standard Bibliothek abgelegt ?
Nach der Fehlermeldung offenbar nicht.
Karolus
Entlich es hat geklappt. Tausend mal Danke
Re: verbinden - verketten
Doch noch ein Problem.
Multkette geht, setzt aber an Stelle der leeren Zelle ein Null ein.
aav-vertrieb.bplaced.net//Privat/Fehler_4_Null.jpg
Habe probiert eine If Schleife einzubauen und immer ein weiter zählen wenn der Wert Null ist!
Aber...
noch einen Tipp für mich?
Multkette geht, setzt aber an Stelle der leeren Zelle ein Null ein.
aav-vertrieb.bplaced.net//Privat/Fehler_4_Null.jpg
Habe probiert eine If Schleife einzubauen und immer ein weiter zählen wenn der Wert Null ist!
Aber...
noch einen Tipp für mich?
Re: verbinden - verketten
Vielleicht die Zelle als Text (Formatcode »@«) formatieren?
Gruß
lorbass
Gruß
lorbass
Re: verbinden - verketten
Die Zellen sind als Text formatiert.
Aber nach dem Befehl Multikette ausgeführt wurde sind in der verbunden Zelle Nullen an Stelle der Leeren Zellen eingefügt.
Aber nach dem Befehl Multikette ausgeführt wurde sind in der verbunden Zelle Nullen an Stelle der Leeren Zellen eingefügt.
Re: verbinden - verketten
Es gibt keine if-schleifen! Jürgenpwistuba hat geschrieben:Habe probiert eine If Schleife einzubauen
Situation: LibO 3.6 auf Win 7 Home Premium (64-bit) mit MySQL (localhost) über JDBC
Re: verbinden - verketten
juetho hat geschrieben:Es gibt keine if-schleifen! Jürgenpwistuba hat geschrieben:Habe probiert eine If Schleife einzubauen
Danke für den hilfreichen Hinweis.
Aber wie sieht der Syntax für diese Abfrage aus, wenn ich nach einen Wert 0 suche?