Worksheet_Change funktioniert nicht
28.11.2015 18:43:52
Tanja
Hallo,
ich möchte gerne bei Änderung eines Zellwerts in Zeile 1 (Blatt 8) folgenden Code ausführen, wobei die Zelländereungen dabei per Formel und nicht manuell erfolgen.
Bisher habe ich folgendes im Blattcode mit der MsgBox als Test, es reagiert jedoch gar nicht auf die Zelländerungen (auch keine Fehlermeldung).
Kann mir jemand damit weiterhelfen ?
Mein Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Rows(1), Target) Is Nothing Then
Dim col As Integer
MsgBox ("Test")
Worksheets(8).Unprotect Password:=constPw
For col = 3 To 19
Worksheets(8).Columns(col).EntireColumn.Hidden = Worksheets(8).Cells(1, col).Value
Next col
Worksheets(8).Protect Password:=constPw, UserInterfaceOnly:=True
End If
End Sub
Vielen Dank im Voraus. LG,
Tanja