Office: (Office 2007) Zählen von Zellen bis zur ersten leeren Zelle

Hallo,
wer kann mir bei folgendem Problem helfen?
In einer Spalte haben ich Werte in Zellen untereinander stehen. Ich möchte mit einem Makro bestimmen wieviele Zellen es von einer vorgegeben Startzelle zu der ersten leeren Zelle sind.
Wie könnte hier ein Ansatz aussehen?
Vielen Dank!

:)

 

Hallo Bettina,

ich habe folgende Ausgangsdaten:

	A
1
2
3	1
4	1
5	1
6	1
7	1
8	1
9	1
10	1
11	1
12	1
13	1
14
15	2
16	2

Excel Tabellen im Web darstellen >>

 

Vielen Dank für die schnelle Antwort. Allerdings funktioniert das bei mir noch nicht richtig.
In meiner Tabelle habe ich die Zellen von H7 bis H32 mit Werten belegt. Das Ergebnis das ich erwarte ist 25. Mit dem Code

Dim anzahl

anzahl = Range("H7").End(xlDown).Row - 7

erhalte ich allerdings die Anzahl aller Zeilen, also die maximale Anzahl die bei Excel grundsätzlich möglich ist.
Das einfache Beispiel habe ich ausprobiert und hat auch funktioniert.
Aber wo liegt denn bei meinem Beispiel noch der Fehler?

 

Die Endfunktion hat so ihre Tücken *wink.gif*
versuchs mal so:

Code:

 

Das funktioniert so leider noch nicht.
Ich muss zugeben: Vorallem die dritte Zeile von unten hab ich noch nicht wirklich nachvollziehen können. Aber ich habe den Code ausprobiert und mir die Ausgabewerte angesehen.
Me.Rows.Count ist hier 65536, also die maximale Anzahl von Zeile die bei Excel möglich sind.
xlColumns ist hier 2
Der Wert der erstefreieZelle = Wert erste Zelle, also hier. Das heisst das Endergenbis ist null.
Wo kann hier noch der Fehler liegen? Welcher Wert muss denn eigentlich für Me.Rows.Count ausgegeben werden?
Vielen Dank für die Hilfe!

 

Hallo Bettina,

diesen Code .....

Code:

... auf das von Dir eingestellte Bsp. angewand bringt bei mir "1" als Ergebnis (was auch falsch ist, da das keine freie Zelle ist - aber das will ich jetzt erst einmal vernachlässigen).

Den Code etwas angepaßt ...

Code:

... bringt dann aber die erwarteten 25 als Ergebnis.

Ich gehe mal davon aus, dass Du in Deiner Originaldatei noch Formeln (oder etwas anderes) unter Deinen Zahlen stehen hast. Sonst sollte es nämlich funktionieren.

Schau doch bitte nochmal, ob es klappt, wenn Du obiges beachtest.

cu
myfake

 

Der Code ist grundsätzlich schon richtig. Ich kann das auch an meinem Beispiel nachvollziehen. Ich erhalte auch den Wert 25.
In meiner Originaldatei sind andere Zellen ebenfalls noch belegt. Allerdings sind in diesen Bereich, den ich auch im Beispiel verwendet habe, nur Werte ohne Formeln enthalten.
Verwende ich den Code ohne Änderung in meinem Makro erhalte ich die Fehlermeldung "Überlauf". Deklariere ich die Variable als anderen Datentyp wie z.B Variant, so läuft es ohne Fehlermeldung. Das Ergebnis ist dann aber total falsch.
Was kann hier noch das Problem sein?
Vielen Dank!

 

Hallo Bettina,

dann werden es wohl mehr als 32.767 Zeilen sein (dort hört die Integer-Variable nämlich auf *wink.gif* ). Teste es mal mit der Dimensionierung als Long. Du wirst wahrscheinlich das selbe Ergebnis erhalten, wie bei der Dimensionierung als Variant (belegst aber weniger Speicherplatz *Smilie ).

Bei der Suche nach dem Fehler solltest Du mal in der Spalte (in der nach der ersten freien Zelle gesucht werden soll) mal die Tastenkombination Ende + Pfeil nach unten verwenden. Bis wohin läuft die Markierung? Das ist dann auch genau die Stelle, die vom Code gefunden wird. Wenn Du eigentlich weiter oben erwartet hast, weil in dieser Zelle "nichts" steht, dann schau mal, ob nicht eine Formel drin steht. In dem Fall gilt die Zelle nicht als leer!

cu
myfake

 

Jetzt funktioniert's.
Ein ganz dummer Fehler:
Ich hab mehrere Tabellenblätter und mit Worksheets("") muss ich natürlich vor Range noch eins festlegen.
Vielen Dank nochmal für die Hilfe!