Private Sub Workbook_Open()

Heinz · 2023-01-01T16:21:01+00:00

Ein gutes neues Jahr an alle hier im Forum, Mein Problem: Habe bei "Private Sub Workbook_Open()" eine UserForm die ich mit "Fehler_Eingabe.Show" aufrufe. Seit neuestens kommt jetzt aber immer der LaufzeitFehler "380" Eigenschaft Value konnte nicht gesetzt werden. Ungültiger Eigenschaftenwert." Wüsste jemand woran das liegen kann ? Danke SG, 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

Forumthread: Private Sub Workbook_Open()

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Private Sub Workbook_Open()

Forumthread: Private Sub Workbook_Open()

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread