Seite 1 von 1
Schaltfläche +1
Verfasst: Sa, 10.03.2007 20:10
von Flow
Hallo,
ich hätte gerne eine schaltfläche bei der ich bei jedem drücken das Ergebnis von A1 um 1 erhöht. Wie kann ich sowas realisieren ? Also ich weis wie man ein Makro mit einer Schaltfläche verknüpft. Aber ich weis nicht wie das Makro aussieht damit ein Makro immer den wert um 1 erhöht.
Mfg
Verfasst: Sa, 10.03.2007 21:10
von dkledi
Hallo Flow,
mit diesem Makro sollte Dein Problem funktionieren. Möglicherweise geht es auch kürzer.
Code: Alles auswählen
Sub test
' Variablen deklarieren
Dim calcDokument as Object
Dim tabellenBlatt as Object
Dim zelle As Object
Dim inhalt As Integer
' Tabellenobjekt festlegen und zuweisen
calcDokument = thisComponent
tabelle = calcDokument.Sheets(0)
' Zelle definieren (in diesem Fall A1)
zelle = tabelle.getCellByPosition(0,0)
inhalt = zelle.Value
inhalt = inhalt + 1
zelle.Value = inhalt
End Sub
MfG - dkledi
Verfasst: Sa, 10.03.2007 21:15
von dkledi
Ich habe gerade festgestellt, dass das mit der Variablen Inhalt totaler Blödsinn ist. So geht es auch.
Code: Alles auswählen
Sub test
Dim calcDokument as Object
Dim tabellenBlatt as Object
Dim zelle As Object
calcDokument = thisComponent
tabelle = calcDokument.Sheets(0)
zelle = tabelle.getCellByPosition(0,0)
zelle.Value = zelle.Value + 1
End Sub
Verfasst: So, 11.03.2007 14:33
von Toxitom
Hey,
und so in einer Zeile:
Code: Alles auswählen
sub test
thisComponent.Sheets(0).getCellRangeByName("A1").Value =_
thisComponent.Sheets(0).getCellRangeByName("A1").Value +1
end sub
Thomas