Code kommentiert
14.04.2010 00:36:41
Erich
Hi Ernst,
hier noch mal der Code (leicht geändert (aus Max wurde Min), jetzt aber ein wenig kommentiert.
Wenn noch etwas nicht klar ist, bitte frage (möglichst konkret).
Sub SpezialAnzahl()
Dim lngCH As Long, lngDE As Long, zz As Long, lngErg As Long
'lngCH ist die letzte Zeile, in der in Spalten C und H gefüllt sind
' (höchstens bis hier können C und H mit "B" beginnen
lngCH = Application.Min( _
Cells(Rows.Count, 3).End(xlUp).Row, Cells(Rows.Count, 8).End(xlUp).Row)
'lngDE ist die letzte Zeile, in der in Spalten D und E gefüllt sind
' (höchstens bis zu dieser Zeile kann gezählt werden)
lngDE = Application.Min( _
Cells(Rows.Count, 4).End(xlUp).Row, Cells(Rows.Count, 5).End(xlUp).Row)
' am Anfang ist die Zeilennummer zz = 0
While zz + 1 0
' wenn in der Zeile D und E nicht leer sind,
If Not (IsEmpty(Cells(zz, 4)) Or IsEmpty(Cells(zz, 5))) Then _
lngErg = lngErg + 1 'Zähler hochsetzen
zz = zz + 1 ' nächste Zeile
Wend
End If
Wend
MsgBox "Ergebnis: " & lngErg
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort