Makrobedingung

18/01/2010 - 12:49 von Franz Olfinger | Report spam
Hallo,

in den nachstehenden Makrozeilen wird der Wert aus Zelle C7 in die Zelle D9
übernommen, was muss ich einfügen, damit der Wert nicht übernommen wird,
also die Zelle D9 leer bleibt, wenn Zelle C9 keinen Wert (String) enthàlt.
rem -
dim args19(0) as new com.sun.star.beans.PropertyValue
args19(0).Name = "ToPoint"
args19(0).Value = "$D$9"

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

rem -
dim args20(0) as new com.sun.star.beans.PropertyValue
args20(0).Name = "StringName"
args20(0).Value = "Ç"

dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args20()

Wer kann mir helfen?
Gruß Franz
 

Lesen sie die antworten

#1 Klaus Reiser
18/01/2010 - 16:55 | Warnen spam
Franz Olfinger schrieb:
Hallo,

in den nachstehenden Makrozeilen wird der Wert aus Zelle C7 in die Zelle D9
übernommen, was muss ich einfügen, damit der Wert nicht übernommen wird,
also die Zelle D9 leer bleibt, wenn Zelle C9 keinen Wert (String) enthàlt.
rem -
dim args19(0) as new com.sun.star.beans.PropertyValue
args19(0).Name = "ToPoint"
args19(0).Value = "$D$9"

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

rem -
dim args20(0) as new com.sun.star.beans.PropertyValue
args20(0).Name = "StringName"
args20(0).Value = "Ç"

dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args20()



Hallo Franz,
nachfolgendes Makro testet Celle C9. Du musst dein Makro jetzt nur noch
einbauen. Wenn etwas unklar ist bitte nachfragen.

Sub ZelleAufLeerTesten
myDoc = thisComponent
mySheet = myDoc.sheets(0)
mycell = mysheet.getCellByPosition(2,8)
myString=mycell.string

if myString <> "" then
rem hier Makro starten das ausgeführt werden soll wenn Celle nicht leer
ist. msgbox dient nur zum testen und kann dann entfernt werden
msgbox myString
else
msgbox "Zelle ist leer"
rem msgbox dient nur zum testen
end if

End Sub

Gruss
Klaus

Ähnliche fragen