gibt es eine Formel oder ein code für folgendes Problem:
Wenn in Zelle A1 ein Wert steht können nicht die Zellen A2 und A3 ausgewählt werden. Erst wieder, wenn A1 leer ist.
Gruß Andreas
grüße steffen
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") 0 Then Range("A2:A3") = Locked
End Sub
steffen
A | |
1 | 1 |
2 | |
3 |
Datengültigkeit der Tabelle | |||||||||||||||
|
Private Sub WorkSheet_SelectionChange(Target as Range)
If Intersect(Target, Range("A2:A3") is Nothing then Exit Sub
If Range("A1").Value = "" then Exit Sub
Msgbox "Zellen A2 und A3 sind blockiert" '--- Hinweis, ggf entfernen
Application.EnableEvents = false
Range("A3").Select
Application.EnableEvents = true
End Sub
Gruß, Daniel
ps Code ist nicht getestet und auf Tippfehler geprüft, hab grad kein Excel aufm Rechner