Denke mal für euch kein Problem. Schon einiges Versucht aber Fehler noch nicht gefunden.
Im Prinzip soll bei einem x die neben Felder der Inhalt gelöscht werden. Läuft aber nur bei Teil 1.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("Z2:Z104")) Is Nothing Then Exit Sub
If Target.Value = "x" Then
Target.Offset(0, 1) = ""
Target.Offset(0, 2) = ""
If Intersect(Target, Range("Aa2:AA104")) Is Nothing Then Exit Sub
If Target.Value = "x" Then
Target.Offset(0, -1) = ""
Target.Offset(0, 1) = ""
If Intersect(Target, Range("AB2:AB104")) Is Nothing Then Exit Sub
If Target.Value = "x" Then
Target.Offset(0, -1) = ""
Target.Offset(0, -2) = ""
End If
End Sub
Hallo,
-- schreibe "Option Explicit" in jeden Modulkopf.
-- Überprüfe und korrigiere die Struktur der IF-Bedingungen.
-- Kompiliere den Code mit "Debuggeb/Kompilieren"
-- Eliminiere auftretende Fehlermeldungen.
.. Kompiliere solange, bis keine Fehlermeldungen mehr auftreten.