Makrozuweisung geschlossen

[Messiah]

Hallo,

ich hab da ein kleines Problem mit der Makrozuweisung in Excel.
ich hab eine Zelle sagen wir mal A1 mit einer Gültigkeit belegt und man kann nun zwischen "einblenden" und "ausblenden" wählen.
Ich hab auch schon ein Makro erstellt das die Zeilen 20-29 ausblendet(makro1) und ein Makro das diese Zeilen wieder einblendet(makro2).

Mein Problem ist nun, dass ich die Auswahl "ausblenden" mit dem Makro1 und die Auswahl "einblenden" mit dem Makro2 in Feld A1 belegen will.

Kann mir da Jemand weiter helfen??

Danke im Voraus,

Messiah

 

[Tattooed1980]

Hy

Versuch mal die Eingabe für das Feld "A1" abzufragen.
Dazu folgenden Code in die passende Tabelle(z.B.: Tabelle1) einfügen

Private Sub WorkSheet_Change(ByVal Target As Range) 
If Target.Address <> "$A$1" Then Exit Sub 
If Target.Value = "einblenden" then Call Makro2
If Target.Value = "ausblenden" then Call Makro1
End Sub

MfG Tattooed1980

 

[Messiah]

Ja danke hab den vorhandenen Code (wusste ich nicht dass da schon einer ist) "repariert"...
Deine Idee hat mir auf jedenfall geholfen....danke nochmal

ich hab das jetzt so gelöst.....

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Range("D7").Value <> "Umzug" Then
Worksheets("Deckblatt MV").Unprotect
Worksheets("Deckblatt MV").Rows("55:62").Hidden = True
Worksheets("Deckblatt MV").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Else
Worksheets("Deckblatt MV").Unprotect
Worksheets("Deckblatt MV").Rows("55:62").Hidden = False
Worksheets("Deckblatt MV").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
Application.ScreenUpdating = True
End Sub

Messiah

kann geschlossen werden.....

 

[yuhu]

Wird auch sicher geschlossen, wenn das Präfix umgestellt ist.

--> http://www.freesoft-board.to/f238/tutorial-wie-man-das-praefix-umstellt-248151.html