title image


Smiley Re: Erste freie Zelle im Bereich einer Spalte finden
vielleicht so von manes am 04.05.2006 um 07:58:43



Sub letzteZeile()

Dim r_Startzelle As Range

Dim r_Bereich As Range

Dim lng_LetzteZeile As Long

Set r_Startzelle = ActiveSheet.Range("a1")

Set r_Bereich = r_Startzelle.CurrentRegion

lng_LetzteZeile = r_Bereich.Cells(r_Bereich.Rows.Count, 1).Row

MsgBox lng_LetzteZeile

End Sub







Gruß gega

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: