Office: (Office 2010) Makro ausführen wenn Bedingung erfüllt ist

Hallo MS Office Forum Community,

ich habe folgendes Anliegen:

Ich habe eine Excel Arbeitsmappe mit Makros erstellt.

Es sind zwei Makros, das eine soll die Zeilen 3 bis 10 vom aktuellen Blatt verbergen - Hide(), und das andere soll die Zeilen wieder sichtbar machen - Show().

---------------------------------------------------------------
Public Function Startmakro1() As String
Call Hide
End Function

Sub Hide()
MsgBox "Hide"
ActiveSheet.Rows("3:10").Hidden = True
Application.ScreenUpdating = True
End Sub
---------------------------------------------------------------
Public Function Startmakro2() As String
Call Show
End Function

Sub Show()
MsgBox "Show"
ActiveSheet.Rows("3:10").Hidden = False
Application.ScreenUpdating = True
End Sub
---------------------------------------------------------------

Diese beiden Makros sind in meinem Fall an Bedingungen gebunden:
=WENN(A1=1; Startmakro1(); "✔")
=WENN(A1=2; Startmakro2(); "✔")

---------------------------------------------------------------

Jetzt kommt das Problem:

Wenn ich den Code direkt ausführe (Alt+F11, F5), funktionieren beide Makros, sowohl Hide() als auch Show(), wenn ich das Ausführen des
Makros jedoch von einer Bedingung abhängig mache (wie in diesem Fall, wenn A1 gleich 1 oder 2 ist) wird das Makro nur teilweise ausgeführt - sprich, es wird nur die Message Box angezeigt. Die Zeilen werden leider weder versteckt noch wieder sichtbar gemacht wenn ich den Wert von A1 ändere, es wird lediglich die Message Box angezeigt..

Ich freue mich über jede Hilfe und jeden Denkanstoß!

Vielen Dank im Voraus für Ihre Hilfe!

:)

 

Das lieg daran, dass Du die Makros wie eine UDF nutzt und da gibt es Restriktionen. Du braucht das Change Event

 

Danke!

So hat es funktioniert:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Cells(1, 1) = 1 Then Target.Rows("3:10").Hidden = True
If Target.Cells(1, 1) = 2 Then Target.Rows("3:10").Hidden = False
End Sub

 

Das funktioniert so nicht!

 

Also bei mir hat die Lösung die ich vorgeschlagen habe problemlos funktioniert.. Könntest du mir bitte erklären was daran falsch sein soll?

 

Gib in einer anderen Zelle als A1 eine 1 oder eine 2 ein!

 

Ok ich habe verstanden wo das Problem liegt.. Vielen Dank für den Hinweis!