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

 

Das sollte dir den Weg weisen:

http://www.online-excel.de/excel/singsel_vba.php?f=29

 

Danke werde es heute abend aus probieren.

 

Es wäre mal interessant zu sehen wie das Aufgezeichnete Makro aussieht. Ich halte zwar nicht viel vom Recorder, aber manchmal ist das was er auswirft sogar recht einfach für solche Wiederholungen umzustricken.

Wenns immer die selben 250 Spalten sind sind müsste sich aus der Aufzeichnung recht flott die Lösung schustern lassen.

Und wenn es die selben 250 Spalten sind - könnte nicht F4 helfen? Oder, da das Ergebnis der Maßnhme ja in einer Zelle landet schnöde diese herunterzuzuiehen?!

Eric March

 

Hallo,
das aufgezeichnete Makro siehht so aus:
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")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$U$12:$IN$12"

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())


end sub

Leider komme ich mit der Zählschleife nicht weiter?