Eintrag UF aus Liste
10.02.2020 08:42:08
Bo
ich möchte ereignisgesteuert die Werte von Listen bzw. Comboboxen einer UserForm mit den Werten einer Zeile belegen. Das klappt auch soweit sowohl bei Strings als auch bei Teilen eines Dates, nur bei Me.List_D_ADate funktioniert es nicht. Bei allen anderen Zeilen funktioniert es einwandfrei und die Bezeichnung der Liste passt auch. Der Debug.Print gibt mir auch den richtigen Teilwert des Datums aus. Ich habe auch einmal versucht, den Wert zuvor auf "" zu setzen.
Private Sub Combo_Ref_Change()
Dim i As Integer, lastE As Integer
With ThisWorkbook.Worksheets("E")
Worksheets("E").Activate
lastE = ThisWorkbook.Worksheets("E").Cells(Rows.Count, 3).End(xlUp).Row + 1
For i = 3 To lastE
If .Cells(i, 2).Value = frmEinsatzändern.Combo_Ref.Value Then
Debug.Print .Cells(i, 4).Value
Me.List_Name.Value = .Cells(i, 3).Value
Me.List_Vorname.Value = .Cells(i, 4).Value
Me.List_Projekt.Value = .Cells(i, 7).Value
Me.List_Art.Value = .Cells(i, 6).Value
Me.List_D_ADate.Value = Left(.Cells(i, 8).Value, 2)
Me.List_M_ADate.Value = Mid(.Cells(i, 8).Value, 4, 2)
Me.List_Y_ADate.Value = Right(.Cells(i, 8).Value, 4)
Me.List_D_EDate.Value = Left(.Cells(i, 9).Value, 2)
Me.List_M_EDate.Value = Mid(.Cells(i, 9).Value, 4, 2)
Me.List_Y_EDate.Value = Right(.Cells(i, 9).Value, 4)
Me.List_AU.Value = " "
End If
Next
End With
End Sub
Bekomme Laufzeitfehler '380' Objekt konnte nicht gesetzt werden. Ungültiger Eigenschaftswert