Wäre Dankbar für einen Tip oder die Lösung!
MfG Diethelm
wie willst du das ganze denn lösen, wenn nicht über eine Schleife? Die müssen auch nicht zwangläufig langsam sein, wie dir folgendes Beispiel verdeutlicht:
Das Makro durchsucht alle Zellen in Spalte 1 und stoppt bei der ersten Zelle, die einen Inhalt hat. Wenn nix drinsteht läuft das Makro innerhalb von ca. 5 Sekunden durch und meldet Fertig...
Gruss
Timo
versuch mal
Gruß
Martin Beck
Gruß Diethelm
DS = 3 ' Spalte, welche getestet werden soll
ActiveSheet.UsedRange.Select
DZ = Selection.Rows.Count 'Anzahl von benutzten Zeilen
Cells(DZ + 1, DS).Select ' Feld unter dem letzt-benutzten, für Berechnung verwenden
ActiveCell.FormulaR1C1 = "=COUNTBLANK(R[-" + Mid$(str$(DZ - 1), 2) + "]C[0]:R[0]C[0])"
'Formel für ANZAHLLEEREZELLEN eintragen mit Range-Bereich der alle Zellen dieser Reihe angibt.
'(relative Bereichsangabe zur aktiven Zelle)
XX = ActiveCell.Value 'Berechneten Wert auslesen
ActiveCell.FormulaR1C1 = ""