ich stehe wieder einmal vor einem Problem.
Ich möchte in der letzten Spalte (variabel) die erste freie Zelle ermitteln.
Ich bekomme den Code hierfür einfach nicht hin. Könnt ihr mir hier weiterhelfen?
Vielen Dank schon mal.
Gruß
Jonathan
Option Explicit
Sub Jonathan()
Dim LoLetzte As Long
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, ActiveSheet.UsedRange.SpecialCells( _
xlCellTypeLastCell).Column)), _
Cells(Rows.Count, ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column).End( _
xlUp).Row, Rows.Count) + 1
MsgBox Cells(LoLetzte, ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column). _
Address
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen