'lngZeile = Range("I" & Rows.Count).End(xlUp).Row 'lngZeile = Worksheets("Datenblatt").UsedRange.SpecialCells(xlCellTypeLastCell).Row
'langZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
'langZeile = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
langZeile = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column
For z = 1 To lngZeile
***********
Next z
|