Hi!
Kann mir jemand sagen warum dieser Mist nicht funktioniert???
Function LeerZelle(Spalte As Long) As Variant
Dim Erg As Variant
Set Erg = Sheets("Tabelle1").Columns(Spalte).Find(Empty)
LeerZelle = Erg.Row
End Function
Im Einzelschrittmodus ist alles korrekt nur in einer Zelle nicht mehr - nur mehr Fehlermeldung #WERT!
mfg Elac7
|