[Gelöst] Feststellen, ob eine Zelle leer ist

[Mike24]

Hei,

irgendwie bekomme ich das nicht hin.
Wie kann ich per Makro feststellen, ob eine bestimmte Zelle (z.B. A1) in calc leer ist?

Viele Grüße
Mike24

P.S. Wurde zwischenzeitlich von mir gelöst.

[Roland1]

und wie ?
Möchte das selbe haben, das mit einem Makro immer die nächst frei zelle beschrieben wird.

[craig]

Hallo Roland,

beschreib mal näher was Du brauchst.
Beispieldokument...

[Roland1]

Hallo craig

Hallo, meine Suche ergab leider nicht das was ich suche. Oder ich verstehe es nicht.

Ich habe eine Tabelle mit Namen, Datum, Betrag.
Das sind alles "Feld" und "wenn dann" Befehle.
funktioniert soweit.

Nun möchte ich in einer anderen Tabelle (Liste) Name, Datum, und Betrag mit einem Klick mit einem Makro listen.

Ich ab es nun aufgenommen (erst mal nur "Betrag") den formatiere ich wenn das Makro den Betrag eingefügt hat als Zahl
(selectformat, 1) so das keine Formel auf die Liste kommt, sondern der Betrag.

Nun möchte ich, das bei jedem klicken auf das Makro die nächste freie Zelle (c3.....c4,c5) beschrieben wird.

Ich hab das mit "Row+1" gelesen, bekomme es aber nicht hin.

Ich Liste mal was ich habe, eventuell kann mir auch jemand sagen wie ich dann noch Name und Datum dazu bekomme.
Das Datenblatt (Aktive Sheet) ist 2, die Liste ist 5, Der Rechnungswert ist K48,
Der Name wäre Tabellle2, A11
Das Datum wäre Tabelle2, K13.

nun noch was ich als Makro habe.

sub Rechnungliste
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 = "Nr"
args1(0).Value = 2

dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args1())

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$K$48"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "Nr"
args4(0).Value = 5

dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args4())


rem ----------------------------------------------------------------------
dim args5(0) as new com.sun.star.beans.PropertyValue
args5(0).Name = "ToPoint"
args5(0).Value ="$C$3"


dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args5())


rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())

rem ----------------------------------------------------------------------
dim args7(0) as new com.sun.star.beans.PropertyValue
args7(0).Name = "SelectedFormat"
args7(0).Value = 1
dispatcher.executeDispatch(document, ".uno:ClipboardFormatItems", "", 0, args7())


end sub

[Mondblatt24]

Hier geht es mit der Frage von @Roland1 weiter