ich weiß nicht recht wie ich das Problem darstellen bzw. schildern soll, aber ich versuchs mal.
Aktuell sieht der Code in der Arbeitsmappe wie folgt aus:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="123"
If Target.Address = "$B$22" Then Range("AO:AZ").EntireColumn.Hidden = True = isEmpty(Target)
If Target.Address = "$B$22" Then Range("BA:BA").EntireColumn.Hidden = True = IsEmpty(Target)
If Target.Address = "$B$22" Then Range("23:24").EntireRow.Hidden = True = IsEmpty(Target)
If Target.Address = "$B$22" Then Range("AC:AM").EntireColumn.Hidden = False = IsEmpty(Target)
If Target.Address = "$B$22" Then Range("AO:AZ").EntireColumn.Hidden = False =
Not IsEmpty(Target)
If Target.Address = "$B$22" Then Range("AC:AM").EntireColumn.Hidden = True =
Not IsEmpty(Target)
If Target.Address = "$B$22" Then Range("BA:BA").EntireColumn.Hidden = True =
Not IsEmpty(Target)
If Target.Address = "$B$22" Then Range("23:24").EntireRow.Hidden = False =
Not IsEmpty(Target)
If Target.Address = "$B$23" Then Range("AO:AZ").EntireColumn.Hidden = True =
(Range("B24") 0 And Not IsEmpty(Range("B22"))))
If Target.Address = "$B$23" Then Range("AC:AM").EntireColumn.Hidden = False =
(Range("B24") 0 And Not IsEmpty(Range("B22"))))
If Target.Address = "$B$23" Then Range("BA:BA").EntireColumn.Hidden = False =
(Range("B24") 0 And Not IsEmpty(Range("B22"))))
If Target.Address = "$B$22" Then Range("BA:BA").EntireColumn.Hidden = True =
IsEmpty(Target)
ActiveSheet.Protect Password:="123"
End Sub
Jetzt soll noch hinzugefügt werden, dass folgendes passiert:
Wenn in der Zelle B22 etwas verändert wird, dann soll eine MSG Box aufpoppen und anschließend die Zelle B23 auswählen (Select) und danach SendKeys {F2}
Hat jemand eine Idee?
Vielen Dank!
Erik