[GELÖST]Verbindung Makro mit zwei Befehlen schreiben

[AlinaGeier]

Hallo,
ich brauche ein Makro, das an einer Schaltfläche angebracht wird, und bei Betätigen dieser +1 zu Zelle A1 addiert und in Zelle A2 "X" schreibt. Ich glaube ich weiß schon, wie der Anfang aussehen muss:

Sub Schaltfläche 2
thisComponent.sheets().getbyname("Tabelle1").getcellrangebyname("A1").value =_
thisComponent.sheets().getbyname("Tabelle1").getcellrangebyname("A1").value + 1

der zweite Teil dann circa so:

thisComponent.sheets().getbyname("Tabelle1").getcellrangebyname("A2").string = "X"
End sub

Jetzt weiß ich aber nicht, wie die Verbindung zwischen den beiden Teilen aussehen soll, bzw ist das bisher überhaupt richtig?
Vielen Dank schonmal!

[craig22]

Hallo Alina,

ein Beispiel:

Code: Alles auswählen

REM  *****  BASIC  *****

Sub Schaltflaeche2
REM https://wiki.openoffice.org/wiki/DE/Makro_Basic_Tutorial#Variablen
Dim fVal As Double 
' oder 
' Dim nVal As Long

Dim sStr as String
	
	oCellA1=thisComponent.sheets().getbyname("Tabelle1").getcellrangebyname("A1")
	oCellA2=thisComponent.sheets().getbyname("Tabelle1").getcellrangebyname("A2")

		fVal=oCellA1.value
			oCellA1.value = fVal+1
			oCellA2.string = "X"
End sub

[AlinaGeier]

Vielen Dank! Klappt super.
LG, Alina