Forumbeitrag
Excel-Version des Fragestellers:
365 privat
Erfahrungslevel des Fragestellers:
Excel gut - VBA nein
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