Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Spalte suchen und alles dahinter löschen

Spalte suchen und alles dahinter löschen
16.11.2020 14:16:12
guest123
Hi,
ich möchte eine Spalteüberschrift ("RQ") suchen und alle Spalten dahinter löschen per VBA.
Kann mir jemand helfen?
LG
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalte suchen und alles dahinter löschen
16.11.2020 14:25:56
Werner
Hallo,
da du nicht verraten hast, wo deine Überschriften stehen, bin ich von Zeile 1 ausgegangen.
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
Anzeige
AW: Spalte suchen und alles dahinter löschen
17.11.2020 08:44:02
guest123
Vielen Dank Werner!
Gerne u. Danke für die Rückmeldung. o.w.T.
17.11.2020 08:54:59
Werner
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige