ListBox funktioniert nicht
19.10.2004 16:19:20
M.Str.
Servus Forum-Aktive,
ich bitte Euch, Spezialisten,
mir zu helfen !
Anbei mein vergeblicher Versuch
eine funktionsfähige ListBox
zu erstellen, die über eine
Makro-Schalt-Fläche aufgerufen
wird.
'------------------------------
' ClassModule: Tabelle1 ' ?
Sub Schaltfläche3_Click()
'Aufrufen der ListBox2
'ListBox wird geöffnet
' frmAuswahl.Show
'ListBox wird geöffnet
ListBox2.Visible = True
End Sub
'-------------------------------
' ClassModule: frmAuswahl ' ?
Private Sub ListBox2_Change()
'Hier soll der Auswahl-Begriff
'in der aktiven Zelle abgelegt
'werden
'aktive Zelle wird erfasst
ActiveCell.Select
'gespeicherter ListBox-Wert wird
'in aktiver Zelle abgelegt
ActiveCell.Value = ListBox2.Value
' ActiveCell = ListBox2.Value
'ListBox wird geschlossen
ListBox2.Visible = False
End Sub
'---------------------------------
Private Sub UserForm_Initialize()
'Hier sollen die Auswahl-Begriffe
'in die ListBox2 eingelesen werden
With frmAuswahl.ListBox2
.AddItem "ABC"
.AddItem "DEF"
.AddItem "GHI"
.AddItem "JKL"
.ListIndex = 0
End With
End Sub
'-----------------------------
Wo müssen die einzelnen
Programm-Abschitte installiert
werden, in Tabelle1, in Modul1,
in Klasse1 ?
Ich stehe total auf dem Schlauch,
wer kann mir bitte, bitte, bitte,
helfen ?
Gruss Michael