Zahlen per Skript richtig einfügen und addieren

Computer: Software & Programmierung Visual Basic
#1

Hallo an alle,

ich hab ein kleines Excel 2007 Problem: und zwar bekomme ich Rohdaten von Mitarbeitern, diese arbeiten an bestimmten Themen x Stunden pro Tag, das tragen sie artig in eine MySql Datenbank und erhalten dann die Daten Date - User - Activity - duration
nun habe ich eine Tabelle in der die Mitarbeiter stehen, darunter steht jeweils die acitivty die ein Mitarbeiter so generell hat und daneben in den Spalten die Tage. Nun versuche ich mich an einem Skript was folgendes lösen muss: ich muss mir den Bereich markieren in dem der Name des Mitarbeiters überhaupt relevant ist, dann sollen in diesem Zeilenbereicht pro Zeile der Rohdaten die Aktivitätsnummer verglichen werden und dann in der Spalte mit dem richtigen Tag auch die Durations aus den Rohdaten richtig aufsummiert werden, denn mehrere Einträge zur gleichen Aktivity sind pro Tag auch möglich.
Ich denke für einen VB Fuchs ist das Ding in 5 min gegessen aber ich momentan ein bisschen ratlos wie ich anfangen soll, vielleicht geht das auch mit verschachtelten Sverweisen?

Eine Beispieldatei habe ich hier als Excel2007 abgelegt:
Danke für Eure Tipps & Hilfe!

http://www.contenance.com/excel/

#2

OT Beispielmappen im Excel 2007 Format hochladen

Eine Beispieldatei habe ich hier als Excel2007 abgelegt:

http://www.contenance.com/excel/

Hi Katharina,

ich sehe da zwei Möglichkeiten
a) ich installiere mir ein Zusatztool um deine Mappe im XL2007-Format lesen zu können.
b) du lädst sie hoch als normale xls

Ich bin sehr für b) :smile:

Gruß
Reinhard

#3

Hallo Reinhard,

da ich nur mit 2007 arbeite und Makros nicht mit 2003 kompatibel sind hatte ich nur die 2007er Variante hochgeladen, nun aber doch eine 2003er, das mit dem anpassen des Makros krieg ich schon hin :smile:

http://www.contenance.com/excel

Bin gespannt auf Deine Ideen!

LG
Katharina

#4

aber ich momentan ein bisschen ratlos wie ich anfangen soll,
vielleicht geht das auch mit verschachtelten Sverweisen?
http://www.contenance.com/excel/

Hallo Katharina,

wichtig ist daß in C die Namen mehrfach stehen, nur dann ist die Formel nach unten und rechts kopierbar.
Kannst ja die mehrfachen auf Schriftfarbe=Zellenfarbe setzen, dann sieht es aus wie in deiner beipielmappe.

Tabellenblatt: H:\[Ressourcentest.xls]!Planung
 │ C │ D │ E │ F │
───┼───────────┼───┼───────────┼───────────┤
 8 │ │ │ 12.1.2008 │ 14.1.2008 │
───┼───────────┼───┼───────────┼───────────┤
 9 │ Anna │ │ │ │
───┼───────────┼───┼───────────┼───────────┤
10 │ Anna │ 1 │ 0,25 │ 2,00 │
───┼───────────┼───┼───────────┼───────────┤
11 │ Anna │ 2 │ 0,00 │ 0,00 │
───┼───────────┼───┼───────────┼───────────┤
12 │ Anna │ 3 │ 0,75 │ 0,75 │
───┼───────────┼───┼───────────┼───────────┤
13 │ │ │ │ │
───┼───────────┼───┼───────────┼───────────┤
14 │ Berta │ │ │ │
───┼───────────┼───┼───────────┼───────────┤
15 │ Berta │ 1 │ 0,50 │ 0,50 │
───┼───────────┼───┼───────────┼───────────┤
16 │ Berta │ 2 │ 0,30 │ 5,00 │
───┼───────────┼───┼───────────┼───────────┤
17 │ │ │ │ │
───┼───────────┼───┼───────────┼───────────┤
18 │ Christina │ │ │ │
───┼───────────┼───┼───────────┼───────────┤
19 │ Christina │ 2 │ 0,00 │ 0,00 │
───┼───────────┼───┼───────────┼───────────┤
20 │ Christina │ 3 │ 0,50 │ 3,50 │
───┴───────────┴───┴───────────┴───────────┘
Benutzte Formeln:
E9 : =WENN(D9="";"";SUMMENPRODUKT((Rohdaten!$A$2:blush:A$100=E$8)\*(Rohdaten!$B$2:blush:B$100=$C8)\*(Rohdaten!$C$2:blush:C$100=$D9)\*Rohdaten!$D$2:blush:D$100))
E10: =WENN(D10="";"";SUMMENPRODUKT((Rohdaten!$A$2:blush:A$100=E$8)\*(Rohdaten!$B$2:blush:B$100=$C9)\*(Rohdaten!$C$2:blush:C$100=$D10)\*Rohdaten!$D$2:blush:D$100))
E11: =WENN(D11="";"";SUMMENPRODUKT((Rohdaten!$A$2:blush:A$100=E$8)\*(Rohdaten!$B$2:blush:B$100=$C10)\*(Rohdaten!$C$2:blush:C$100=$D11)\*Rohdaten!$D$2:blush:D$100))
usw. in E nach unten kopieren

F9 : =WENN(E9="";"";SUMMENPRODUKT((Rohdaten!$A$2:blush:A$100=F$8)\*(Rohdaten!$B$2:blush:B$100=$C8)\*(Rohdaten!$C$2:blush:C$100=$D9)\*Rohdaten!$D$2:blush:D$100))
F10: =WENN(E10="";"";SUMMENPRODUKT((Rohdaten!$A$2:blush:A$100=F$8)\*(Rohdaten!$B$2:blush:B$100=$C9)\*(Rohdaten!$C$2:blush:C$100=$D10)\*Rohdaten!$D$2:blush:D$100))
F11: =WENN(E11="";"";SUMMENPRODUKT((Rohdaten!$A$2:blush:A$100=F$8)\*(Rohdaten!$B$2:blush:B$100=$C10)\*(Rohdaten!$C$2:blush:C$100=$D11)\*Rohdaten!$D$2:blush:D$100))
usw. in F nach unten kopieren

Zahlenformate der Zellen im gewählten Bereich:
C8:C20,D8:smiley:20
haben das Zahlenformat: Standard
E8:F8
haben das Zahlenformat: T.M.JJJJ
E9:E20,F9:F20
haben das Zahlenformat: #.##0,00 \_€

Tabellendarstellung erreicht mit dem Code in FAQ:2363

Gruß
Reinhard

#5

Prima danke! das hat mich auf die richtige Spur gebracht :smile: