VBA-Macro-in erste freie Zelle kopieren
AnneTi
Anzeige
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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen