Zeilen nach werten durchsuchen
09.03.2004 15:03:10
Stefan
hoffe das mir der ein oder andere helfen kann.
ich hab mit einem makro probleme.
das makro zählt die eizelnen zeilen wenn es fertig gezählt hat startet eine gruüppierung.
jetzt habe ich allerdings das problem, das wenn in einer zeile kein wert steht, das makro aufhören soll. das ist aber nicht ganz richtig! wenn zwei aufeinander folgende zeilen keinen wert enthalten soll es anhalten und nicht bei nur einer nicht belegten zeile.
vielen dank für eure hilfe
Private Sub getUsedRange(strSheetName As String, lngRowsUsed As Long)
Dim lngRowCount As Long
Dim aktZl As Variant
'Zeilen zählen
lngRowCount = 0
For Each aktZl In Sheets(strSheetName).Range("A:A")
lngRowCount = lngRowCount + 1
If aktZl = "" Then
Exit For
End If
Next aktZl
lngRowsUsed = lngRowCount - 1
End Sub