Sub Ertezeile()
Range("A65536").End(xlUp).Offset(1, 0).Select
End Sub
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
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