ich bin gerade dabei meine Formeln von Excel auf VBA umzustellen, schafe dies allerdings nicht so recht.
Da ich teilweise bis zu 30.000 Zeilen an Daten habe kommt excel mit Formeln an seine Grenzen bzw. mein Rechner.
Ich habe hier nun folgende Formel, die ich gerne auf VBA umstellen würde.
In Analysis!E22: =ZÄHLENWENN('Daten'!$E$23:$E$1000;Analysis!$C22)
Es soll der Bereich " 'Daten'!$E$23:$E$1000" durchsucht werden, wobei die letzte Zeile nicht E1000 sein soll. Es soll nur der Bereich durchsucht werden wo auch Werte drin sind. Sprich: Range(.Cells(23, 5), .Cells(Rows.Count, 5).End(xlUp))
Das Suchkriterium steht in "Analysis!$C22". Ist der Datenbereich durchsucht und die Anzahl ermittelt, dann soll die nächste Zeile gewählt werden bis leer.
Dim z As Integer
Dim leer As Integer
z = 23
Do
If .Cells(z, 3) "" Then
leer = False
Else
leer = True
.
.
.
End If
z = z + 1
Loop Until leer = True
End With
Leider bekomm ich dies alleine nicht in VBA umgesetzt, vielleicht kann mir dabei jemand helfen.
Danke schon einmal.
Gruß Markus