Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1588to1592
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Anzahl leere Zeilen zählen per VBA

Anzahl leere Zeilen zählen per VBA
14.11.2017 13:45:31
Reinhardt
Hallo,
ich habe folgende Aufgabe, die ich mit Formeln nicht gelöst bekomme:
In Spalte A sind 700 Zeilen mit einer Datumsangabe zu bearbeiten.
Nicht jede Zeile enthält ein Datum.
Ich brauche in Spalte B jeweils die Anzahl der freien Zeilen zum vorigen oder auch gerne zum nachfolgenden Datumseintrag.
Beispiel: A1 Datum, A2 leer, A3 leer = B1 soll 2 stehen oder
A1 Datum, A2 leer, A3 leer = B3 soll 2 stehen
Im Falle:
A1 Datum, A2 Datum, = B1 soll 0 stehen
Wer kann mir bitte einen Tipp geben?
Viele Grüße
Reinhardt

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Anzahl leere Zeilen zählen per VBA
14.11.2017 18:24:19
Niclaus
Hallo Reinhardt
So zum Beispiel
Sub KeinDatum()
Columns("B:B").ClearContents
For i = 1 To 700
If IsEmpty(Cells(i, 1)) Then zaehler = zaehler + 1
If zaehler > 0 And Not IsEmpty(Cells(i + 1, 1)) Then Cells(i, 2) = zaehler
If Not IsEmpty(Cells(i + 1, 1)) Then zaehler = 0
Next i
End Sub
Grüsse Niclaus
Einfach Perfekt! Vielen,vielen Dank! o.T.
15.11.2017 07:19:32
Reinhardt
.
AW: Einfach Perfekt! Vielen,vielen Dank! o.T.
15.11.2017 10:17:46
Niclaus
Das freut mich. - Falls Du die andere Lösung auch gerne hättest - "die Anzahl der freien Zeilen zum vorigen Datumseintrag":
Sub KeinDatum2()
' Bezeichnung zum vorigen Datumseintrag
Columns("B:B").ClearContents
'Range("B1:B700") = 0
For i = 700 To 2 Step -1
' Achtung: to 2 nicht to 1 - A1 darf nie leer sein!
If IsEmpty(Cells(i, 1)) Then zaehler = zaehler + 1
If zaehler > 0 And Not IsEmpty(Cells(i - 1, 1)) Then
Cells(i - 1, 2) = zaehler
zaehler = 0
End If
Next i
End Sub
Grüsse Niclaus
Anzeige

318 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige