'entwickelt von Winfried Radner
'e-mail: Wolf.W.Radzinski@onlinehome.de
'Benutzung frei - ohne Gewähr

'findet erste Leerzelle oberhalb von Activecell

Sub leere_zelle_ueber_ac_finden()
x = xlblank
Set r = ActiveCell.EntireColumn.Find(What:=x, after:=ActiveCell, _
             LookIn:=xlValues, LookAt:=xlWhole, _
             SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)
If Not r Is Nothing And r.Row < ActiveCell.Row Then
             r.Select
             Else
             MsgBox "alles voll!"
             End If
End Sub

'findet erste Leerzelle unterhalb von Activecell

Sub leere_zelle_unter_ac_finden()
x = xlblank
Set r = ActiveCell.EntireColumn.Find(What:=x, after:=ActiveCell, _
             LookIn:=xlValues, LookAt:=xlWhole, _
             SearchOrder:=xlByColumns, SearchDirection:=xlNext)
If Not r Is Nothing And r.Row > ActiveCell.Row Then
             r.Select
             Else
             MsgBox "alles voll!"
             End If
End Sub