Office: Anzahl Zeilen in bestimmtem Arbeitsblatt ermitteln

Khaos · 26. März 2016

Hallo Zusammen,

ich habe eine Frage zu einem bestimmten Befehl.

Hier erstmal der Code, wie er momentan aussieht:

Dim AnzahlZellen As Single

AnzahlZellen = Worksheets("Datensätze").Range(Range("C6"), Range("C6").End(xlDown)).Rows.Count

For Z = 1 To AnzahlZellen

Re = Worksheets("Datensätze").Cells(Z + 5, 5).Value
kd = Worksheets("Iteration Lambda").Range("I4").Value
lambda = Worksheets("Iteration Lambda").Range("D23").Value
Ln10 = 2.302585093

For i = 1 To 10

LambdaNeu = lambda - (2 * Log10(2.51 / (Re * lambda ^ 0.5) + 0.27 * kd) + lambda ^ -0.5) / _
(-0.5 * (lambda ^ -1.5) - ((2.51 / Re) / ((Ln10 * 2.51 * lambda) / Re) + Ln10 * 0.27 * kd * lambda ^ 1.5))

'Jetzt muss das Lambda mit LambdaNeu überschrieben werden

lambda = LambdaNeu
'Debug.Print i

If Re = 0 Then
Exit For
End If

Next i

Iteration = lambda

Worksheets("Datensätze").Cells(5 + Z, 8) = lambda

Next Z
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Es geht mir konkret um diesen Ausdruck:

AnzahlZellen = Worksheets("Datensätze").Range(Range("C6"), Range("C6").End(xlDown)).Rows.Count
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ziel ist es, die Anzahl gefüllter Zellen von C6 an abwärts im Arbeitsblatt "Datensätze" zu ermitteln und diese dann oben in der Schleife als Endwert zu benutzen.
Solange ich mich im Arbeitsblatt "Datensätze" befinde, funktioniert alles super.
Sobald ich es jedoch verlasse und das Makro per Schaltfläche von einem anderen Arbeitsblatt starten möchte, bekomme ich eine Fehlermeldung mit:

Laufzeitfehler 1004, Anwedungs- oder objektdefinierender Fehler
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich gehe davon aus, dass durch den Blattwechsel die Ermittlung der Zellenanzahl nicht mehr funktioniert. Ich habe schon versucht, an verschiedenen stellen ein Worksheets("Datensätze"). xxx einzufügen, jedoch hat das den Fehler nicht behoben.

Was mache ich Falsch?
Kann mir da jemand helfen. Vermutlich ist die Lösung nicht schwer, ich hab im Netz nur bisher nichts gefunden, wo beide Befehle vereint werden.

Grüße

:)

Beverly · 28. März 2016

Hi,

betiehe dich mit With auf das betreffende Tabellenblatt:

Code:

With Worksheets("Datensätze")
AnzahlZellen = .Range(.Range("C6"), .Range("C6").End(xlDown)).Rows.Count
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beachte dabei die Punkte (.) jeweils vor Range - sie spiegeln den Bezug wieder.

Khaos · 28. März 2016

Hallo Beverly,

danke für deine Lösung, jetzt funktioniert das Ganze auch von einem anderen Arbeitsblatt aus.

Vielen Dank für die schnelle Hilfe! *Smilie

Office: Anzahl Zeilen in bestimmtem Arbeitsblatt ermitteln

Anzahl Zeilen in bestimmtem Arbeitsblatt ermitteln

Anzahl Zeilen in bestimmtem Arbeitsblatt ermitteln

Anzahl Zeilen in bestimmtem Arbeitsblatt ermitteln - Similar Threads - Anzahl Zeilen bestimmtem

Zellwert Tabelle1 Bestimmt Anzahl Zeilen in Tabelle2

Anzahl belegter Zeilen in bestimmten Bereich auslesen ?!

Bestimmte anzahl von Zeilen einfügen

Bestimmte Anzahl an Zeilen summieren

Makro, welches bestimmte Anzahl von Zeilen in einer Spalte ausschneidet

VBA mit Button bestimmte Anzahl von Zeilen einblenden

Bestimmte Anzahl von Zeilen pro Seite festlegen