Fehlerbehebung in Schleife
31.10.2005 11:23:19
Lian
ich lasse mir die Datensätze iner Tabelle übersichtlich anzeigen, indem ich sie nach bestimmten Kriterien selektiere.
So habe ich eine Funktion um alle Datensätze anzuzeigen, die in Spalte C keinen Eintrag aufweisen. Das funktioniert super, doch leider nur beim 1. Mal. Beim 2. Mal werden wieder alle Einträge angezeigt und beim 3. Mal wieder die gewünschten Datensätze (synonym zum 1. Mal).
Ich weis nicht, ob ich mich nur so dumm anstelle aber es gelingt mir einfach nicht, die Rows.Hidden=False anders einzubinden, so dass das Script adeuerhaft seiner Funktion gerecht wird und zudem auch ohne Fehler abläuft.
Für eine Hilfe wäre ich sehr dankbar.
Sub ZeigeLeere()
Const SuchSpalte = 3 ''für Spalte C
Dim lz As Long, i As Long
lz = Cells(Rows.Count, SuchSpalte).End(xlUp).Row
Rows.Hidden = False
For i = 7 To lz ''ab Zeile 7
Rows(i).Hidden = Cells(i, SuchSpalte) <> ""
Next i
End Sub
Am Rande noch eine andere Frage. Ist dem wirklich so, dass die von mir benutzte "For i" Schleife länger benötigt als eine "For Each"-Schleife?