Mehrere Abfragen in einer Wenn-Funktion
Arkad
ich möchte in einer Excel-Tabelle mehrere Spalten löschen, wenn sie bestimmte Wörter in der _
ersten Zeile enthalten. Soweit bin ich bisher gekommen:
Sub Basisdatei()
' Löscht die nicht mehr benötigten Spalten in der Basisdatei
Dim i As Integer, Erste As Boolean
For i = 1 To 255
If InStr(1, Cells(1, i), "Kunde") > 0 Then
Range(Columns(i), Columns(i)).Select
Selection.Delete Shift:=x1ToLeft
i = i - 1
End If
Next i
End Sub
Wie kann ich denn jetzt nach dem Eintrag "Kunde" weitere Einträge eingeben, damit bspw. auch "Name" und "Vorname" geprüft und gelöscht wird.
Vielen Dank für die Hilfe!
Anzeige