ich möchte gerne folgendes lösen, wenn in der Spalte L ein WAHR auftaucht dann soll in der linken Nachbarzelle (Spalte K) ein Gesperrt hineingeschrieben werden.
Kann mir jemand hierbei helfen.
Vorab vielen Dank
Sascha
Sub test1()
Dim lngLetzte As Long
lngLetzte = IIf(IsEmpty(Cells(Rows.Count, 12)), Cells(Rows.Count, 12).End(xlUp).Row, Rows.Count) _
Columns("L:L").Insert
With Range("L1:L" & lngLetzte)
.FormulaR1C1 = "=IF(RC[1]=TRUE,""gesperrt"",RC[-1])"
.Formula = .Value
End With
Columns("K:K").Delete
End Sub
Gruß
Chris
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("L:L")) Is Nothing Then
If Target.Value = True Then Target.Offset(, -1).Value = "gesperrt"
End If
End Sub
Gruß Matthias
Um in Excel den Zelleninhalt zu ersetzen, wenn in einer Nebenzelle ein bestimmter Wert auftaucht, kannst du die folgende Methode verwenden. In diesem Beispiel wird der Text "gesperrt" in der linken Nachbarzelle (Spalte K) geschrieben, wenn in der Spalte L der Wert WAHR
erscheint.
=WENN(L1=WAHR;"gesperrt";"")
Wenn du diese Methode nicht manuell durchführen möchtest, kannst du auch VBA verwenden, um dies automatisch zu erledigen.
Wenn du die Excel-Funktionalität nicht verwenden möchtest, kannst du die Automatisierung mit VBA in Betracht ziehen. Hier ist ein einfacher VBA-Code, den du in das Arbeitsblattmodul einfügen kannst:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("L:L")) Is Nothing Then
If Target.Value = True Then Target.Offset(, -1).Value = "gesperrt"
End If
End Sub
Dieser Code sorgt dafür, dass jedes Mal, wenn sich ein Wert in der Spalte L ändert, die benachbarte Zelle in Spalte K aktualisiert wird.
Angenommen, du hast folgende Werte in Spalte L:
L | K |
---|---|
WAHR | |
FALSCH | |
WAHR |
Nach der Anwendung der Formel oder des VBA-Codes wird die Spalte K so aussehen:
L | K |
---|---|
WAHR | gesperrt |
FALSCH | |
WAHR | gesperrt |
Bedingte Formatierung
, um die Zellen hervorzuheben, die geändert wurden. Dies kann dir helfen, die Änderungen schnell zu visualisieren.1. Kann ich die Formel auf mehrere Zeilen gleichzeitig anwenden?
Ja, du kannst die Formel nach unten ziehen oder die Funktion Füllen
verwenden, um sie auf mehrere Zeilen anzuwenden.
2. Was passiert, wenn die Spalte L leer ist?
Die Zellen in Spalte K bleiben leer, da die Bedingung nicht erfüllt ist.
3. Funktioniert dies in allen Excel-Versionen?
Ja, diese Methoden sind in Excel 2010 und späteren Versionen anwendbar.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen