AW: USERFORM
28.04.2005 03:18:53
paula
WIE HEISST DU? Siehe Forumsregel,sonst siehst du hier schwarz
Private Sub Workbook_Open() 'ThisWorkbook doppelklicken
UserForm1.Show 'deine Userform,evtl namen anpassen
End Sub
in der UF:
Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 1
ListBox1.RowSource = "Tabelle1!A:A"
'Art der Item-Markierung festlegen WÄHLE EINS der DREI für deine Bedürfnisse!
ListBox1.MultiSelect = fmMultiSelectSingle 'nur ein Eintrag kann markiert werden
'oder
ListBox1.MultiSelect = fmMultiSelectMulti 'mehrere Einträge nacheinander markieren
'oder
ListBox1.MultiSelect = fmMultiSelectExtended 'unzusammenhängend Einträge markieren
End Sub
Private Sub CommandButton1_Click()
'hier 2 Beispiele zum Gebrauch der ListBox1
'MsgBox ListBox1.ListIndex 'liefert die Indexnummer des markierten Eintrags
'0 für den ersten,1 für den zweiten, usw
'MsgBox ListBox1.Value 'bei "fmMultiSelectSingle" liefert
'er den markirten Eintrag
'....hier musst du selber den Code zusammenstellen,
' der ablaufen soll, je nachdem werlcher Eintrag markiert wurde
'Das kann ich nicht wissen ;-)
End Sub
Viel spass
paula