ich möchte eine Spalteüberschrift ("RQ") suchen und alle Spalten dahinter löschen per VBA.
Kann mir jemand helfen?
LG
Public Sub Spalten_löschen()
Dim loSpalte As Long, raFund As Range
With Worksheets("Tabelle1")
loSpalte = .Cells(1, .Columns.Count).End(xlToLeft).Column
Set raFund = .Rows(1).Find(what:="RQ", LookIn:=xlValues, lookat:=xlWhole)
If Not raFund Is Nothing Then
If loSpalte > raFund.Column Then
.Range(.Cells(1, raFund.Column + 1), .Cells(1, loSpalte)).EntireColumn.Delete
End If
End If
End With
Set raFund = Nothing
End Sub
Gruß Werner