Microsoft Excel

Herbers Excel/VBA-Archiv

Letzte x Spalten löschen / Spalten nach

Betrifft: Letzte x Spalten löschen / Spalten nach von: Aaron Failenschmid
Geschrieben am: 09.09.2020 11:00:48

Hallo zusammen,

Ich möchte in meiner Tabelle die letzten 9 Spalten löschen.

Da die Gesamtspaltenanzahl leider variabel ist kann ich leider nicht die Spalten direkt adressieren.

Die Spalte "Bemerkung", vor den letzten 9, bleibt allerdings immergleich, d.h. man könnte alle Spalten anch Spalte "Bemerkung" löschen.

Ich hoffe jemand kann mir weiterhelfen.

Danke im Vorraus

A.F.

Betrifft: AW: Letzte x Spalten löschen / Spalten nach
von: Daniel
Geschrieben am: 09.09.2020 11:09:20

Hi

die letzten neun Spalten löschen:
With Cells(1, 1).CurrentRegion.EntireColumn
   .Offset(0, .Columns.Count - 9).Resize(, 9).Delete
End With
ab "Bemerkung".
Range(Rows(1).Find(What:="Bemerkung"), Cells.SpecialCells(xlcelltypelastcell)).Offset(0, 1).EntireColumn.Delete
Gruß Daniel

Betrifft: AW: Letzte x Spalten löschen / Spalten nach
von: GerdL
Geschrieben am: 09.09.2020 11:14:42

Moin Aaron!
Cells(1, Application.Match("Bemerkung"), Rows(1), 0). _
Offset(0, 1).Resize(1, 9).EntireColumn.Delete

Gruß Gerd

Beiträge aus dem Excel-Forum zum Thema "Letzte x Spalten löschen / Spalten nach "