Zeilen Suchen!

Forumthread: Zeilen Suchen!

Zeilen Suchen!

17.12.2003 12:57:44

Juan

Hi Forum !

Möchte in einer Spalte mittels Makro nach leeren Zeilen suchen. Sind eine oder mehrere Leerzeilen gefunden. Soll weiter nach leeren Zeilen gesucht werden, bis ans Ende der Spalte.

Danke im Voraus!

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zeilen Suchen!

17.12.2003 13:13:59

ChrisL

AW: Zeilen Suchen!

17.12.2003 13:13:59

ChrisL

Hi Juan

Etwa so...

Option Explicit


Sub t()
Dim iZeile
If Application.WorksheetFunction.CountBlank(Range("A1:A" & Range("A65536").End(xlUp).Row)) = 0 Then
MsgBox "Keine Leerzeilen gefunden"
Exit Sub
End If
For iZeile = 1 To Range("a65536").End(xlUp).Row
If Cells(iZeile, 1) = "" Then MsgBox "Zelle A" & iZeile & " ist leer."
Next iZeile
End Sub

Gruss
Chris

Forumthread: Zeilen Suchen!

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread