Neuigkeiten:

Ist euer Problem gelöst, dann bitte den Knopf "Thema gelöst" drücken!

Mobiles Hauptmenü

Mehrere Bedingungen Prüfen und Werte kopieren

Begonnen von Birnenbaum, Oktober 04, 2013, 12:37:07

⏪ vorheriges - nächstes ⏩

Birnenbaum

Hallo an ALLE,

so ich bin zur Zeit dran einen Dienstplan (Schichtplan) zu entwerfen, allerdings bin ich an meine Grenzen gestoßen.
Ich möchte aus meinem Tabellenblatt die Mitarbeiter in eine Tagesübersicht kopieren. Habe die Datei mal angehängt. Ich denke er erkärt sich selber, habe ein paar Komentare hinzugefügt.

[Anhang gelöscht durch Administrator]

69bruno

 ;D

Falsches Forum, aber egal.....
Ich versuche mal, den Anfang zu machen.

Excel ist hier zwar eine denkbare Lösung, aber der von dir gemachte Ansatz ist schwierig.
Du möchtest, dass bei der Eingabe des Datums in der Tabelle Dienstplan die Befüllung beginnt. Das ist schon mal ein Problem, denn dann musst Du über ein Makro oder einen VBA Schnipsel suchen, wo das Datum (welche Spalte) in der Tabelle Zyklus steht. Andersherum wäre einfacher, wenn man jeweils aus der Spalte des Zyklus den Tagesdienstplan erstellen lassen würde. Denn dann wüsstest Du über die Funktion "ActiveCell.Column" schon mal, aus welcher Spalte Du die Informationen in den Tagesplan übernehmen willst.
Dann sieht es aber auch so aus, als wenn die Eingabemöglichkeiten nicht restriktiv sind und damit eine automation verhindern. Im Bezirk dürfte für eine Automation wohl kaum "12/13" angegeben werden können, denn solch eine Eingabe ist nicht eindeutig. Ich würde also auch nochmal die Struktur und die Eingabegültigkeiten überdenken (Außer, wenn 12/13 ein Bezirk sein soll).

Wenn das dann aber doch so sein soll, dann kannst du jetzt, wenn du weißt, welche Spalte Du verwenden musst, nach gefüllten Zellen suchen und deren Einträge in die Tabelle Tagdienstplan übernehmen. Ob Du dabei mit verbundenen Zellen glücklich wirst (Name) ist auch noch zu bezweifeln.
If Brain <= requestoutofPost then
  PostonForum "Ich verstehe Dein Problem nicht....."
Else
  PostonForum "Denk erst mal über die Normalisierung nach......"
End If