Office: Anzahl verschiedener werte prüfen und ausgeben

Hallo Leute,

ich versuche gerade mit VBA zu überprüfen wieviele verschiedene Werte in einer Spalte in einem Excelsheet sind. Leider kommt bei mir der Fehler: Laufzeitfehler 14, Typen unverträglich. Ich vermute dass es an dem Inhalt liegt, in der Spalte steht nämlich Text und keine Zahlen.

Hier mein Code:
Sub DatenAuswerten()
MsgBox Evaluate("=Sum(If(A3:A300"""",1/CountIf(A3:A300,A1:300)))")
End Sub

Kann mir da jemand helfen?

:)

 

Du hast einen Tippfehler, würde ich sagen:
Code:

Funktioniert es jetzt?
VG

 

AAAAAhhhhh verdammt, sorry. Ja hab es noch vor dem Abschicken im Editor verbessert, jedoch die alte Version gepostet. Ne das funktioniert leider immer noch nicht. Hast sonst noch eine Idee. Ich weiß nämlich echt nicht woran es liegt.

 

Hab dann noch einen zweiten Tippfehler anzubieten, denn eigentlich sollte die Formel funktionieren ^^
Code:

 

du solltest gleich große Bereich nehmen und richtig bezeichnen.
MsgBox Evaluate("=Sum(If(A3:A300"""",1/CountIf(A3:A300,A3:A300)))")

 

Vielen Dank Leute, jetzt funktioniert es, ich bekomme die Anzahl der verschiedenen Werte angezeigt.

Jetzt würde ich gerne jeden unterschiedlichen Wert mir in eine andere Arbeitsmappe kopieren und eintragen lassen. Wie sollte ich dies am besten lösen? mit einer For Each?

 

warum VBA?
Unterschiedliche Einträge in Spalte
http://www.excelformeln.de/formeln.html?welcher=194
erste Zelle =erster Eintrag oder {=INDEX(O:O;MIN(WENN(O1:O31"";ZEILE(1:31))))}
zweite Zelle {=WENNFEHLER(INDEX(O:O;VERGLEICH(1;(ZÄHLENWENN($P$1:P1;$O$1:$O$31)=0)*($O$1:$O$3 1"");0));"")}

 

Hab nun den Status auf erledigt gesetzt. Vielen Dank nochmal

 

Ich hab dieses Thread wieder unerledigt gesetzt.

Ich will nun nämlich dass er mir nicht anzeigt wieviele verschiedene Werte es gibt, sondern diese Werte in eine andere Tabelle schreibt. Bekomme das irgendwie nicht hin.

 

Hallo,

wie wäre es damit:
Code:

Der Bereich muss die Überschrift enthalten, bei Bedarf kannst du sie hinterher löschen.
Hilft dir das?

VG

 

Ja vielen Dank, es läuft jetzt wie gewünscht.

Jetzt möchte ich dass mir nicht nur angezeigt wird, wieviele verschiedene Artikel es gibt, sondern wie oft jeder verschiedene Artikel vorkommt. Also aufbauend auf das letzte, soll in der Spalte rechts von den verschiedenen Artikel deren Anzahl angezeigt werden. Gibt es da ähnlich wie bei Sql eine Gruppierungsfunktion?

 

Hallo Leute. Ich habe in einer Excel-Tabelle knappe 300 Zeileneinträge. Jetzt möchte ich in Spalte B nach unterschiedlichen Werten suchen und dann jeweils von allen verschiedenen Werten die Anzahl sowie deren Bezeichnung in eine andere Tabelle eintragen.

Kann mir da jemand helfen?

 

Hallo,

ich empfehle eine Pivottabelle.
Hier wird diese sehr gut erklärt

Hilft dir das weiter?

VG

 

Genau, das ist perfekt. Vielen dank *Smilie

 

Hallo.

Kann ich eine Pivot-Tabelle auch mit VBA erstellen? Es soll in etwa wie folgt funktionieren:

Der User drückt einen Button und wird aufgefordert, die Spalte, in welcher nach unterschiedlichen Werten gesucht werden, auszuwählen, also eine ComboBox oder so. Danach soll die Pivot-Tabelle erstellt werden. Ich finde dazu nichts richtiges.