Userformwerte
17.03.2005 09:12:47
Günter
Zum Thema Userform (Listbox) hätte ich eine Frage:
Folgende Userform/Listbox-Makro ist vorhanden:
Private Sub CommandButton1_Click()
Dim P&, Q&, Result&
P = 1
For Q = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(Q) = True Then
Worksheets("Tabelle1").Cells(P, 1) = ListBox1.List(Q)
P = P + 1
End If
Next
End
End Sub
Das Makro setzt mir gefundene Werte in Tabelle1.
Nun hat die zu durchsuchende Tabelle insgesamt 12 Spalten mit Daten.
Bei o.g. Makro bekomme ich nur die Spalte A der zu durchsuchenden
Tabelle dargestellt.
Wie könnte o.g. Makro ausschauen, damit alle 12 Spalten in die Tabelle1
geschrieben werden ?
Gruß
Günter
Anzeige