Office: (Office 2007) Stunden Berechnung VBA

Code:

Dieser Code ist für einen Tag und einen Mitarbeiiter - ich benötige einen Code für 20 Mitarbeiter und halt 31 Tage. Meine Version ist mit Sicherheit zu umständlich - weiß aber nicht wie ich sie anderweitig realisieren kann- gibt es da eine Lösung wenn möglich mit VBA ?

:)

 

hallo Ulli
Fuer eine Schleife muesste man den Aufbau der Tabelle sehen. zB. hat jeder MA ein eigenes Blatt usw.
Koennt man evtl mit Case arbeiten. Wobei die zeilen oder Spalten in die Schleife kommen.
Code:

gruss hary

 

Abrechnung-Januar

	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P
1	soll	Datum / Ist-Std	1	2	3	4	5	6	7	8	9	10	11	12	13
2	7,5	Paul	12,00	12,00	12,00	12,00	12,00	12,00	12,00	12,00	12,00	12,00	12,00	12,00
3		Kurt
4
5
18
19
20
21		Abrechnung
22		Paul	7,5
23		Kurt
24		Überstunden
25		Paul	4,5
26		Kurt

Excel Tabellen im Web darstellen >>

 

Hi,
stehen da immer 2 Mitarbeiter mit Abrechnung und dann kommt sofort Überstunden?
Oder kommen erst deine 20 MA und dann deren Überstunden?

 

20 Mitarbeiter dann eine Leerzeile, dann Abrechnung 20 Mitarbeiter, wieder eine Leerzeile, dann Überstunden 20 Mitarbeiter

 

Habs nicht testen können, aber es sollte funktionieren.
Sonst stell doch mal eine Bsp. Datei ein.

Code:

 

Probiere ich gleich aus und melde mich - die Datei habe ich noch nicht erstellt, das sind meine ersten Gedanken wie ich es möglicherweise machen möchte.
Bis dahin erst einmal Danke

 

Hallo Ulli
hier mal eine Mappe mit Formeln.
gruss hary

 

Danke für dein Beispiel

Ich stelle meine Datei (nicht fertig-nur meine Vorstellung)ins Forum

 

Hallo Ulli,

wenn du nicht unbedingt VBA benötigst, anbei ein weiterer Lösungsansatz per Formel.

 

Ich hatte mir in den Kopf gesetzt - es per VBA zu reaisieren, bin aber von Deiner Beispieldatei auch nicht abgeneigt, ist vermutlich auch die übersichtlichere Lösung - wenn Du Lust hast würde ich mir auch mal eine VBA Lösung ansehen, aber wie gesagt die Lösung mit den Formeln hat mich auch überzeugt.
Danke Frohe Ostern und Gruß aus Potsdam

 

hallo Ulli
hier was auf die schnelle. In Tabelle2 Makro ausfuehren.
Ohne pruefung ob die Zuordnung dem jeweiligen Namen entspricht. Dieses fehlt auch bei meinem Vorschreiber.
gruss hary

 

Hallo Dirk
Daran hatte ich auch gedacht,schlicht und einfach. Wenn aber die Namen,warum auch immer, vertauscht werden.

Beispiel

	C
2	Paul
3	Paula
4	Pauline
22	Abrechnung
23	Paula
24	Paul
25	Pauline

 

Danke für Deine Hilfe - genauso habe ich es mir vorgestellt - wobei ich überlege ob möglicherweise auch die Lösung mit den Formeln zu Einsatz kommt
Nochmals Danke und Frohe Ostern

 

Hallo hary,

OK, dann jetzt mit Namens- Abfrage. :D

Beispiel (2)

	C	D
1	Std.-geleistet	1
2	Paula	K
3	Paul	12,00
4	Pauline	6,00

Beispiel (2)

	C	D
22	Abrechnung
23	Paul	7,5
24	Paula	K
25	Pauline	7,5

Zelle	Formel
D23	=WECHSELN(WENN(ISTZAHL(INDEX(D:D;VERGLEICH($C23;$C:$C;0)));$B;INDEX(D:D;VERGLEICH($C23;$C:$C;0)));0;"")
D24	=WECHSELN(WENN(ISTZAHL(INDEX(D:D;VERGLEICH($C24;$C:$C;0)));$B;INDEX(D:D;VERGLEICH($C24;$C:$C;0)));0;"")
D25	=WECHSELN(WENN(ISTZAHL(INDEX(D:D;VERGLEICH($C25;$C:$C;0)));$B;INDEX(D:D;VERGLEICH($C25;$C:$C;0)));0;"")

Beispiel (2)

	C	D
43	Überstunden
44	Paul	4,50
45	Paula
46	Pauline	-1,50

Zelle	Formel
D44	=WENN(NICHT(ISTZAHL(INDEX(D:D;VERGLEICH($C44;$C:$C;0))));"";INDEX(D:D;VERGLEICH($C44;$C:$C;0))-$B)
D45	=WENN(NICHT(ISTZAHL(INDEX(D:D;VERGLEICH($C45;$C:$C;0))));"";INDEX(D:D;VERGLEICH($C45;$C:$C;0))-$B)
D46	=WENN(NICHT(ISTZAHL(INDEX(D:D;VERGLEICH($C46;$C:$C;0))));"";INDEX(D:D;VERGLEICH($C46;$C:$C;0))-$B)

Excel Tabellen im Web darstellen >>