PDA

Vollständige Version anzeigen : letzte zeile (beschriebene) suchen...


SeNf
17.03.2009, 10:30
... und neuen datensatz über userform unten anfügen. (mit VBA)
(ist zwar schon einige male besprochen worden aber so wie ich gesehen habe immer in anderem zusammenhang)
Gruß
Steffen

pefeu
17.03.2009, 14:14
Hallo SeNf,

das sollte doch so wie immer funktionieren:

Dim lFreie As Long

lFreie = ThisWorkbook.Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row + 1

Wobei hier die Spalte 1 = A als die Spalte gnommen wurde, in der die letzte belegte Zeile ermittelt wird.

Gruß Peter

SeNf
31.03.2009, 11:26
...hab vergessen zu antworten, hat funktioniert
danke Peter
gruß
Steffen