VBA Gueltigkeit aus anderem Blatt
11.12.2020 07:44:12
Uwe
Ich habe das folgende funktionierende Skript im VBA ( es ist aus einem dauerhaften Kalender hier aus dem Forum )
'Dient dem Modul "Kalender"
Private Sub Label_Click()
If Label.ForeColor 8421504 Then
If Month(Label.Tag) = Month(DaDatumKa) Then
If Weekday(CDate(Label.Tag), 2) = 1 Then
Range("B10") = DateValue(Label.Tag) ' Tag in Zelle
Range("B10").NumberFormat = "dd.mm.yyyy" ' Zellformat Standard
Range("A10").Select
Unload frm_Kalender ' UserForm _
verlassen
Else
MsgBox "Bitte einen Montag auswaehlen"
End If
Else
Erstellen Label.Tag ' ausgewählten Monat anzeigen
End If
End If
End Sub
Es wird hier ein Datum in die Zelle "B10" eingetragen. Bevor das Datum eingetragen wird, soll jedoch aus dem Tabellenblatt "CVJM" die Gueltigkeit eines Datums abgefragt werden.
Im Tabellenblatt "CVJM" steht in Zelle C34 ein "kleines Datum" und in der Zelle C35 ein "grosses Datum".
Bevor nun der Wert im Blatt in "B10" eingetragen wird, sollen die beiden Daten in "CVJM" geprueft werden. Nur wenn sie zwischen den beiden Daten liegt, darf der Eintrag in B10 erfolgen. Wird das Datum unterschritten sollte eine Meldung erfolgen "Datum unterschritten", sollte das Datum ueberschritten sein sollte eine Meldung erfolgen "Datum ueberschritten".
Vielen Dank fuer eure Unterstuetzung und einen guten Start in den Tag,
Uwe