VBA-Macro-in erste freie Zelle kopieren
AnneTi
Option Explicit
Sub naechste_leere_Zelle()
'* H. Ziplies *
'* 14.11.08 *
'* erstellt von HajoZiplies@WEB.de *
'* http://Hajo-Excel.de
Dim RaFound As Range
Dim LoLetzte As Long
' Spalte A
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows. _
Count)
Set RaFound = Range("A1:A" & LoLetzte).Find("", Range("A" & LoLetzte), , xlPart, , xlNext)
If Not RaFound Is Nothing Then
MsgBox RaFound.Address
End If
Set RaFound = Nothing
End Sub
Option Explicit
Sub naechste_leere_Zelle()
'* H. Ziplies *
'* 11.06.2012 *
'* erstellt von HajoZiplies@WEB.de *
'* http://Hajo-Excel.de
Dim RaFound As Range
' Spalte A
Set RaFound = Range("A1:A" & Rows.Count).Find("", , , xlPart, , xlNext)
If Not RaFound Is Nothing Then
MsgBox RaFound.Address
End If
Set RaFound = Nothing
End Sub