PDA

Vollständige Version anzeigen : auf einander folgende leere Zeilen


genij
20.04.2009, 22:01
Hallo leute,

Habe folgendes Problem.

Ich soll in der Spalte A eine leere Zeile suchen, auf die 3 Leerzeilen folgen.

Vielen Dank im Voraus

BoskoBiati
20.04.2009, 22:13
Hallo genij,

wenn es irgendwo in der Spalte A sein soll, dann so:


Option Explicit
Public Sub leerzeilen()

Dim intA As Integer
Dim loZeile As Long
loZeile = 1

Do Until loZeile = 65531
If Cells(loZeile, 1) = "" And Cells(loZeile + 1, 1) = "" And Cells(loZeile + 2, 1) = "" And Cells(loZeile + 3, 1) = "" Then Exit Do
loZeile = loZeile + 1

Loop
Cells(loZeile, 1).Activate

End Sub

Findet aber nur das erste Vorkommen.

jinx
21.04.2009, 05:44
Moin, genij,

wenn die Zellen wirklich leer sind (hier wird keine Prüfung auf Inhalt von Zeile 1 bzw. Zelle A1 durchgeführt):

Sub FindContinuousEmptyRows()
Dim lngLastRow As Long
Dim lngPresent As Long

Const clngABSTAND As Long = 3

Application.ScreenUpdating = False
With ActiveSheet
lngLastRow = .Cells(Rows.Count, "A").End(xlUp).Row
lngPresent = 1
Do While lngPresent < lngLastRow
lngPresent = .Cells(lngPresent, "A").End(xlDown).Row
If .Cells(lngPresent, "A").End(xlDown).Row - lngPresent >= clngABSTAND Then Exit Do
Loop
End With
Application.ScreenUpdating = True

MsgBox "Gesuchter Bereich beginnt mit A" & lngPresent + 1

End Sub
@Edgar:
wie kommst Du auf die Zahl 65531?