AW: Zelle sperren wenn Bedingung erfüllt
25.10.2023 18:07:59
bigmayo
Moin,
Um dieses Problem in Excel mit VBA zu lösen, kannst du folgenden Ansatz verwenden:
Makros aktivieren:
Stelle sicher, dass die Makros in deinem Excel aktiviert sind, da du VBA-Code verwenden wirst.
Füge VBA-Code hinzu:
Öffne den Visual Basic for Applications (VBA)-Editor, indem du Alt + F11 drückst. Füge den folgenden VBA-Code in das Modul deines Arbeitsblatts ein:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet
Dim searchRange As Range
Dim foundCell As Range
Dim storedValue As String
' Definiere das Arbeitsblatt, auf dem du arbeitest
Set ws = ThisWorkbook.Sheets("DeinArbeitsblatt")
' Definiere den Bereich, in dem du suchen möchtest (Spalten E, F, G)
Set searchRange = ws.Range("E1:G" & ws.Cells(Rows.Count, "E").End(xlUp).Row)
' Prüfe, ob sich die Änderung im Bereich von Spalte A befindet
If Not Intersect(Target, ws.Range("A:A")) Is Nothing Then
' Speichere die Werte von A, B und C in dieser Zeile
storedValue = Target.Value & "|" & Target.Offset(0, 1).Value & "|" & Target.Offset(0, 2).Value
' Suche nach der gespeicherten Zellenkombination in Spalten E, F und G
Set foundCell = searchRange.Find(What:=storedValue, LookIn:=xlValues, LookAt:=xlWhole)
If Not foundCell Is Nothing Then
' Wenn gefunden, setze "Gefunden" in Spalte D und sperre die Zelle
foundCell.Offset(0, 3).Value = "Gefunden"
foundCell.Locked = True
ws.Protect ' Blattschutz aktivieren
End If
End If
End Sub
Stelle sicher, dass du den Code an deine Arbeitsmappe anpasst, indem du den Namen deines Arbeitsblatts und die verwendeten Spalten (Spalte A, B, C, E, F, G) aktualisierst.
Blattschutz einrichten:
Damit die Zellen nach der Änderung gesperrt werden können, musst du den Blattschutz aktivieren. Gehe zu "Überprüfen" und wähle "Blattschutz". Vergiss nicht, ein Passwort festzulegen, wenn du den Blattschutz verwenden möchtest.
Jetzt sollte der Code in der Lage sein, die gewünschte Funktionalität zu bieten. Wenn in Spalte A ein Wert eingegeben wird, wird in Spalten E, F, G nach dieser Kombination gesucht. Wenn sie gefunden wird, wird "Gefunden" in Spalte D eingetragen, und die Zelle wird gesperrt.
Gruß