Zeilen_Ausblenden Makro nicht aktiv warum?
15.06.2008 14:52:00
Maiks
ich habe gerade ein Makro zusammengestellt. der Makro soll mir Zeilen Ausblenden unter die Bedindungen von Zelle E5 und E6
zelle E5= "Vor" oder E5="Nach"
Zelle E6= 1 oder E6= 2 oder E6= 3 oder E6= 4 oder E6= 5
meine Makro habe ich in einem Modul eingefügt. mit F8 habe ich der Makro getestet. es funktionier einwandfrei!
mein Problem ist folgendes: wenn ich in der Zelle E5 od. E6 die Werte ändere, reagiert der Makro gar nicht!
woran liegt diese Inaktivität des Makro?
vielen dank in Voraus.
Maik.S
hier eine Kopie meines Makro
Sub Zeilen_Ausblenden()
On Error GoTo Fehler
ActiveSheet.Unprotect
If Range("E5") = "Nach" Then
If Range("E6") = 1 Then
Rows("34:93").EntireRow.Hidden = True
Rows("100:108").EntireRow.Hidden = True
ElseIf Range("E6") = 2 Then
Rows("46:93").EntireRow.Hidden = True
Rows("103:108").EntireRow.Hidden = True
ElseIf Range("E6") = 3 Then
Rows("58:93").EntireRow.Hidden = True
Rows("106:108").EntireRow.Hidden = True
ElseIf Range("E6") = 4 Then
Rows("70:93").EntireRow.Hidden = True
ElseIf Range("E6") = 5 Then
Rows("82:93").EntireRow.Hidden = True
Else
Rows("34:93").EntireRow.Hidden = False
Rows("100:108").EntireRow.Hidden = False
End If
Rows("7:18").EntireRow.Hidden = True
ElseIf Range("E5") = "Vor" Then
If Range("E6") = 1 Then
Rows("34:93").EntireRow.Hidden = True
Rows("100:108").EntireRow.Hidden = True
ElseIf Range("E6") = 2 Then
Rows("46:93").EntireRow.Hidden = True
Rows("103:108").EntireRow.Hidden = True
ElseIf Range("E6") = 3 Then
Rows("58:93").EntireRow.Hidden = True
Rows("106:108").EntireRow.Hidden = True
ElseIf Range("E6") = 4 Then
Rows("70:93").EntireRow.Hidden = True
ElseIf Range("E6") = 5 Then
Rows("82:93").EntireRow.Hidden = True
Else
Rows("34:93").EntireRow.Hidden = False
Rows("100:108").EntireRow.Hidden = False
End If
Rows("7:18").EntireRow.Hidden = False
Else
MsgBox "Bitte geben Sie in Zelle E5 die Kalkulation Art ein"
End If
ActiveSheet.Protect
Fehler:
If Err.Number 0 Then
MsgBox "Fehler: " & Err.Number & vbLf & Err.Description & vbLf _
& "in Prozedur Zelle_Ausblenden"
End If
End Sub