2 Felder addieren Makro

[Stephan]

Code: Alles auswählen

Sub Main
With ThisComponent.currentcontroller.activeSheet
	.getCellRangeByName("C3").Value = _
	.getCellRangeByName("C3").Value + .getCellRangeByName("C4").Value
End With
End Sub

Gruß
Stephan

[Gert Seler]

Aber Hallo, bananenjo und Stephan,
wo bleibt da die Logik ???
Wenn Wert aus C4 zu dem Wert aus C3 addiere, kann die Summe doch garnicht wieder in C3 ausgegeben werden.
Da beißt die Katze sich doch in den Schwanz.
Die folgende Lösung wäre aus meiner Sicht die logische.
=WENN(UND(C3<>"";C4<>"");C3+C4;"")

Formel wird in C5 eingefügt und die Summe angezeigt.

mfg
Gert