Thema Datum  Von Nutzer Rating
Antwort
Rot Excel VBA - Urlaub übertragen
28.03.2016 19:47:28 Andy
NotSolved

Ansicht des Beitrags:
Von:
Andy
Datum:
28.03.2016 19:47:28
Views:
2386
Rating: Antwort:
  Ja
Thema:
Excel VBA - Urlaub übertragen

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Excel VBA - Urlaub übertragen
28.03.2016 19:47:28 Andy
NotSolved