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