Office: Zellen zählen in VBA

Ahoi,

da mein bisheriger Threat wohl selbst die Profis überfordert hat brech ich das Problem mal ein wenig runter.

Wie kann ich mir in VBA die gefüllten Zellen in einer unbekannt/ bekannt großen Range zählen lassen und diesen Wert für weitere Kalkulationen/ Loops nutzen?

Danke für Eure Hilfe,

julian

:)

 

Moin, julian,

aber klar doch - man hat den ganzen lieben langen Tag ja auch nichts anderes zu tun:

Code:

Wenn die UsedRange-Anweisung einem "unbekannten" Bereich entsprechen darf...

 

Hallo Jinx,

vielen Dank für Deinen Hinweis. Leider habe ich mich ein wenig unpräzise ausgedrückt. Mein Problem gestaltet sich eher wie folgt.
In der Spalte A möchte ich bis zur ersten Leerzeile oder Schlüsselzeile die Anzahl der Zeilen zählen bzw. markieren, aber nur in Spalte A.

Mit dem hieraus gewonnenen Wert möchte ich im Anschluss die Range definieren die pro Spalte markiert und kopiert werden soll.

Im Sinne von:

Code:

anstatt mir den gesamten Bereich auszuweisen bleibt nur die Zelle A6 markiert.. Warum?!

Vielen Dank und frohe Ostern *wink.gif*

Julian

 

Hallo Julian,

in VBA kann zu 99% auf select verzichtet werden. Mir ist nicht ganz klar was Du möchtest.
Die erste leere Zelle in Spalte A oder
Die letzte gefüllte Zelle in Spalte A.

Das sind zwei völlig unterschiedliche Varianten.




Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.

 

Moin, Julian,

bedenke bitte, dass jeder Leser nur die Informationen erhält, die Du preisgibst und aus diesen eine Lösung für ein nichtbekanntes Problem erstellen soll:

Code:

 

Hallo Hajo,

vielleicht stelle ich noch einmal in zwei Sätzen mein Basisproblem dar:
Ich habe eine Tabelle die in der X-Achse nach Monate sortiert ist. In der Y-Achse kann die Tabelle unterschiedliche Längen annehmen (Materialnummern). In der Fläche der Tabelle sind Planzahlen abgebildet. Diese Darstellungsform soll so aufgelöst werden, dass sie in eine DB eingelesen werden kann --> material/ Monat/ Planzahl.

Mein Ansatz ist die Anzahl der Materialien zu berechnen und diese in ein neues Blatt zu kopieren und die jeweiligen Planzahlen und Monate daneben zu schreiben.

Im Anhang zu dem Threat stelle ich eine beispieldatei. Solltest Du mir helfen können wäre ich extrem tief in deiner schuld...

 

Hallo Caspar,

warum per Makro?

	A	B	C
30	Bezeichnung	Monat	Anzahl
31	Nokia 7610	Jan 05	0
32	Nokia 810	Jan 05	0
33	Nokia 9210i	Jan 05	0
34	Nokia 9300	Jan 05	0
35	Nokia 9500	Jan 05	0
36	Panasonic P341i	Jan 05	0
37	Qtek 2020	Jan 05	0
38	Qtek 9090	Jan 05	0
39	Samsung D500	Jan 05	0
40	Samsung P730	Jan 05	0
41	Samsung S341i	Feb 05	0
42	Nokia 7610	Feb 05	0
43	Nokia 810	Feb 05	0
44	Nokia 9210i	Feb 05	0
45	Nokia 9300	Feb 05	0
46	Nokia 9500	Feb 05	0
47	Panasonic P341i	Feb 05	0
48	Qtek 2020	Feb 05	0
49	Qtek 9090	Feb 05	0
50	Samsung D500	Feb 05	0
51	Samsung P730	Feb 05	0
52	Samsung S341i	Feb 05	0
53	Nokia 7610	Mrz 05	0
54	Nokia 810	Mrz 05	0
55	Nokia 9210i	Mrz 05	0
56	Nokia 9300	Mrz 05	0
57	Nokia 9500	Mrz 05	123
58	Panasonic P341i	Mrz 05	0
59	Qtek 2020	Mrz 05	0
60	Qtek 9090	Mrz 05	0
61	Samsung D500	Mrz 05	0
62	Samsung P730	Mrz 05	0
63	Samsung S341i	Mrz 05	0
64
65	Von Johannes von http://www.ms-office-forum.net/forum/forumdisplay.php?s=&daysprune=&forumid=29&x=11&y=10

