Beiträge zum Thread: letzte Spalte

Spalte ??? Echt ?

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

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

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.

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