Office: Spalte auslesen und Werte zählen

Hallo zusammen,

ich habe jetzt schon ein wenig mich versucht aber mir kommt kein guter Ansatz für folgendes Problem (im Anhang dann auch eine Beispieldatei).

Tabellenblatt 1:
In Spalte D habe ich Werte mit mehreren Einträgen.
In Spalte H habe ich diverse Parameter (hier im Beispiel: ja, nein und leer, ABER die Parameter sind unbekannt und müssen ausgelesen werden)

Tabellenblatt 2:
In Spalte D sind die gleichen Werte wie zuvor auf Blatt 1, jedoch ohne doppelten Einträge (habe die Beispieldatei aus einer größeren Datei erstellt, wo dieser Prozess automatisch geht und zum Teil andere Zahlenwerte addiert)
In Spalte H soll nun die Parameter stehen die zu dem jeweiligen Wert passen und die Anzahl dazu.

Tabellenblatt 3:
Existiert jetzt nur in der Beispieldatei und soll den "soll-Zustand" darstellen.

Meine Idee wäre gewesen jedoch hakt es dann an der vba Umsetzung.

1. Schlaufe erstellen die durch jeden Wert in Spalte D geht und den passenden Wert in Spalte D des Blatts 1 sucht.
2. Wenn Wert in Blatt 1 gefunden, dann den dazugehörigen Wert aus Spalte H auslesen und anfangen zu zählen. Wenn ein neuer Wert hinzukommt diesen erneut zählen.
3. Auf Blatt 2 in spalte H eintragen, Wert mit Anzahl.

Ich hoffe ihr könnt mir ein wenig weiterhelfen.

Gruß PeterPan

:)

 

Hallo,

erst einmal möchte ich die Aufgabenstelluing loben, für mich ist es sehr klar, was du möchtest *Smilie
Über VBA kann man das Vorhaben sicherlich umsetzen. Bevor ich mich allerdings daran setze, möchte ich wissen, ob du dir als Ergebnis auch eine andere Darstellung vorstellen kannst. Dann ist eine Pivottabelle das richtige und vieeeel schneller zu erstellen *wink.gif*

Tabelle4

	A	B	C	D	E
3	Anzahl von Daten	Spaltenbeschriftungen
4	Zeilenbeschriftungen	ja	nein	(Leer)	Gesamtergebnis
5	A	2	1	2	5
6	B	2			2
7	C	2	1		3
8	D	2	1		3
9	E	1			1
10	Gesamtergebnis	9	3	2	14

Excel-Inn.de

Hajo-Excel.de

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 18.01 einschl. 64 Bit

Viele Grüße

 

Hallo PeterPan,

muss es per VBA sein?

Mit Formel ginge das einfach:

Tabelle3

	D	E	F
5	A		2x ja; 1x nein; 2x leer
6	B		2x ja; 0x nein; 0x leer
7	C		2x ja; 1x nein; 0x leer
8	D		2x ja; 1x nein; 0x leer
9	E		1x ja; 0x nein; 0x leer

Zelle	Formel
F5	=ZÄHLENWENNS(Tabelle1!$D:$D;Tabelle3!D5;Tabelle1!$H:$H;"ja") & "x ja; " & ZÄHLENWENNS(Tabelle1!$D:$D;Tabelle3!D5;Tabelle1!$H:$H;"nein") & "x nein; " & ZÄHLENWENNS(Tabelle1!$D:$D;Tabelle3!D5;Tabelle1!$H:$H;"") & "x leer"
F6	=ZÄHLENWENNS(Tabelle1!$D:$D;Tabelle3!D6;Tabelle1!$H:$H;"ja") & "x ja; " & ZÄHLENWENNS(Tabelle1!$D:$D;Tabelle3!D6;Tabelle1!$H:$H;"nein") & "x nein; " & ZÄHLENWENNS(Tabelle1!$D:$D;Tabelle3!D6;Tabelle1!$H:$H;"") & "x leer"
F7	=ZÄHLENWENNS(Tabelle1!$D:$D;Tabelle3!D7;Tabelle1!$H:$H;"ja") & "x ja; " & ZÄHLENWENNS(Tabelle1!$D:$D;Tabelle3!D7;Tabelle1!$H:$H;"nein") & "x nein; " & ZÄHLENWENNS(Tabelle1!$D:$D;Tabelle3!D7;Tabelle1!$H:$H;"") & "x leer"
F8	=ZÄHLENWENNS(Tabelle1!$D:$D;Tabelle3!D8;Tabelle1!$H:$H;"ja") & "x ja; " & ZÄHLENWENNS(Tabelle1!$D:$D;Tabelle3!D8;Tabelle1!$H:$H;"nein") & "x nein; " & ZÄHLENWENNS(Tabelle1!$D:$D;Tabelle3!D8;Tabelle1!$H:$H;"") & "x leer"
F9	=ZÄHLENWENNS(Tabelle1!$D:$D;Tabelle3!D9;Tabelle1!$H:$H;"ja") & "x ja; " & ZÄHLENWENNS(Tabelle1!$D:$D;Tabelle3!D9;Tabelle1!$H:$H;"nein") & "x nein; " & ZÄHLENWENNS(Tabelle1!$D:$D;Tabelle3!D9;Tabelle1!$H:$H;"") & "x leer"

