Office: Monat über Combobox auswählen Kalenderdaten im Userform anzeigen

benediktlangmantl · 19. April 2018

habe jetzt selber mal versucht, und mit den Terminen das Klappt schonmal, allerdings soll er ja wenn ein Start und Enddatumbis ist es so Anzeigen Startdatum-Enddatum-Ereignis. Das klappt in diesem Fall auch sehr gut,

Wenn aber kein Enddatum gesetzt ist, dann zeigt er es mir so an Startdatum--Ereignisn . Ein Bindestrich zu viel. Warum?

Auch zeigt er mir bei Formularstart das Jahr 2017 und nicht 2018 an, warum?

Hier der Code des Klassenmoduls

Code:

Public DaDatumKa As Date ' Datum Kalender Anfang
Public LoI As Long ' Schleifenvariable, Variable zum zusamenfassen Tag
Public InK As Integer ' Schleifenvariable, Variable zum zusamenfassen Kalenderwoche
Public DaDatumUe As Date ' übergebenes Datum
Public DaDatumEnde As Date ' Ende Datum
Public BoMarkieren As Boolean ' Variable Zeitraum
Public LoJ As Long ' SchLeifenvariable mehrere Termine
Public Lok As Long ' SchLeifenvariable Tage
Public LoLetzte As Long ' letzte Zeile in Termine

Sub Start()
frm_Kalender.Show ' UserForm starten
End Sub

Sub Erstellen(DaDatum As Date)
Dim InKwA As Integer ' Variable 1. Kalenderwoche im Monat
Dim LoI As Integer ' Schleifenvariable
Dim Ob_Tag As MSForms.Label ' Variable für Objekt als neues Label Tag
Dim Ob_KW As MSForms.Label ' Variable für Objekt als neues Label Kalenderwoche
Dim Ob_LaF As MSForms.Label ' Variable für Objekt als neues Label Feiertage
Dim LoZaehler As Long ' Zeile Label
Dim LoZaehlerF As Long ' Zeile Feiertage
Dim InJ As Integer ' Schleifenvariable Wochentage
Dim DaAnfang As Date ' Anfangsdatum Kalender
Dim StFeiertag As String ' Variable für Feiertag
Dim BoFeier As Boolean ' Hinweis Bundesland
Dim Ob_St As Object ' Variable Objekte
LoZaehler = 1 ' Überschriftenzeile schon da
LoZaehlerF = 0 ' Überschriftenzeile schon da
LoI = 0 ' Variable für Zählen der Label auf 0 für Array
Dim DaDatumS As Date ' Schleifenvariable Datum
' erster Tag in erster Woche
DaAnfang = DateSerial(Year(DaDatum), Month(DaDatum), 1) - _
Weekday(DateSerial(Year(DaDatum), Month(DaDatum), 1), 2) + 1
' Kalenderwoche für ersten Tag im Monat
InKwA = DINKw(DaAnfang)
' Kalenderwoche für letzten Tag im Monat
With frm_Kalender ' Bezug auf die UserForm
.Cbo_Jahr.Tag = 1 ' damit Erstellen bei Change nicht ausgelöst
.Cbo_Monat.Tag = 1 ' damit Erstellen bei Change nicht ausgelöst
.Scb_Monat.Tag = 1 ' damit Erstellen bei Change nicht ausgelöst
' ScrollBar auf aktuellen Wert setzen
.Scb_Monat = Month(DaAnfang + 6)
' bei allen Label Beschriftung löschen und Farbe zurücksetzen
.Cbo_Jahr = Year(DaAnfang + 6) ' ausgewähltes Jahr anzeigen in ComboBox
.Lbl_Datum = Format(DaAnfang + 6, "MMMM YYYY") ' ausgewählten Monat und Jahr anzeigen
' ausgewählten Monat anzeigen in ComboBox
.Cbo_Monat = Format(DaAnfang + 6, "MMMM")
For Each Ob_St In .Controls
If TypeName(Ob_St) = "Label" Then
With Ob_St
If Left(.Name, 5) = "Label" Then
.Caption = ""
.BackColor = -2147483633
End If
End With
End If
Next Ob_St
' Schleife Label
DaDatumEnde = 0
For DaDatumS = DaAnfang To DaAnfang + 6 * 7 Step 7
' Label Kalenderwoche erstellen im Rahmen
Set Ob_KW = .Frm_Rahmen.Controls.Add("Forms.Label.1", "Label" & LoI, True)
' Eigenschaften dem erstellten Label zuweisen
With Ob_KW
.Left = 6 ' Position links
.Top = 15 * LoZaehler + 6 ' Position oben
.Width = 25 ' Breite
.Height = 15 ' Höhe
.Font.Bold = True ' Schriftschnitt Fett
' Beschriftung mit der entsprechenden Kalenderwoche
.Caption = DINKw(DaDatumS)
.TextAlign = fmTextAlignRight
.Tag = .Caption
End With
InK = InK + 1 ' Zähler für das Array Label
' Kalenderwoche
For InJ = 1 To 7
' Label Tag erstellen im Rahmen
Set Ob_Tag = .Frm_Rahmen.Controls.Add("Forms.Label.1", "Label" & LoI & LoI, True)
' Eigenschaften dem erstellten Label zuweisen
With Ob_Tag
.Left = 6 + InJ * 30 ' Position links
.Top = 15 * LoZaehler + 6 ' Position oben
.Width = 25 ' Breite
.Height = 15 ' Höhe
.Tag = DaAnfang + LoI ' Datum
.Caption = Day(DaAnfang + LoI) ' Tag
.TextAlign = fmTextAlignRight ' Ausrichtung rechts
' Farbe Wochenende
If DaDatumUe 0 Then
If DaAnfang + LoI = DaDatumUe Then
.BackColor = 65535 ' Gelb
End If
ElseIf DaAnfang + LoI = Date Then
.BackColor = 65535 ' Gelb
End If
If Weekday(DaAnfang + LoI, 2) > 5 Then
.ForeColor = 255
End If
' Farbe für Tage außerhalb des aktuellen Monats
If Month(DaAnfang + LoI) Month(DaDatum) Then
.ForeColor = 8421504
End If
' persönliche Termine Anfang
If Not IsError(Application.Evaluate("'[" & ThisWorkbook.Name & "]Planungen'!$A$2")) Then
If Not IsError(Application.Match(CLng(DaDatumS + InJ - 1), Worksheets("Planungen").Columns(1), 0)) Then
.BackColor = Worksheets("Parameter").Range("Q3").Interior.Color
End If
End If
' Datum Ende nur bei persönlichen Terminen
With Worksheets("Planungen")
If DaDatumEnde 0 Then
If CLng(CLng(DaAnfang + LoI))
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Monat über Combobox auswählen Kalenderdaten im Userform anzeigen

Monat über Combobox auswählen Kalenderdaten im Userform anzeigen

Monat über Combobox auswählen Kalenderdaten im Userform anzeigen

Monat über Combobox auswählen Kalenderdaten im Userform anzeigen - Similar Threads - Monat Combobox auswählen

Monats Kalender über Userform

Zeitdifferenz in Monaten wenn Zeitraum...

Word abgestürzt, Dokument auf Stand von vor 2 Monaten

Spalte Summieren wenn Monat UND Jahr

Grafische Jahresübersicht unterteilt nach Monaten und 2 Sortierkriterien

Berechnungsgrundlage Monat und Jahr

Bedingte Fomatierung immer 1. Montag im Monat