Hallo Leute
Ich habe eine Userform die mit den Daten von Sheets Schicht AF gefüllt wird.
Nun zu meinen Problem
Im Sheets Schicht AF Ab A2:A336 steht das Datum. Zb. 01.01.2018 usw.
Nun wenn ich aber schon im Jahr 2017 öffnen möchte kommt immer die Fehlermeldung von der MsgBox.
Das war auch einmal so gewünscht. Nur möchte ich aber auch schon vor dem Datum in Sheets Schicht AF die Datei bearbeiten.
Wo kann man diese Abfrage umgehen?
Danke
SG, Heinz

Private Sub UserForm_Initialize()
Dim MyArray As Variant
Dim lIndx As Long
Dim oDic As Object
Dim lIndxA As Long ' For/Next Index - außen
Dim lIndxI As Long ' For/Next Index - innen
Dim sTemp As String ' temporärer Zwischenspeicher
' hier wird die ComboBoxDatum befüllt
With ThisWorkbook.Worksheets("Schicht AF") ' den Tabellenblattnamen ggf. anpassen!
MyArray = .Range("A2:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)
End With
Set oDic = CreateObject("Scripting.Dictionary")
For lIndx = 1 To UBound(MyArray)
If MyArray(lIndx, 1) "" Then
oDic(MyArray(lIndx, 1)) = 0
End If
Next lIndx
With ComboBoxDatum
.Style = 2
.List = Application.Transpose(oDic.keys)
End With
ComboBoxSchicht.AddItem 1
ComboBoxSchicht.AddItem 2
ComboBoxSchicht.AddItem 3
If Sheets("Schicht AF").Range("A2").Value > Date Then 'MsgBox "Falsches Datum"
MsgBox "Sie können die Datei erst ab " & Sheets("311").Range("A2") & " " & "benutzen"
End If