Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
384to388
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
384to388
384to388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Kombinationsfeld in UserForm

Kombinationsfeld in UserForm
20.02.2004 16:03:00
Peter
Hallo !
Würde gerne einem Kombinationsfeld einer UserForm zwei Alternativen zuweisen (Alt1 und Alt2). Je nachdem was im Dialog ausgewählt wird, würde ich ich gerne bei Alt1 der Zelle c1 den Wert 1 zuordnen und bei Alt2 der Zelle c1 den Wert -1 zuordnen.
Da ich Anfänger bin, wäre ein idiotensicherer Tip echt super !
Danke schon mal vorab
Peter

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kombinationsfeld in UserForm
20.02.2004 21:58:14
Josef Ehrensberger
Hallo Peter!
Ein Beispiel.
Du benötigst eine UF mit einer Kombobox.


'Modul der UserForm
'Userform mit dem Namen "UserForm1"
'Combobox mit dem Namen "ComboBox1"
Private Sub ComboBox1_Click()
'Ereignis wenn ein Eintrag gewählt wird
Select Case ComboBox1.ListIndex
Case 1
[C1] = 1
Case 2
[C1] = -1
Case Else
[C1] = ""   'diese Zeile löschen ,wenn der Wert erhalten bleiben
            'soll, wenn die Überschrift gewählt wird
End Select
End Sub
Private Sub UserForm_Initialize()
'Combobox1 füllen
Dim As Integer
ComboBox1.AddItem "Alternative wählen", 0
For i = 1 To 2
ComboBox1.AddItem "Alternative " & i, i
Next
ComboBox1.ListIndex = 0
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß Sepp
Anzeige
DANKESCHÖN ---Hat funktioniert ;-)
21.02.2004 00:47:01
Peter
...

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige