Excel mit VBA

ID #1012

Kombinationsfeld (ComboBox) erstellen

'Nicht für jeden das einfachste der Welt, doch spätestens jetzt schon !!!
'Fügen Sie in die gewünschte Tabelle ein Kombinationsfeld ein.
'(Hierzu zeigen Sie im Menü Ansicht auf Symbolleisten und klicken dann
'auf Steuerelement-Toolbox). Dann nur noch diesen Code in die gleiche
'Tabelle einfügen und schon funkts.


'Kombifeld wird positioniert, Inhalt + Grösse + Reihenfolge wird festgelegt

Private Sub Worksheet_Activate()

    Me.ComboBox1.AddItem "Test 1", 0
    Me.ComboBox1.AddItem "Test 2", 1
    Me.ComboBox1.AddItem "Test 3", 2
    Me.ComboBox1.AddItem "Test 4", 3
    Me.ComboBox1.AddItem "Test 5", 4
    Me.ComboBox1.ListIndex = 0
    Me.ComboBox1.Height = 18
    Me.ComboBox1.Width = 100
    Me.ComboBox1.Left = 20
    Me.ComboBox1.Top = 20
    Me.Range("A1").Select
   
End Sub


'Ausführung bei Auswahl der einzelnen positionen des KombiFeldes

Private Sub ComboBox1_Change()

  Select Case Me.ComboBox1.Value
   
    Case "Test 1"
'
    [A10] = "hat funktioniert 1"
   
    Case "Test 2"
    [A10] = "hat funktioniert 2"
   
    Case "Test 3"
    [A10] = "hat funktioniert 3"
   
    Case "Test 4"
    [A10] = "hat funktioniert 4"
   
    Case "Test 5"
    [A10] = "hat funktioniert 5"
   
  End Select

End Sub

'Beim deaktivieren der Tabelle wird der Inhalt der ComboBox gelöscht
'Ist sehr wichtig, da sonst das Kobifeld alles doppelt usw. lädt

Private Sub Worksheet_Deactivate()
Me.ComboBox1.Clear
End Sub

Tags: -

Verwandte Artikel:

Letzte Änderung des Artikels: 2006-08-26 12:24
Verfasser des Artikels: Thomas Mrozek
Revision: 1.0

Digg it! Artikel ausdrucken Artikel weiterempfehlen Als PDF-Datei anzeigen
Übersetzungsvorschlag für Übersetzungsvorschlag für
Bewertung der Nützlichkeit dieses Artikels:

Durchschnittliche Bewertung: 2.5 von 5 (4 Bewertungen)

vollkommen überflüssig 1 2 3 4 5 sehr wertvoll

Kommentieren von diesen Artikel nicht möglich

Kommentar von GUkgDNpCIU:
Hey there this is kinda of off topic but I was wanting to know if blogs use WYSIWYG edotirs or if you have to manually code with HTML. I'm starting a blog soon but have no coding experience so I wanted to get advice from someone with experience. Any help would be enormously appreciated
Added at: 2012-10-24 18:20