AW: Private Sub Workbook_Open()
01.01.2023 18:54:11
Heinz
Hallo onur,
Hier in der UF "Fehler_Eingabe" liegt der Fehler, habe ich gerade herausbekommen.
If Sheets("Schicht AF").Range("A2").Value > Date Then MsgBox "Falsches Datum"
If Sheets("Schicht AF").Range("A2").Value > Date Then 'MsgBox "Falsches Datum"
MsgBox "Sie sollten die Datei erst ab " & Sheets("Schicht AF").Range("A2") & " " & "benutzen"
Könnte man diese Zeilen nicht ändern, zB. einen Monat vor 01.01.2023 ?
Mit dem Datum im Sheets "Schicht AF").in Range("A2") steht das Datum von heute (01.01.2023), denke das es ab morgen Fehlerfrei geht
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
'Dim i As Long, k As Long
' 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
'ComboBoxSchicht = AddItem 1
If Sheets("Schicht AF").Range("A2").Value > Date Then MsgBox "Falsches Datum"
If Sheets("Schicht AF").Range("A2").Value > Date Then 'MsgBox "Falsches Datum"
MsgBox "Sie sollten die Datei erst ab " & Sheets("Schicht AF").Range("A2") & " " & "benutzen"
Fehlerbehandlung:
Exit Sub
Fehler:
End If
ComboBoxDatum = Date - 1 'Datum von gestern ' Wieder aktivieren 02.12.2014
'hier kannste wieder automatisch einlesen
Call ComboboxList_Blattnamen_FehlerLinie 'im Modul1 neu!
With ComboBoxgemeldetHE
.AddItem "VF"
.AddItem "FF"
.AddItem "LS"
.AddItem "Kontrolle"
.AddItem "k.A."
.AddItem ""
End With
With ComboBoxVerdacht
.AddItem "Ja"
.AddItem "Nein"
.AddItem ""
End With
With ComboBoxUmbau
.AddItem "Ja"
.AddItem "Nein"
.AddItem ""
End With
With ComboBoxwie_oft
.AddItem "1"
.AddItem "2"
.AddItem "3"
.AddItem "4"
.AddItem "5"
.AddItem "6"
.AddItem "7"
.AddItem "8"
.AddItem "9"
.AddItem "10"
.AddItem ""
End With
End Sub
Danke Heinz