Listbox funktioniert
28.09.2006 20:32:49
wetzel
Ok, danke nochmal für eure Hilfe.
Hab mal was geschrieben:
Sub einlesen()
'wird in dieseArbeitsmappe ausgeführt - Workbook open
Dim j, s As Integer
Dim Produkt As String
Dim zeile, Endzeile, spalte As Integer
'Listbox1
spalte = 2 'Spalte
zeile = 3
Endzeile = Sheets("Listen").Cells("65536" & spalte).End(xlUp).Row 'letzte Zeile der Spalte ermitteln
Sheets("Discount Calculation Sheet").ListBox1.Clear
For j = 0 To Endzeile - 3
Sheets("Discount Calculation Sheet").ListBox1.AddItem (Sheets("Listen").Cells(zeile, spalte).Value) 'einlesen
Produkt = Sheets("Discount Calculation Sheet").ListBox1.List(j)
zeile = zeile + 1
Next
End Sub
Sub auslesen()
'wird in dieseArbeitsmappe ausgeführt - Workbook beforeclose
Dim s, j, zeile, spalte As Integer
'Zeilen leer machen für neuen Input from da Input-Listboxen
Sheets("Listen").Range("B3:CC10000").Clear
'Startzeile & Spalte
zeile = 3
spalte = 2
'Listbox1
For j = 0 To Sheets("Discount Calculation Sheet").ListBox1.ListCount - 1
Sheets("Listen").Cells(zeile, spalte) = Sheets("Discount Calculation Sheet").ListBox1.List(j)
zeile = zeile + 1
Next
End Sub