Hallo,
ich habe ein rießen Problem!
Ich möchte in Open Office 3.2.1 die Klicks auf eine Formular-Schaltfläche zählen lassen. Pro Klick soll in einer anderen Zelle 1 hinzugezählt werden.
Mit Makros hats bei mir nicht geklappt!
Mfg
mosser
Hallo,
ich habe ein riesen Problem!
Ich möchte in Open Office 3.2.1 die Klicks auf eine
Formular-Schaltfläche zählen lassen. Pro Klick soll in einer
anderen Zelle 1 hinzugezählt werden.Mit Makros hats bei mir nicht geklappt!
Hallo mosser,
ich gebe auf. Ich hab alles mögliche probiert, aber ich kriegs nicht hin 
Ich weiß einfach nicht wie ich da in OO eine zelle ansprechen kann.
Neben anderen Codes für OO fand ich aus diesen:
sub ZellenAusrichtung
’ Dieses Makro in einer geöffnetten Tabelle starten
myDoc = stardesktop.currentcomponent
mySheet = myDoc.sheets(0)
mySheet.HoriJustify=3
mycell = mysheet.getCellByPosition(0,0)
mycell.HoriJustify=1
mycells =mysheet.getCellRangeByName(„A1:B5“)
mycells.horijustify=0
end Sub
Dieses horijustify ist die Formatierung einer Zelle, also linksbündig, zentriert usw.
Mir gelang es leider nicht auf basis dieses Codes auf einen Code zu kommen der mir schlichtweg nur den Inhalt einer Zelle anzeigt.
Bei getCellByPosition(0,0) entspricht 0,0 der Zelle A1.
Und die Hilfe in OO, weia, da finde ich nie was
Mein Tipp für dich, such dir ein OO-Forum.
Sorry.
Gruß
Reinhard
Hallo Reinhard,
danke für deine Mühe!
Ich werds weiter probieren, irgendwie muss es ja gehen!
Wenn ichs schaffe dann schreib ichs hier nochmal, wenn Interesse besteht.
MFG
1 „Gefällt mir“
Ich werds weiter probieren, irgendwie muss es ja gehen!
Wenn ichs schaffe dann schreib ichs hier nochmal, wenn
Interesse besteht.
Hallo Mosser,
so geht es, kommt nicht mal ein Fehler wenn Text in A1 steht:
Sub Erhoehe
Dim Doc As Object
Dim Sheet As Object
Dim Cell As Object
Doc = ThisComponent
Sheet = Doc.Sheets(0)
Cell = Sheet.getCellByPosition(0, 0)
Cell.value = Cell.value +1
End Sub
Gruß
Reinhard