Re: Listfeld in UserForm
26.09.2002 15:07:50
Andreas
Hallo,Ich danke für die schnelle hilfe, aber ich komme immernoch nicht klar.
also, im code vom Tabellenblatt steht:
Sub cmdMehrfachauswahl_Click()
frmMehrfachAuswahl.Show
End Sub
Da ich im Moment die UserForm über ein Button ansteuere.
In meiner UserForm steht:
Option Explicit
Private Sub cmdAuswählen_Click()
Dim i%
Dim Zeile As Integer
Zeile = 0
For i = 0 To ListBox1.ListCount - 1
Zeile = Zeile + 1
If ListBox1.Selected(i) = True Then
Cells(Zeile, 7) = i + 1
End If
Next i
cmdAbbrechen_Click
End Sub
Private Sub cmdAbbrechen_Click()
Unload Me
End Sub
Private Sub ListBox1_Click()
Set mylist.Listbox_begrenzt_Auswahl = Me.ListBox1
mylist.maxSelected = 3
' Beispiellistbox füllen
ListBox1.AddItem ("1 - Item1")
ListBox1.AddItem ("2 - Item2")
ListBox1.AddItem ("3 - Item3")
ListBox1.AddItem ("4 - Item4")
ListBox1.AddItem ("5 - Item5")
ListBox1.AddItem ("6 - Item6")
ListBox1.AddItem ("7 - Item7")
ListBox1.AddItem ("8 - Item8")
ListBox1.AddItem ("9 - Item9")
End Sub
Die Userform enthält eine Listbox, ein Button zum einfügen der Ergebnisse in das Excel-Blatt und ein Abbrechen-Button.
in dem Klassenmodul caControls steht das oben beschriebene.
Doch in der Listbox erscheint gar kein Wert, den ich auswählen könnte.
Habe ich etwas vergessen? Ich kenne mich nicht so gut aus im VBA
Viele Grüße
Andi