Hallo,
ich habe ein Datenblatt, in dem in Spalte A in Zeile 1 die Überschrift und danach ab Zeile 2 in mehreren folgenden Zeilen jeweils eine Formel steht, die sich je nach Zeile in den Zahlen ändert:
=WENN(ODER(Anmeldungen!C2="";Anmeldungen!C2="-");"";Anmeldungen!C2)
Diese Zellen kann ich manuell überschreiben. Nun möchte ich die letzte Zelle ermitteln, die mit einer Mannschaft gefüllt ist.
Mit Schleife = Worksheets("Daten").Range("A65536").End(xlUp).Row wird immer die letzte Zeile mit einer Formel gefunden.
Folgender Code funktioniert zwar schon sehr gut, aber wenn eine leere Zelle dazwischen kommt, wird er unbrauchbar:
Anz = Application.WorksheetFunction.CountA(Sheets("Daten").Range("A:A"))
intAnmeldungen = 0
For Schleife = 2 To Anz ' mit 2 beginnen, weil in A1 Überschrift
If Sheets("Daten").Range("A" & Schleife).Value "" Then
intAnmeldungen = intAnmeldungen + 1 ' Wert kommt in globale Variable
Else
Exit For
End If
Next Schleife
Wie kann ich das Problem lösen?