letzte Spalte

Forumthread: letzte Spalte

letzte Spalte

22.04.2026 18:58:41

Opalu

Hey Profis

Wie kann ich mit VBA die letze Spalte aktivieren und in einem zweiten Schritt die letzten 40

Opal sagt schon mal Danke

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: letzte Spalte

22.04.2026 19:41:42

Onur
AW: letzte Spalte

22.04.2026 19:54:48

daniel
AW: letzte Spalte

22.04.2026 20:58:21

Opalu
AW: letzte Spalte

22.04.2026 21:27:25

Piet
AW: letzte Spalte

22.04.2026 21:15:19

daniel

AW: letzte Spalte

22.04.2026 19:41:42

Onur

Spalte ??? Echt ?

AW: letzte Spalte

22.04.2026 19:54:48

daniel

kommt darauf an, von was genau die letzte Spalte.

die letzte Spalte einer Liste
die letzte Spalte von Excel
die letzte, auf diesem Tabellenblatt verwendete Spalte?

die letze auf dem Tabellenblatt genutzte Spalte:

Cells.SpecialCells(xlcelltypelastcell).EntireColumn.Select

wenn man dann die letzten 40 Spalten will

Cells.SpecialCells(xlcelltypelastcell).EntireColumn.Offset(0, -39).Resize(, 40)

oder, wenn man sich an der Überschriftenzeile orientieren kann:

Cells(1, Columns.Count).End(xltoleft).EntireColumn.Offset(0, -39).Resize(, 40).Select

Gruß Daniel

AW: letzte Spalte

22.04.2026 20:58:21

Opalu

Hallo Profis,

Leider kann ich die Vorschläge nicht umsetzen.

Bei der Variante 1 springt die Aktive Spalte immer auf die Spalte AD und die beiden anderen laufen bei mir auf Fehler.

Ich kopiere von einer Datei 2 Spalten in eine andere Datei und möchte dabei die letzte Spalte umformatieren.

Ich bekomme das leider nicht hin.

Gruss Opalu

AW: letzte Spalte

22.04.2026 21:27:25

Piet

Hallo Opalu

probiere bitte mal diesen Code, würde mich freuen wenn es damit klappt.
Wenn du die letzten 40 Spalten markieren willst muss man prüfen, ob die letzte Spalte auch > 40 ist!
Dieses Makro sollte das können. Auf die schnelle entworfen, nicht 100% getestet.

mfg Piet

Sub test()

Dim ASp As Integer, LSp As Integer

LSp = Cells.SpecialCells(xlCellTypeLastCell).Column

If LSp  40 Then ASp = 1 Else ASp = LSp - 40



Columns(LSp).Select   'Letzte Spalte Select

MsgBox LSp



Columns("ASP:LSp").Select   'letzte 40 Spalten Select

MsgBox ASp & " " & LSp

End Sub

AW: letzte Spalte

22.04.2026 21:15:19

daniel

dann zeig bitte mal genau, was du machst (Code) und wie die Daten vorliegen.

und noch ein kleiner Tipp:
die Anfrage sollte schon so genau wie möglich sein.
in der Anfrage ist von den letzten 40 Spalten die Rede, hier jetzt nur von 2.

was ist jetzt Sache? 40 oder 2?

und wenn Fehler auftauchen, dann solltest du auch immer sagen, welcher Fehler das ist.

ich kann nämlich nicht hellsehen oder mich auf deinen Rechner einhacken.
Also sei bitte nicht sparsam mit den Informationen, die du uns gibst.

Forumthread: letzte Spalte

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread