Hallo zusammen,
ich habe auf die schnelle nichts gefunden zu meiner Frage,
falls es sowas ähnliches bereits gibt, bitte ich es zu entschuldigen.
Ich habe in Excel eine Tabelle (DP) , in der ich für mehrere Mitarbeiter den Dienstplan erstelle.
(Man gibt den Monat und das Jahr ein und in der Liste, in der man die Schichten eintragen kann, ändert sich dann der Monat, die Anzahl der Tage die der Monat hat und welche Wochentage der 1., der 2. usw hat)
Dann habe ich noch eine weitere Tabelle, in der ich den Urlaub eintrage.
(12 x mit allen Mitarbeitern, bei denen ich dann z.b. bei Mitarbeiter 1 im Plan "01 Januar" bei den Tagen 3 / 4 / 5 jeweils ein "U" eintragen kann )
Ich möchte:
wenn ich das Makro aktiviere, soll er den Monat(Tabelle DP -D1) mit den Monaten in Tabelle "Urlaub" (C6,C25...) vergleichen.
Bei Übereinstimmung soll er in der Tabelle "Urlaub" bei Mitarbeiter1 (B8) von C8 - AG8 schauen, ob ein "U" eingetragen wurde.
Wenn:
Dann Soll er in Tabelle "DP" gehen und den Mitarbeiter1 suchen und dort den Urlaub rüber kopieren.
Wenn nicht:
Das gleiche bei Mitarbeiter2 in B9 von C9 - AG9
und so weiter.
Ich hoffe ihr versteht was ich meine^^
Ich habe nicht wirklich Ahnung von VBA und mir fehlt irgendwie komplett der Faden.
Ich weiss nicht wie ich da vorgehen muss.
ich bin bis jetzt nicht wirklich weit gekommen, kann mir da jemand helfen?
Option Base 1
Sub UrlaubEintragen()
'variable u, u2 für monate 1-12 bei sheet urlaub u2 auch
'variable "monat" ist der monat den man bei dp eingibt
Dim u As Integer, monat As Integer, u2
Dim m(12) As Integer
For u = 1 To 210 Step 19
monat = Sheets("DP-AES").Cells(1, 4)
u2 = Worksheets("Urlaub").Cells(u + 5, 3)
If u2 = monat Then
m(1) = "1"
Else
m(1) = "0"
End If
If u2 = monat Then
m(2) = "2"
Else
m(2) = "0"
End If
Next u
End Sub
Vielen Dank,
Andy
|