Urlaubsplanung VBA

Hallo zusammen,
ich möchte gerne über VBA eine Urlaubsplanung via Userform generieren.
komme aber leider nicht weiter, da meine Kenntnisse in VBA nicht ausreichen.
Userform soll beinhalten:
Mitarbeiter = Combobox 1 --> befinden sich im Arbeitsblatt("Urlaubsplanung") D15 abwärts bis D72
Urlaubsntrag = Combobox 2 --> befinden sich im Arbeitsblatt("Urlaubsplanung") A2 abwärts bis A8
für den jeweiligen Antrag soll das Kürzel in den Datumsspalten L13 bis NL13 eingetragen werden
Kürzel befindet sich im Arbeitsblatt("Urlaubsplanung") BC2 verbundene Zellen abwärts bis BC8
sprich für:
Urlaub = U
Urlaubswunsch = W
Urlaub von = Textbox1 --> Datum befinden sich im Arbeitsblatt("Urlaubsplanung") von L13 bis NL13
Urlaub bis = Textbox2 --> Datum befinden sich im Arbeitsblatt("Urlaubsplanung") von L13 bis NL13
Darüber hinaus möchte ich in einer zweiten Userform den jeweiligen Urlaubsantrag auslesen, wann der Mitarbeiter in dem Jahr Urlaub etc. hat auch einzelne Tage sollen berücksichtigt werden.
Es sollen zu dem jeweiligen Antrag alle Daten im Jahr angezeigt werden.
Userform soll beinhalten:
Mitarbeiter = Combobox 1
Urlaubsntrag = Combobox 2
bsp. Listbox --> wo der jeweilige Antrag in Daten angezeigt wird für das komplette Jahr.
Ich würde mich recht herzlich freuen, wenn mir jemand dabei helfen könnte.
Im Anhang die Datei:
https://www.herber.de/bbs/user/153693.xlsx

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Das was Du möchtest...

21.06.2022 11:50:41

{Boris}

AW: Das was Du möchtest...

21.06.2022 12:02:59

Hilfestellung...

21.06.2022 12:06:16

{Boris}

AW: Hilfestellung...

21.06.2022 12:13:21

Da fehlt aber noch was...

21.06.2022 12:15:01

{Boris}

@Boris

22.06.2022 05:59:24

ralf_b

@Ralf

22.06.2022 09:25:49

{Boris}

AW: @Ralf

22.06.2022 10:53:45

AW: @Boris

22.06.2022 12:34:11

Hi Boris,
danke, das habe ich natürlich versäumt, deshalb habe ich die Datei angehängt.
folgenden Code habe ich bereits geschrieben
'Urlaub in Kalender eintragen


Private Sub CommandButton2_Click()
Dim str_mitarbeiter As String
Dim dat_von As Date
Dim dat_bis As Date
Dim str_kuerzel As String
Dim obj_wks_ziel As Worksheet
Dim lng_spalte_von As Long
Dim lng_spalte_bis As Long
Dim rng_fund As Range
Dim lng_zeile As Long
Dim lng_zaehler As Long
str_mitarbeiter = Me.ComboBox1
dat_von = Me.TextBox1
dat_bis = Me.TextBox2
str_kuerzel = Me.ListBox1
Set obj_wks_ziel = ThisWorkbook.Worksheets("Urlaubsplanung")
With obj_wks_ziel
For lng_zaehler = 4 To .Rows.Count
If .Cells(14, lng_zaehler) = str_mitarbeiter Then
lng_zeile = lng_zaehler
End If
Next
Set rng_fund = .Rows(12).Find(dat_von, LookIn:=xlFormulas, lookat:=xlWhole)
If Not rng_fund Is Nothing Then
lng_spalte_von = rng_fund.Column
End If
Set rng_fund = .Rows(12).Find(dat_bis, LookIn:=xlFormulas, lookat:=xlWhole)
If Not rng_fund Is Nothing Then
lng_spalte_bis = rng_fund.Column
End If
For lng_zaehler = lng_spalte_von To lng_spalte_bis
If Weekday(.Cells(lng_zaehler, 12))  1 And Weekday(.Cells(lng_zaehler, 12))  7 Then
.Cells(lng_zaehler, lng_zeile) = str_kuerzel
End If
Next
End With
Unload Me
End Sub

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Urlaubsplanung VBA

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread