Ich bins schon wieder,
dein VBA funktioniert tadelos,
nun bin ich fertig mit meiner Mappe, alle Tabellen mit Blattschutz,
und das Vba bringt fehler.
Ich muss die Tabellen aber schützen, kann man das mit einbauen?
VBA:
ption Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) <> "J15" Then Exit Sub
Application.ScreenUpdating = False
Select Case Target
Case 1 To 14
worksheets("DP").Range("A66:A130").EntireRow.Hidden = True
Case 15 To 28
worksheets("DP").Range("A66:A130").EntireRow.Hidden = False
End Select
Application.ScreenUpdating = True
End Sub
gruss Armin