Anzeige
Archiv - Navigation
1792to1796
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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
AW: Spalte suchen und alles dahinter löschen
17.11.2020 08:44:02
guest123
Vielen Dank Werner!
Anzeige
Gerne u. Danke für die Rückmeldung. o.w.T.
17.11.2020 08:54:59
Werner

312 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige