Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
392to396
392to396
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilen nach werten durchsuchen

Zeilen nach werten durchsuchen
09.03.2004 15:03:10
Stefan
hallo ihr lieben helfer im excelforum,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen nach werten durchsuchen
09.03.2004 15:08:03
harry
hi stefan,
nicht getestet, aber versuchs mal mit
If aktZl = "" And aktZl.Offset(Rowoffset:=1) = "" Then
Exit For
End If
liebe grüße,
harry
Vielen Dank!!!
09.03.2004 15:11:50
Stefan
Funktioniert super. tausend dank dafür
gruß stefan
Anzeige

333 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige