Office: Werte in Spalte suchen und Anzahl ausgeben

Hallo Zusammen,

ich hänge bei folgendem problem und komme irgendwie nicht weiter.

ICh habe ein Tabellenblatt "Gesamtdaten" und ein Tabellenblatt "Übersicht"

In "übersicht" gibt es eine UserForm und ein Makro.

Nun möchte ich mit Hilfe eine Schleife die Spalte K in "Gesamtdaten" nach einem Wert durchsuchen. Am Ende soll dann mit Hilfe einer MsgBox die Anzahl ausgegeben werden.

Mein Code bisher:

Code:

Leider funktioert es überhaupt nicht*frown.gif*

Vielen Dank für die Hilfe.

:)

 

Moin,

ich bin zwar kein VBA´ler, aber versuch es mal so:
Code:

 

Hallo Dirk,

leider läuft er auf einen Fehler:

anzahl = WorksheetFunction.CountIf(Range("Gesamtdaten!K:K"), Wert)

Fehler: Methode Range für das Objekt Worksheet fehlgeschlagen

Danke dir für deine Hilfe

Gruß

Marco

 

Hallo Marco,

der Blattname ist korrekt?

Probier mal:
Code:

Grüße
EarlFred

 

Hi,

ja der ist korrekt*Smilie

 

Moin Marco,

und jetzt? Sollen wir weiter raten, oder zeigst Du uns den vollständigen CODE bzw. (d)eine Beispielmappe?!
Wie sieht es mit der Änderung von EarlFred aus, schon probiert?!

 

\@Dirk,

ich tippe auf: Weiter raten *biggrin.gif*

Grüße
EarlFred

 

\@EarlFred
Dann werde ich meine Glaskugel mal schnell etwas aufpolieren, vielleicht hilft es ja *grins

 

*gelöscht*

 

Hallo,

entschuldigt meine Verspätung aber ich arbeite auch mal*Smilie

ich wäre auch für raten...wie oben schon mitgeteilt, dies ist mein Code. es gibt nicht mehr. Das erwähnte Makro hat mit dieser Sache nichts zu tun und ist komplett Unabhängig von diesem Thema.

Ich habe Freds Veränderung ebenfalls getestet aber leider keinen Erfolg gehabt.

Eine Datei kann ich leider nicht zur Verfügung stellen.

Nachtrag: Nach Freds Version erscheint die Neue Fehlermeldung "objekt erforderlich...

Danke für die Hilfe.

Gruß

Marco

 

Hallo Marco,

Dann musst Du halt ausreichend beschreiben, was wir wissen müssen. Raten könnten wir zwar, aber wirklich Lust dazu habe ich nicht.

Die Fehler könnten darauf hinweisen, dass der Bezug falsch ist. Ohne Deine Hilfe kommen wir aber nicht zurande, wenn Du es Dir nicht selber zusammenreimen kannst.

Soll die Prüfung den Blattnamen verwenden oder den VBA-Codenamen?
(Letzteres vermute ich wegen Deines Codes)
Teile bitte mit, wie das Blatt, auf das die Prüfung angewendet werden soll, im Reiter heißt bzw. wie der VBA-Codename lautet.

Grüße
EarlFred

 

Moin Marco,

wir auch *biggrin.gif*

Habe mal Deinen CODE (mit keinen Anpassungen) bei mir laufen lassen ... und was soll ich sagen ... er funktioniert, langsam, aber er läuft.
Wie sollen wir jetzt noch helfen, wir sehen Deine Datei nicht ... was sollen wir jetzt machen?!

 

Hallo,

kein Problem, dann versuch ich es besser zu erklären.

Es gibt 2 Tabellenblätter: "Gesamtdaten" und "Übersicht"

Gesamtdaten ist ca. von der Art so aufgebaut:

Code:

Im Tabellenblatt "Übersicht" befindet sich ein Butto. Per Klick auf diesen soll ein weiterer Button erscheinen der mir zeigt, wie oft z.B. die 2 in der Spalte K (heißt in dem bsp. hier Teilnahmen" steht.

Ergebnis wäre also 2!

Mein Code bisher:

Code:

Die beiden o.g. VOrschläge brachten leider kein Erfolg bzw. von mir o.g. Fehler.

Wenn weiter etwas unklar ist, gerne Fragen. Hoffe war nun verständlich.

Gruß

Marco

 

Hallo Marco,

OK, die eigentliche Frage ist unbeantwortet, aber egal - rate ich halt weiter.

Die Zeile Code:

in Deinem Code bezieht sich immer auf das aktive Tabellenblatt. Dies ist aber, da der Button im anderen Blatt ("Übersicht") steht, NICHT "Gesamtdaten". Der Bereich verweist also auf das falsche Blatt - und nebenbei auch auf die falsche Spalte.
Bereits in Excel 2003 war es eine "Todsünde", einen "Abklappercode" auf eine komplette Spalte zu beziehen (wenn nicht notwendig). Wegen der deutlich höheren Zeilenanzahl ab Version 2007 ist das absolut tabu, wenn Du nicht kaffeesüchtig werden willst oder Deine Nutzer in den Wahnsinn treiben willst.

Der anschließende With-Block
Code:

bezieht sich also auf das Blatt / Userform usw mit dem Codenamen "Gesamtdaten" - nicht aber auf das Blatt "Gesamtdaten" - es sei denn, der VBA-Codename lautet genauso. Daher mein Rumhacken auf diesem Unterschied.
Der With-Block ist zudem vollkommen nutzlos, da Du Dich in keiner Zeile darin auf diesen beziehst.

Dirks Code funktioniert tadellos in der nachgebauten Zelle, sofern das Blatt "Gesamtdaten" heißt (und keinen Deut anders), mein Code ist eine Änderung der betreffenden Zeile, sofern der VBA-Codename so lautet. Der neue Code ersetzt Deinen komplett.

Grüße
EarlFred

 

Moin Marco,
die Fehlersuche hat begonnen *wink.gif*

Die 2 steht in Spalte sonstiges und
Code:

ist auch nicht Spalte K