Re: Mehrsp Listb auslesen - ändern - nichts im Archiv
12.03.2003 13:18:29
Ramses
Hallo Andreas,Deine Listbox hat zum Beispiel 10 Spalten
For i = 1 to 10
Debug.Print Me.Listbox1.Column(i-1)
Next i
Die Zählung der Spalten beginnt bei 0
Damit werden die Daten des gewählten Eintrages ins Debug.Fenster ausgedruckt.
For i = 1 to 3
For n = 1 to 10
Debug.print Me.Listbox1.List(i,n-1)
Next n
Next i
Werden die Datensätze von 1 - 3 der Reihe nach spalten 1 - 10 ausgedruckt
Mit
x = Me.Listbox1.List(5,2)
x = x & " Neu"
Me.Listbox1.List(5,2) = x
kannst du im 5. Datensatz die Spalte 3 einlesen, ändern und wieder zurückschreiben. Das geht aber nur wenn der Listbox keine Rowsource zugewiesen wurde, also per VBA mit AddItem gefüllt wurde.
Gruss Rainer