OpenOffice.info

Sub addieren()
   With ThisComponent.CurrentController.ActiveSheet
      For i = 0 To 10   
         tmp1 = .getCellByPosition(0, i).Value
         tmp2 = .getCellByPosition(0, i+1).Value
         If tmp1 = tmp2 Then
            .getCellByPosition(0, i+1).Value = tmp1 + tmp2
         End If
      Next i
   End With
End Sub

[quote]Ich versuche das gerade in eine Schleife zu packen und für mehrer Zeilen auszuführen.[/quote]

z.B.:

[code]Sub addieren()
With ThisComponent.CurrentController.ActiveSheet
For i = 0 To 10
tmp1 = .getCellByPosition(0, i).Value
tmp2 = .getCellByPosition(0, i+1).Value
If tmp1 = tmp2 Then
.getCellByPosition(0, i+1).Value = tmp1 + tmp2
End If
Next i
End With
End Sub
[/code]

Gruß
Stephan

Äh - deine Frage war wohl:
[quote]gehe ich da richtig an die sache heran? Was fehlt mir?[/quote]
und die sollen wir jetzt beantworten ohne den Code zu kennen auf den sie sich bezieht ?!

Sonst gehtst dir gut?

Hallo

Vielleicht sollte man das sinnfreie 'if else'-gedöns weg lassen wenn man in beiden Zweigen eh das selbe tut. 8)

Karolus

.getCellRangeByPosition(4, z).Value = tmp1

Halo,

auf alle Fälle sollte im else-Zweig
[code].getCellRangeByPosition(4, z).Value = tmp1[/code]
stehen.

Sub addieren()
	With ThisComponent.CurrentController.ActiveSheet
		tmp1 = .getCellRangeByName("A1").Value
		tmp2 = .getCellRangeByName("A2").Value
		If tmp1 = tmp2 Then
			.getCellRangeByName("A2").Value = tmp1 + tmp2
		End If
	End With
End Sub

[quote]Wenn in A2 bereits der Wert steht soll bei Button druck "A2 = A2 + A1" gerechnet werden.[/quote]

Ist das wirklich beabsichtigt? Also nur Wert addieren wenn die Werte in A1 und A2 gleich sind?

[quote]Wie bekomm ich das Makro auf den Button und wie müsste das aussehen?[/quote]

Das Makro:

[code]Sub addieren()
With ThisComponent.CurrentController.ActiveSheet
tmp1 = .getCellRangeByName("A1").Value
tmp2 = .getCellRangeByName("A2").Value
If tmp1 = tmp2 Then
.getCellRangeByName("A2").Value = tmp1 + tmp2
End If
End With
End Sub[/code]

speichere das Makro im Dokument Extras-Makros-Makros Verwalten-StarBasic, im erscheinenden Dialog links das Dokument suchen, dooppelklicken, "Standard" markieren, rechts "Neu" und dort das Makro reinkopieren.

-lasse die Symbolleiste Ansicht-Symbolleisate-Formularsteuerelemente anzeigen
-klicke dort auf "Entwurfsmodus an/aus"
-klicke dort auf "Schaltfläche" und zeichne damit eine Schaltfläche in die TAbelle
-markiere die gezeichnete Schaltfläche und wähle im Kontextmenü "KOntrollfeld"
-wechsele im erscheionenden Dialog zum Register "EReignisse" und suche das gerade gespeicherte Makro unter "Aktion ausführen" raus bzw. weise es dafür zu
-schliesse den Dialog
-klicke auf der SYmbolleiste "Entwurfsmodus an/aus" um dedn Entwurfsmodus zu beenden


Gruß
Stephan