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ß WernerDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen