wenn in der erste Zeile der Text "Einsender", "Ablagepfad", "Größe" oder "Firma" steht, dann möchte ich diese Spalten löschen.
Wie mache ich das bitte per VBA?
Gruß,
Selma
for i=usedrange.column+usedrange.columns.count-1 to usedrange.column step -1
select case cells(1,i)
case "Einsender", "Ablagepfad", "Größe", "Firma"
columns(i).delete
end select
next i
beste Grüße,
Sub aaa()
Dim arr, rngC As Range, rngDel As Range
arr = Array("Einsender", "Ablagepfad", "Größe", "Firma")
For Each rngC In Range(Cells(1, 1), Cells(1, Columns.Count).End(xlToLeft))
If Not IsError(Application.Match(rngC, arr, 0)) Then
If rngDel Is Nothing Then
Set rngDel = rngC
Else
Set rngDel = Union(rngDel, rngC)
End If
End If
Next
If Not rngDel Is Nothing Then rngDel.EntireColumn.Delete
End Sub