Daten auswerten

Hallo liebe Wissenden
ich benötige Hilfe bei der Auswertung einer Excel Tabelle.
Es wäre toll wenn mir jemand Tipps oder Lösungsansätze aufzeigen könnte.
Beine VBA Kenntnisse sind sehr bescheiden.
Ich habe eine Excel Liste in der sich Daten in 5 Spalten befinden.
Die Daten gelangen automatisch per VBA Import aus einer txt-Datei formatiert in ein Excel Tabellenblatt. In der txt Datei befinden sich Daten über eine unbestimmte Anzahl von Tagen.
Nach dem Datenimport befinden sich in der Excel Tabelle ab Zeile 6 Daten in 5 Spalten.
A = Datum (JJJJ/MM/DD)
B = Zeit (hh:mm:ss)
C = Kostenstelle (Text 2 Zeichen)z.B "F1", "F2" bis "F9"
D = Kostenart (Text 5 Zeichen) "M0001", "M0002" usw.
E = Menge (Zahl 3-5 Stellen) 500, 2500, 5000, 250 usw.
Mein Wunsch ist das ich per Makro die Excel Tabelle auswerten lasse und die Ergebnisse in ein neu einzufügendes Tabellenblatt speichern lasse.
Die Auswertung soll die Tagessummen der Menge (E) einzeln gruppiert nach Kostenarte (C) darstellen. Toll wäre wenn es die Möglichkeit gäbe die Zeitstempel der ersten und letzten Tagesbuchung mit einzufügen.
Spalte A = Kostenart
Spalte B = Datum der ersten Buchung am Tag
Spalte C = Zeitstempel der ersten Buchung am Tag
Spalte D = Zeitstempel der letzten Buchung am Tag
Spalte E = Ergebnist des täglichen Zeitaufwandes aus C-B in hh:mm:ss
Spalte F = Summe der Tages Gesamtmenge aus E
z.B.
Spalte A Spalte B Spalte C Spalte D Spalte E Spalt F
Kostenart Datum Start Stop Zeit Ges Summe
M0001 2016/04/16 14:17:19 16:01:13 01:43:54 25000
M0001 2016/04/17 06:00:00 10:00:00 04:00:00 125000
....
M0002
...
M0003 usw.
ich würde gerne mein Makro um die Funktionalität der Auswertung erweitern, da ich praktisch täglich nachdem die Daten importiert und gefiltert sind dies Aufgabe per Hand erledigen muss.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Textzahlen_in_Zahlen_wandeln() Dim maxZeile& maxZeile = Range("E" & Rows.Count).End(xlUp).Row With Range("E6:E" & maxZeile) .NumberFormat = "General" .Value = .Value End With Range("A1").Select End Sub

Hallo Thomas,
... ich geh davon aus, dass Du Michaels VBA_Lösung nutzt. Doch interessehalber habe ich nachfolgend mal eine reine Formellösung aufgestellt in der AGGREGAT() eine Hauptrolle spielt. In meiner Lösung hab ich zur Reduzierung der Formellängen zwei (ausblendbare) Hilfsspalten (H:I) und eine ebenfalls ausblendbare Hilfszeile (Zeile2, Leerzeile; in der aber in I2 zwingend eine 0 stehen muss) eingeführt.
Den Ergebnisspalten müssen noch die richtigen Formate zugewiesen werden. In Spalte A nutzte ich dazu das benutzerdefiniertes Zahlenformat: "M"0000
In alle Formeln müsste evtl. der Auswertungsbereich noch angepasst werden, denn momentan hab ich den nur auf die Zeile bis 99 in Tabelle1 beschränkt. Die Formeln sind weit genug nach unten zu kopieren. Die Spalte C dann zusätzlich noch nach Spalte D.
Damit auch ersichtlich wird, dass nicht nur Datensätze eines Tages ausgewertet werden können hab ich eine paar zusätzliche erfundene Datensätze in Tabelle1 angefügt.

	A	B	C	D	E	F	G	H	I
1	Kostenart	Datum	1. Buchung	letzte	Dif	Summe		Hilfsspalten
2									0
3	M0001	16.04.2016	14:17:19	16:01:13	01:43:54	35000		16.04.2016	15
4	M0002	16.04.2016	14:17:19	17:30:32	03:13:13	28500		18.04.2016	20
5	M0003	16.04.2016	17:16:58	17:17:24	00:00:26	3000		22.04.2016	23
6	M0004	16.04.2016	15:49:33	16:01:13	00:11:40	5000
7	M0006	16.04.2016	14:17:19	17:16:58	02:59:39	20500
8	M0007	16.04.2016	15:30:58	17:16:58	01:46:00	2000
9	M0008	16.04.2016	15:30:58	15:40:34	00:09:36	3000
10	M0009	16.04.2016	15:40:34	16:40:02	00:59:28	7500
11	M0010	16.04.2016	17:17:24	17:17:24	00:00:00	2500
12	M0011	16.04.2016	14:17:19	17:16:58	02:59:39	20000
13	M0012	16.04.2016	14:17:19	17:30:32	03:13:13	11000
14	M0013	16.04.2016	15:30:58	16:01:13	00:30:15	3000
15	M0002	18.04.2016	15:30:58	15:30:58	00:00:00	5500
16	M0007	18.04.2016	15:30:58	15:30:58	00:00:00	500
17	M0008	18.04.2016	15:30:58	15:30:58	00:00:00	2500
18	M0012	18.04.2016	15:30:58	15:30:58	00:00:00	5000
19	M0013	18.04.2016	15:30:58	15:30:58	00:00:00	2500
20	M0006	22.04.2016	17:16:58	17:16:58	00:00:00	500
21	M0007	22.04.2016	17:16:58	17:17:00	00:00:02	2000
22	M0011	22.04.2016	17:16:58	17:16:58	00:00:00	5000
23

Formeln der Tabelle

Zelle	Formel
A3	=WENN(B3="";"";AGGREGAT(15;6;WECHSELN(Tabelle1!D$6:D$98;"M";"")/(Tabelle1!A$6:A$981=B3)/(WECHSELN(Tabelle1!D$6:D$98;"M";"")1>A2*(B3=B2)); 1))
B3	=WENN(ZEILE(A1)>MAX(I:I)+2;"";INDEX(H:H;VERGLEICH(ZEILE(); I:I)+1))
C3	=WENN(B3="";"";AGGREGAT(14+(SPALTE()=3); 6;Tabelle1!$B$6:$B$98/(Tabelle1!$A$6:$A$981=$B3)/(WECHSELN(Tabelle1!$D$6:$D$98;"M";"")1=$A3); 1))
E3	=WENN(D3="";"";D3-C3)
F3	=WENN(E3="";"";SUMMEWENNS(Tabelle1!E$6:E$98;Tabelle1!D$6:D$98;"=M"&TEXT(A3;"0000"); Tabelle1!A$6:A$98;"="&TEXT(B3;"JJJJ/MM/TT")))
H3	=WENNFEHLER(AGGREGAT(15;6;Tabelle1!A$6:A$99/(Tabelle1!A$6:A$99*1>H2); ZEILE(A1)); "")
I3	=SUMMENPRODUKT((VERGLEICH(Tabelle1!D$6:D$99&Tabelle1!A$6:A$99;Tabelle1!D$6:D$99&Tabelle1!A$6:A$99;)=ZEILE(D$1:D$94))(Tabelle1!A$6:A$991=H3))+I2+1

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruß Werner
.. , - ...

Beliebteste Forumthreads (12 Monate)

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread