Laufzeitfehler - Typen unverträglich
05.08.2024 16:20:14
Chris
ich möchte per untenstehendem Makro Spalten löschen, sobald in Reihe 1 der Begriff "Test" erkannt wurde.
Weshalb erhalte ich die Meldung Typen unverträglich und was muss geändert werden?
Gruß
Chris
Sub DEL
Dim i As Long
with Sheets("TB1")
For i = 1 To .Cells(1, Columns.Count).End(xlToLeft).Column
If .Cells(1, i).Value Like "*test*" Then
.Columns(i).Offset(, -6).Resize(, 8).Delete
End If
Next i
End With
End Sub
Anzeige