AW: leere Zeile
03.04.2006 17:09:49
Franz
Hallo Herbert,
während Jan's Variante die letzte belegte Zelle in Spalte A sucht und dann eine Zelle nach unten springt, findet meine etwas kompliziertere Variante auch leere Zeilen innerhalb der Daten.
Sub Erste_leerzeile()
' Sucht 1. leere Tabellenreihe
Dim Zelle As Range, Zellchen As Range
With ActiveWorkbook.ActiveSheet
' Leere Zellen in Spalte A suchen
For Each Zelle In .Range("A1:A" & .UsedRange.Rows.Count)
If IsEmpty(Zelle) Then
' Alle Spalten in gefundener Zeile überprüfen
leer = True
For Each Zellchen In .Range(Cells(Zelle.Row, 1), Cells(Zelle.Row, .UsedRange.Columns.Count))
If Not IsEmpty(Zellchen) Then leer = False: Exit For
Next Zellchen
If leer = True Then
Zelle.Select
Exit Sub
End If
End If
If leer = False And Zelle.Row = .UsedRange.Rows.Count Then
Zelle.Offset(1, 0).Select
End If
Next Zelle
End With
End Sub
Gruß
Franz