|
da würde ich jetzt drauf tippen, dass du in der Spalte noch Text hast
ist in Zeile 1 eine Überschrift?
das verträgt sich nicht mit CInt
dann vielleicht so
Private Sub UserForm_Initialize()
Dim Zeile As Long
'Schleife über alle Zeilen der Tabelle
For Zeile = 1 To Tabelle3.Cells(Rows.Count, 2).End(xlUp).Row
Me.ListBox1.AddItem Tabelle3.Cells(Zeile, 1)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Tabelle3.Cells(Zeile, 2)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = Tabelle3.Cells(Zeile, 3)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = Tabelle3.Cells(Zeile, 4)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = Tabelle3.Cells(Zeile, 5)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 5) = Tabelle3.Cells(Zeile, 6)
If IsNumeric(Tabelle3.Cells(Zeile, 7)) Then
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 6) = CInt(Tabelle3.Cells(Zeile, 7))
Else
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 6) = Tabelle3.Cells(Zeile, 7)
End If
Next Zeile
End Sub
|