Das ist nicht...
02.06.2025 00:04:21
Case
Moin, :-)
... richtig von mir. Da habe ich einen Fehler drin. ;-)
Es läuft, aber die Schleife läuft ab, obwohl er alles schon gelöscht hat (wenn du mehrere Zellen in Spalte C auf einmal löschst). ;-)
Es gibt mindestens zwei Möglichkeiten das zu schreiben: ;-)
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngTMP As Range
On Error GoTo Fin
Application.EnableEvents = False
If Not Intersect(Target, Range("C9:C48")) Is Nothing Then
For Each rngTMP In Target
If Trim(rngTMP.Value) = "" Then
Range(rngTMP.Offset(0, 8), rngTMP.Offset(0, 375)).ClearContents
End If
Next rngTMP
End If
Fin:
Application.EnableEvents = True
If Err.Number > 0 Then MsgBox "Error: " & Err.Number & " " & Err.Description
End Sub
Oder: ;-)
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngTMP As Range
On Error GoTo Fin
Application.EnableEvents = False
If Not Intersect(Target, Range("C9:C48")) Is Nothing Then
For Each rngTMP In Target
If Trim(rngTMP.Value) = "" Then
Range(Target.Offset(0, 8), Target.Offset(0, 375)).ClearContents: Exit For
End If
Next rngTMP
End If
Fin:
Application.EnableEvents = True
If Err.Number > 0 Then MsgBox "Error: " & Err.Number & " " & Err.Description
End Sub
Servus
Case