B31 : =HEUTE()-60
C31 : =INDEX($A:$G;VERGLEICH(A31;$A:$A;0);VERGLEICH(B31;$A:$G))
B32 : =HEUTE()-60
C32 : =INDEX($A:$G;VERGLEICH(A32;$A:$A;0);VERGLEICH(B32;$A:$G))
B33 : =HEUTE()-60
C33 : =INDEX($A:$G;VERGLEICH(A33;$A:$A;0);VERGLEICH(B33;$A:$G))
B34 : =HEUTE()-60
C34 : =INDEX($A:$G;VERGLEICH(A34;$A:$A;0);VERGLEICH(B34;$A:$G))
B35 : =HEUTE()-60
C35 : =INDEX($A:$G;VERGLEICH(A35;$A:$A;0);VERGLEICH(B35;$A:$G))
B36 : =HEUTE()-60
C36 : =INDEX($A:$G;VERGLEICH(A36;$A:$A;0);VERGLEICH(B36;$A:$G))
B37 : =HEUTE()-60
C37 : =INDEX($A:$G;VERGLEICH(A37;$A:$A;0);VERGLEICH(B37;$A:$G))
B38 : =HEUTE()-60
C38 : =INDEX($A:$G;VERGLEICH(A38;$A:$A;0);VERGLEICH(B38;$A:$G))
B39 : =HEUTE()-60
C39 : =INDEX($A:$G;VERGLEICH(A39;$A:$A;0);VERGLEICH(B39;$A:$G))
B40 : =HEUTE()-60
C40 : =INDEX($A:$G;VERGLEICH(A40;$A:$A;0);VERGLEICH(B40;$A:$G))
B41 : =HEUTE()-30
C41 : =INDEX($A:$G;VERGLEICH(A41;$A:$A;0);VERGLEICH(B41;$A:$G))
B42 : =HEUTE()-30
C42 : =INDEX($A:$G;VERGLEICH(A42;$A:$A;0);VERGLEICH(B42;$A:$G))
B43 : =HEUTE()-30
C43 : =INDEX($A:$G;VERGLEICH(A43;$A:$A;0);VERGLEICH(B43;$A:$G))
B44 : =HEUTE()-30
C44 : =INDEX($A:$G;VERGLEICH(A44;$A:$A;0);VERGLEICH(B44;$A:$G))
B45 : =HEUTE()-30
C45 : =INDEX($A:$G;VERGLEICH(A45;$A:$A;0);VERGLEICH(B45;$A:$G))
B46 : =HEUTE()-30
C46 : =INDEX($A:$G;VERGLEICH(A46;$A:$A;0);VERGLEICH(B46;$A:$G))
B47 : =HEUTE()-30
C47 : =INDEX($A:$G;VERGLEICH(A47;$A:$A;0);VERGLEICH(B47;$A:$G))
B48 : =HEUTE()-30
C48 : =INDEX($A:$G;VERGLEICH(A48;$A:$A;0);VERGLEICH(B48;$A:$G))
B49 : =HEUTE()-30
C49 : =INDEX($A:$G;VERGLEICH(A49;$A:$A;0);VERGLEICH(B49;$A:$G))
B50 : =HEUTE()-30
C50 : =INDEX($A:$G;VERGLEICH(A50;$A:$A;0);VERGLEICH(B50;$A:$G))
B51 : =HEUTE()-30
C51 : =INDEX($A:$G;VERGLEICH(A51;$A:$A;0);VERGLEICH(B51;$A:$G))
B52 : =HEUTE()-30
C52 : =INDEX($A:$G;VERGLEICH(A52;$A:$A;0);VERGLEICH(B52;$A:$G))
B53 : =HEUTE()
C53 : =INDEX($A:$G;VERGLEICH(A53;$A:$A;0);VERGLEICH(B53;$A:$G))
B54 : =HEUTE()
C54 : =INDEX($A:$G;VERGLEICH(A54;$A:$A;0);VERGLEICH(B54;$A:$G))
B55 : =HEUTE()
C55 : =INDEX($A:$G;VERGLEICH(A55;$A:$A;0);VERGLEICH(B55;$A:$G))
B56 : =HEUTE()
C56 : =INDEX($A:$G;VERGLEICH(A56;$A:$A;0);VERGLEICH(B56;$A:$G))
B57 : =HEUTE()
C57 : =INDEX($A:$G;VERGLEICH(A57;$A:$A;0);VERGLEICH(B57;$A:$G))
B58 : =HEUTE()
C58 : =INDEX($A:$G;VERGLEICH(A58;$A:$A;0);VERGLEICH(B58;$A:$G))
B59 : =HEUTE()
C59 : =INDEX($A:$G;VERGLEICH(A59;$A:$A;0);VERGLEICH(B59;$A:$G))
B60 : =HEUTE()
C60 : =INDEX($A:$G;VERGLEICH(A60;$A:$A;0);VERGLEICH(B60;$A:$G))
B61 : =HEUTE()
C61 : =INDEX($A:$G;VERGLEICH(A61;$A:$A;0);VERGLEICH(B61;$A:$G))
B62 : =HEUTE()
C62 : =INDEX($A:$G;VERGLEICH(A62;$A:$A;0);VERGLEICH(B62;$A:$G))
B63 : =HEUTE()
C63 : =INDEX($A:$G;VERGLEICH(A63;$A:$A;0);VERGLEICH(B63;$A:$G))

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen

 

hmmmm, das klingt zu schön um wahr zu sein... dass muss ich jetzt erst einmal verdauen! VIELEN DANK!

woher kommen denn jetzt die werte in der spalte a und wie wird definiert wann das ender der liste erreicht ist? ich bin durch und durch verwirrt..

julian

 

Hallo Julian,

falls Du meinen Beitrag meinst, die Werte in Spalte A hast Du doch eingetragen. Ich bin davon ausgegangen das dies Problem nicht besteht.
Die Tabelle ist definiert durch folgende Angabe $A$3:$G$15
Die Artikel durch $A$3:$A$15
Die Monate durch $A$3:$G$3

Wobei ich sagen muß Formel sind nicht mein Hauptgebiet. Diese Formel ist wie im Beitrag geschrieben von Johannes, nur auf Deine Bedingungen angepast.

Gruß Hajo

Das Forum lebt auch von den Rückmeldungen.