Listbox Übernahne
14.03.2006 18:38:06
Volker
Ich verzweifle. Kann mir jemand sagen, wo das nachstehende hinkommt?
Worksheets("Bestand").Cells(i, 2).Value
Ich möchte aus dem bezeichneten Tabellenblatt die Daten in eine Listbox einlesen
und krieg es nicht hin.
Private Sub CommandButton1_Click()
Dim i
With Me.ListBox1
.Clear
For i = 1 To 10
.AddItem i
'Zu diesem Eintrag in Spalte 1 einen Eintrag hinzufügen
.List(i - 1, 1) = i & i
Next i
End With
MsgBox "manuell hinzugefügt"
With Me.ListBox1
.Clear
'Anzahl der Spalten in der Listbox definieren
.ColumnCount = 3
'Spaltenbreite definieren (ausprobieren welche Werte nötig sind)
.ColumnWidths = "25;25;25"
For i = 1 To Range("A65536").End(xlUp).Row
'1. Spalte
.AddItem Cells(i, 1).Value
'2. Spalte
.List(i - 1, 1) = Cells(i, 2).Value
'3. Spalte
.List(i - 1, 2) = Cells(i, 3).Value
Next i
End With
End Sub
Danke Gruß Volker