VBA - Zellen sperren wenn Bedingung nicht erfüllt
25.07.2006 19:15:08
Philipp
ich habe in diesem Forum eine super Hilfe gefunden. Habe von euch den VBA Code:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Then
ActiveSheet.Unprotect
If Target = "" Then
Range("B1") = ""
Range("B1").Locked = True
Else
Range("B1").Locked = False
End If
ActiveSheet.Protect
End If
End Sub
Das allein ist schon klasse und funktioniert auch super. Muss darin jetzt nur noch einbauen, dass es nicht nur für die Zellen A1 und die Zellen B1 gilt, sondern für alle A und B Zellen jeweils im relativen Bezug (A1/B1; A2/B2; A3/B3....usw.) Kann mir jemand bei diesem Problem helfen.
Vielen Dank schonmal.
Gruß Philipp
Anzeige