verbinden - verketten

Das Tabellenkalkulationsprogramm

Moderator: Moderatoren

pwistuba
***
Beiträge: 52
Registriert: Fr, 30.11.2012 20:32

verbinden - verketten

Beitrag von pwistuba »

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
pwistuba
***
Beiträge: 52
Registriert: Fr, 30.11.2012 20:32

Re: verbinden - verketten

Beitrag von pwistuba »

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??
Zuletzt geändert von pwistuba am Do, 06.12.2012 17:56, insgesamt 1-mal geändert.
juetho
******
Beiträge: 617
Registriert: Di, 20.04.2010 15:46
Wohnort: Berlin

Re: verbinden - verketten

Beitrag von juetho »

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. :shock: ) 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!
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
Karolus
********
Beiträge: 7431
Registriert: Mo, 02.01.2006 19:48

Re: verbinden - verketten

Beitrag von Karolus »

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
LO7.4.7.2 debian 12(bookworm) auf Raspberry4b 8GB (64bit)
LO7.6.2.1 flatpak debian 12(bookworm) auf Raspberry4b 8GB (64bit)
pwistuba
***
Beiträge: 52
Registriert: Fr, 30.11.2012 20:32

Re: verbinden - verketten

Beitrag von pwistuba »

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!
Karolus
********
Beiträge: 7431
Registriert: Mo, 02.01.2006 19:48

Re: verbinden - verketten

Beitrag von Karolus »

Hallo
Wenn ich das mit der Multikette richtig verstehe dann müsste ich alle 250 Zellen eingeben?
Nein, musst du nicht, es reicht:
fürs Beispiel in A100:

Code: Alles auswählen

=MULTIKETTE(U100:IN100;"")
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
LO7.4.7.2 debian 12(bookworm) auf Raspberry4b 8GB (64bit)
LO7.6.2.1 flatpak debian 12(bookworm) auf Raspberry4b 8GB (64bit)
pwistuba
***
Beiträge: 52
Registriert: Fr, 30.11.2012 20:32

Re: verbinden - verketten

Beitrag von pwistuba »

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
Karolus
********
Beiträge: 7431
Registriert: Mo, 02.01.2006 19:48

Re: verbinden - verketten

Beitrag von Karolus »

Hallo
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)
pwistuba
***
Beiträge: 52
Registriert: Fr, 30.11.2012 20:32

Re: verbinden - verketten

Beitrag von pwistuba »

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
pwistuba
***
Beiträge: 52
Registriert: Fr, 30.11.2012 20:32

Re: verbinden - verketten

Beitrag von pwistuba »

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
pwistuba
***
Beiträge: 52
Registriert: Fr, 30.11.2012 20:32

Re: verbinden - verketten

Beitrag von pwistuba »

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?
Benutzeravatar
lorbass
********
Beiträge: 4116
Registriert: Mo, 01.05.2006 21:29
Wohnort: Bonn

Re: verbinden - verketten

Beitrag von lorbass »

Vielleicht die Zelle als Text (Formatcode »@«) formatieren?

Gruß
lorbass
pwistuba
***
Beiträge: 52
Registriert: Fr, 30.11.2012 20:32

Re: verbinden - verketten

Beitrag von pwistuba »

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.
juetho
******
Beiträge: 617
Registriert: Di, 20.04.2010 15:46
Wohnort: Berlin

Re: verbinden - verketten

Beitrag von juetho »

pwistuba hat geschrieben:Habe probiert eine If Schleife einzubauen
Es gibt keine if-schleifen! Jürgen
Situation: LibO 3.6 auf Win 7 Home Premium (64-bit) mit MySQL (localhost) über JDBC
pwistuba
***
Beiträge: 52
Registriert: Fr, 30.11.2012 20:32

Re: verbinden - verketten

Beitrag von pwistuba »

juetho hat geschrieben:
pwistuba hat geschrieben:Habe probiert eine If Schleife einzubauen
Es gibt keine if-schleifen! Jürgen

Danke für den hilfreichen Hinweis.
Aber wie sieht der Syntax für diese Abfrage aus, wenn ich nach einen Wert 0 suche?
Antworten