title image


Smiley Re: Erste freie Zelle im Bereich einer Spalte finden
Hallo,

zB so:



Sub ErsteFreie()



Dim I As Long



If Range("B12:B25")(1) "" Then

I = Range("B12:B25").End(xlDown).Row + 1

Else

I = Range("B12:B25")(1).Row

End If

Range("B" & I).Select



End Sub






Gruß Worti <img src="http://media2.giga.de/2015/06/snapchat-smiley-sonnenbrille.png">



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: