in benannten Bereich erstefrei Zelle ermiitteln
01.03.2005 17:42:06
Peter
wie ermittelt man die erste freie Zeile im Bereich "Test"
und die letzte Zeile im Bereich "Test"
Danke Peter
Sub Test2()
Dim Sh
Dim Zeile
'Namensbereich "Test"=A9:E26
Set Sh = ThisWorkbook.Worksheets("Tabelle1")
'ermitteln der ersten freien Zeile
Zeile = Sh.Range("Test").CurrentRegion.Rows.Count + 1
Sh.Cells(Zeile, 1).Value = "Test"
End Sub