Excel Tabellen im Web darstellen >>

 

Hallo Hasso,

es ist nicht bekannt, dass die Einträge "ja", "nein" und "" lauten, das ist nur im Beispiel der Fall.

VG

 

Wie immer: wer lesen kann, ist klar im Vorteil *mad.gif*

Asche auf mein Haupt.

 

Hallo zusammen,

ja ich weiß pivot wäre fix, aber ich habe ja nicht nur die Spalte H sondern noch circa 4-5 andere Spalten.

Ich dachte eben, ich kann die Spalten nachträglich selbst in den code einpflegen.

VG

 

Mc Santa eine Idee bzw. einen Ansatz?
Oder vielleicht hat sonst jemand eine Idee?

VG

 

Hallo,

ich habe jetzt folgenden Code geschrieben, vielleicht hilft dir das weiter.
Finde es etwas umständlich, da ich verschachtelte Dictionarys nutze, aber weiß nicht, wie man es sonst schnell hinbekommen kann. Falls du Probleme beim Anpassen auf andere Spalten hast, dann einfach melden.

Code:

Code hängt auch als Datei an.

Fragen und Feedback gerne.
Viele Grüße
Mc Santa

 

Funktioniert natürlich hervorragend.

Vielen Dank.

1. Jetzt weiß ich nur nicht wie ich weitere Spalten in das Dictionary bekomme (ja ich dachte mit kleinen VBA Kenntnissen, könnte ich das selbst managen) und zweitens würde ich gerne wissen, wie ich die Ausgabe beeinflussen kann.

Buchstabe zb in Spalte F, und Wert (gezählte Werte) in Spalte I und weitere Werte aus den zusätzlichen Spalten in Spalten K etc., also nicht aneinanderhängende Spalten bei der Ausgabe. Bekomme es nicht hin*frown.gif*. Ansonsten werde ich es über Spalten dazwischen einfügen managen, dann würde nur noch 1. Punkt offen bleiben.

Ansonsten läuft es genau wie ich es mir vorstelle, einfach Hammer!

DANKE!!!!

VG

 

Hallo McSanta

hättest du zu obigem Post noch einen Input bzw. ich kann den Code nicht komplett nachvollziehen und so ist es schweirig da noch weitere Werte in das Dictionary einzubauen (welches funktioniert, nur werden die nicht in einer neuen/gewünschten Spalte ausgegeben).

Danke schon mal im Voraus für die Hilfe.

VG
PeterPan

 

Hallo,

ich bin nicht sicher, wie du das mit weiteren Spalten genau meinst.
Soll der Code identisch nur für verschiedene Spalten durchlaufen, oder sollen die Spalten auf eine bestimmte Art gemeinsam betrachtet und verküpft werden?

Viele Grüße
Mc Santa

 

Hallo,

Ich möchte wie beschrieben weiterhin Spalte D als meine keys lassen. Spalte H wurden die gleichen Werte gezählt.
Jetzt habe ich noch Werte in Spalte K,M,O. Dort solen auch die Werte gezählt werden.

Output Sollte dann wie zuvor sein nur, sollten die zusätzlichen gezählten Werte aus den zusätzlichen Spalten in extra Spalten stehen. Das soll dann so beispielhaft aussehen:

Spalte A: Key
Spalte C: gezählte Werte aus Spalte H
Spalte D: gezählte Werte aus Spalte K
Spalte F: gezählte Werte aus Spalte M
Spalte J: gezählte Werte aus Spalte 0


Kanns ansonsten noch ne Bspdatei uploaden.

Gruß PeterPan