Ich habe gestern schon den ganzen Tag an meinem Code gefeilt aber bekomme einfach nicht hin das Daten in die ListBox2 eingelesen werden. Ich muß dazu sagen das die Listboxen in 2 Seiten einer UF MultiPage angeordnet sind( Listbox1 in Page 0 und ListBox2 in Page1). Ich glaube das dies aber nicht der Fehler ist. Wer kann mir helfen den Fehler zu finden?
Private Sub Userform_Initialize()
Dim C As Range
Dim Zeile As Integer
For Each C In Worksheets("Speicher").Range("G1:G100")
If C.Value = "Angebot" Then
With ListBox1
.ColumnCount = 6
.ColumnHeads = True
'.RowSource = "Angebotsspeicher!A2:E10"
.ColumnWidths = "2,2cm;2cm;3cm;3cm;3cm"
.AddItem C.Offset(0, -4).Value
.List(Zeile, 1) = C.Offset(0, -3).Value
.List(Zeile, 2) = C.Offset(0, -2).Value
.List(Zeile, 3) = C.Offset(0, -1).Value
.List(Zeile, 4) = C.Offset(0, 0).Value
Zeile = Zeile + 1
End With
If C.Value = "Rechnung" Then
With ListBox2
.ColumnCount = 6
.ColumnHeads = True
'.RowSource = "Rechnungsspeicher!A2:E10"
.ColumnWidths = "2,2cm;2cm;3cm;3cm;3cm"
.AddItem C.Offset(0, -4).Value
.List(Zeile, 1) = C.Offset(0, -3).Value
.List(Zeile, 2) = C.Offset(0, -2).Value
.List(Zeile, 3) = C.Offset(0, -1).Value
.List(Zeile, 4) = C.Offset(0, 0).Value
Zeile = Zeile + 1
End With
End If
End If
Next C
End Sub
Danke für eure Hilfe Jens