Datum wird in Combox falsch angezeigt
Fredy
Ich verwende diesen code um über eine ComboBox Daten in einem UserForm anzuzeigen
Dim wksCombo As Worksheet, Zeile1 As Long
Private Sub ComboBox1_Click()
Dim Zeile As Long
Zeile = Zeile1 + Me.ComboBox1.ListIndex
Me.TextBox1 = Format(wksCombo.Cells(Zeile, 2).Value, "hh:mm")
Me.TextBox2 = wksCombo.Cells(Zeile, 3).Value
Me.TextBox3 = wksCombo.Cells(Zeile, 4).Value
Me.TextBox4 = Format(wksCombo.Cells(Zeile, 5).Value, "hh:mm")
Me.TextBox5 = wksCombo.Cells(Zeile, 6).Value
Me.TextBox6 = wksCombo.Cells(Zeile, 7).Value
Me.TextBox7 = Format(wksCombo.Cells(Zeile, 8).Value, "hh:mm")
Me.TextBox8 = wksCombo.Cells(Zeile, 9).Value
Me.TextBox9 = Format(wksCombo.Cells(Zeile, 10).Value, "hh:mm")
Me.TextBox10 = wksCombo.Cells(Zeile, 11).Value
Me.TextBox11 = Format(wksCombo.Cells(Zeile, 12).Value, "hh:mm")
Me.TextBox12 = wksCombo.Cells(Zeile, 13).Value
Me.TextBox13 = Format(wksCombo.Cells(Zeile, 14).Value, "hh:mm")
Me.TextBox14 = wksCombo.Cells(Zeile, 15).Value
End Sub
Private Sub UserForm_Initialize()
Dim rngSorte As Range
Set wksCombo = Worksheets("Maschine")
With wksCombo
Set rngSorte = .Range(.Cells(3, 1), .Cells(.Rows.Count, 2).End(xlUp).Offset(0, 1))
Zeile1 = rngSorte.Row
Me.ComboBox1.RowSource = "'" & .Name & "'!" & rngSorte.Address
End With
With Me.ComboBox1
.ColumnCount = 2
.ListWidth = 200
.ColumnWidths = "50Pt;140Pt"
End With
End Sub
Hat jemand eine lösung
Gruss Fredy
