OpenOffice.info

Verfasst: **Sa, 20.11.2021 14:16**

Hallo!
Der Makrorekorder ist für viele Aktionen sehr hilfreich, um zu sehen, wie man Aktionen in Makros umsetzen kann. Es gibt aber einige sehr simple Dinge, bei denen der Makrorekorder keine Hilfestellung leistet, und da stehe ich momentan an.

1. Ich würde gerne durch ein Makro das Ergebnis einer Berechnung in eine Zelle schreiben lassen. Also im einfachsten Fall zum Beispiel A1:=A2+A3. Natürlich gäbe es die Notlösung, irgendwo am Spreadsheet in ausgeblendete Zellen die entsprechenden Formeln einzutragen und die Werte dann mit copy and paste in die Zielzelle zu kopieren. Aber ich stelle mir vor, dass das auch einfacher gehen müsste.

2. Ich würde gerne in Abhängigkeit von Werten, die in einer oder mehreren Zellen stehen, das Makro mit einer Fehlermeldung abbrechen.

Bitte um Hilfe!

Verfasst: **Sa, 20.11.2021 16:35**

Der Makrorekorder ist für viele Aktionen sehr hilfreich, um zu sehen, wie man Aktionen in Makros umsetzen kann.

Na, das sehe ich aber anders, denn der Makrorekorder in OO/LO erzeugt sog. dispatcher-Code und ist im Gegensatz zum Makrorekorder von MS Office wenig geignet um etwas über Makro-Programmierung zu lernen.

1. Ich würde gerne durch ein Makro das Ergebnis einer Berechnung in eine Zelle schreiben lassen. Also im einfachsten Fall zum Beispiel A1:=A2+A3. Natürlich gäbe es die Notlösung, irgendwo am Spreadsheet in ausgeblendete Zellen die entsprechenden Formeln einzutragen und die Werte dann mit copy and paste in die Zielzelle zu kopieren. Aber ich stelle mir vor, dass das auch einfacher gehen müsste.

z.B.:

Code: Alles auswählen

Sub Main()
With ThisComponent.Sheets.getByName("Tabelle1")
	.getCellRangeByName("A1").Value = .getCellRangeByName("A2").Value + .getCellRangeByName("A3").Value
End With
End Sub

2. Ich würde gerne in Abhängigkeit von Werten, die in einer oder mehreren Zellen stehen, das Makro mit einer Fehlermeldung abbrechen.

z.B.:

Code: Alles auswählen

Sub Main()
With ThisComponent.Sheets.getByName("Tabelle1")
If .getCellRangeByName("A2").Value = 123 Then
	Msgbox "falscher Wert"
	Exit Sub
End If
End With
End Sub

siehe auch:
viewtopic.php?t=1553

Gruß
Stephan

Verfasst: **So, 21.11.2021 21:19**

Vielen Dank, das bringt mich schon sehr viel weiter

OpenOffice.info

In Makro Zellen addieren und vergleichen

In Makro Zellen addieren und vergleichen

Re: In Makro Zellen addieren und vergleichen

Re: In Makro Zellen addieren und vergleichen