Excel - Teamsberechnung

Excel - Teamsberechnung (7 Beiträge, 290 Mal gelesen)

Du bist nicht angemeldet. [ Login/Registrieren ]

Hi!

Folgende Grundlage bzw. Problem:
In meiner Firma haben täglich immer zwei Kollegen einen Art Journaldienst, in welchen sie für so ziemlich alles zuständig sind.

Diese beiden Kollegen sind im Prinzip immer die selben, und ist als Arbeitswoche Mo-So zu sehen. Auch beginnt das "Radl" dzt. alle 17 Tage wieder von vorne, was heißen soll, dass dzt. alle 17 Tage immer das gleiche "Team" an der Reihe ist. Da manche Kollegen schon am 01.01. wissen möchten, ob sie zB am 24.12. diesen Dienst haben, habe ich versucht dieses Problem per Excel zu lösen. Leider ist es beim Versuch geblieben

Dzt. habe ich ein Tabellenblatt "Teams" welches in A1 bzw. B1 (...A2,B2;A3,B3 usw) die Namen der Kollegen beinhaltet.

Im Tabellenblatt "Monat" habe ich einen Button eingebaut, welcher einen Inputabfrage auslöst, in welcher das Monat und Jahr eingegeben werden soll. Danach sollte aufgrund der "Teams" und des eingegebenen Datums die entsprechende Berechnung und Ausgabe des Monats mit den Namen im Tabellenblatt "Monat" erfolgen.

Also in etwa so:

  | A            | B    |C       |D
--|-----------|----|-------|------
1 | 01.01.2008| Die| Karl    |Gustav
.....
17| 17.01.2008|Don| Karl    |Gustav
....

Bis dato habe ich keine vernüftige Routine schreiben können, welche diese Aufgabe geschafft hätte.
Auch bin auf das Problem gestoßen, dass es nötig wäre, auch die Folgemonate in entsprechenden Tabellenblättern anzuzeigen, sodass das "Radl" bis zum 31.12. angezeigt wird.

Derzeit habe ich nur diesen Code zusammengebracht:

Sub Schaltfläche2_BeiKlick()
Dim anz As Integer
Dim f As Integer

anz = Range("=Teams!e4").Cells

Range("Monat!d3").Select

For f = 1 To anz
ActiveCell(f).FormulaR1C1 = "=Teams!A" & f & " - " & "=Teams!B" & f

Next

End Sub

...und das funktioniert leider überhaupt nicht bzw. wenn ich die Codezeile in
ActiveCell(f).FormulaR1C1 = "test"
umwandle, bleibt es nach dzt. 17 einträgen stehen.

Vielleicht kann mir jemand etwas helfen.....bin schon wirklich mit den Nerven am Boden wegen dieser für mich sehr ärgerlichen Sachen

Vielen Dank, SunnyHill

Mir ist zwar klar, was du mit dem Makro erreichen willst, aber letztlich würd ich mir da nicht großartig den Kopf zerbrechen.

Stattdessen nehme ich für jedes Jahr ein Tabellenblatt her, verwende Spalten A, B und C für Wochentag, Tag, Monat und ziehe diese runter bis 31.12. In die Spalten D und E kommen die 2 Kollegen - die trägst Du für die ersten 17 Tagen ein und ziehst diese dann auch runter bis zum letzten Tag des Jahres. (Eventuell noch Spalte F für die Tage 1-17)

Wenn jemand wissen will, wann er Dienst hat (Fall 1) bzw. wenn jemand wissen will, wer an einem bestimmten Datum Dienst hat (Fall 2), verwendest Du dafür den automatischen Filter (Name filtern für Fall 1 bzw. Monat filtern für Fall 2).

Außerdem könntest Du somit auch gleich schöne Statistiken führen, wer z.B. am Öftesten am Sonntag Dienst hat... etc.

Wäre recht einfach und Makro gar nicht zwingend nötig.

16.10.2007, 23:36 Uhr - Editiert von Flo061180, alte Version: hier

Vielen Dank für deinen Lösungsvorschlag!

Werde ich natürlich testen!
Diese Lösung ohne Makros ist sicherlich der einfachste Weg dieses Problem zu lösen.

Vielleicht weiß dennoch jemand Rat, wie ich das per Makro lösen könnte?

Vielen Dank, SunnyHill.

Hallo SunnyHill!

Viel Text...
Möglicherweise ist dein Tabellenkonstrukt nicht optimal aufgebaut.
Eine VBA-Lösung ist nach meiner Einschätzung nicht notwendig.
Das Ganze sollte von einem Jahreskalender aus gesteuert werden, wobei Jahreswechsel u. Schaltjahre berücksichtigt werden müssen. Datumsberechnungen in Excel gehören nicht zum Einfachsten!

Die reine Excel-Lösung kann ich dir hier nicht aufschreiben. Es wäre unbedingt erforderlich, in die Tabelle Einsicht zu nehmen. Da ich viel bezüglich "Zeiterfassungssystemen" in Excel programmiere, mach ich dir folgenden Vorschlag: Mail mir deine Datei und ich schau mir das Ganze einmal an. Vielleicht hab ich etwas Brauchbares bereits "herumliegen", das nur mehr adaptiert werden müsste.

LG
trames

Hi!

Du hast Post!

lG, SunnyHill

Hi!

Habe es nun selbst geschafft, meine Problemstellung zu lösen! Habe eine kleine VBA-Routine geschrieben, und wird nun alles Monat für Monat fein säuberlich samt variabler Teambildung, Feiertagsberechnung usw. ausgegeben!

Wer interesse hat, kann es per Mail anfordern!

lG, SunnyHill.

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung