|
Prima, dann hat sich Dein Problem gelöst.
Dennoch möchte Ich Dir folgendes posten (zusätzlich zu Werners Methodik oben), um alle Zellen in einem definierten Bereich durchzugehen, verwende ich gerne folgende Vorgehensweise:
Sub ThroughEachZellInRange()
'
Dim rng as Range, c as Range
'
set rng = Range("A1:A10") 'Hinweis: bezieht auf das aktive Worksheet
'
For each c in rng
'Deine Bedingungen/Prüfungen
Next
'
set c = nothing: set rng = nothing
End Sub
Dazu brauchts keinen Schleifenzähler den man zu UsedRange.Rows.Count dazuzählen müsste.
Im Grunde ist dies aber auch nur eine weitere Möglichkeit von viiielen Möglichkeiten.
Hinweis:
Bei Massenverarbeiten empfiehlt sich die Verwendung Deiner eingesetzte For-Next-Schleife in Kombination mit Cells().
.Select kannst (fast) immer weglassen; es ei denn, Du möchtest dem Code zuschauen ;)
|