Kombinationsfelder

Computer: Software & Programmierung Visual Basic
#1

Hallo zusammen,

ich möchte gerne einen Kombinationsbutton im Word erstellen, bin aber in der Vb programmierung nicht so fit… Ich weiß das man einen solchen Button über Formular usw erstellen kann, allerdings würde ich meinen aufgrund ein paar kleiner Dinge lieber durch Steuerelemente Toolbox einfügen. Nachdem ich den Button auf das Blatt gesetzt habe, kann ich ihm nicht wie in Excel eine Spalte bzw eine Matrix zuweisen, also bleibt nur die möglichkeit dies über eine Vb programmierung zu machen… Wer kann mir weiter helfen wie der Cod auszusehen hat?
Wenn ich z.B. eine Auswahl von Äpfel, Birnen und Bananen haben möchte…

#2

Moin, MasterT82,

rechte Maustaste > Code anzeigen > VBA-Hilfe > nach Combobox suchen.

Gruß Ralf

#3

Danke für die schnelle Hilfe, allerdings komme ich immer noch nicht richtig weiter… Mitleerweile schreibt es mir zwar mit diesem Befehl den ich gleich posten werde in meine ComboBox allerdings verdoppeln sich die Begriffe sobald ich einen von Ihnen aufgerufen habe! Was fehlt mir bei meiner programmierung?

Private Sub ComboBox1_Change()

ComboBox1.AddItem „äpfel“
ComboBox1.AddItem „birnen“
ComboBox1.AddItem „bananen“

End Sub

#4

Hallo,

versuch’s mal damit:

Die Combobox wir gefüllt, wenn das Dokument geöffnet wird.
Du musst es also erst mit dem Code sichern und schließen.
Dann wird bei jedem Öffnen die Combobox gefüllt.

Gruß Rainer

Private Sub Document\_Open()
 ComboBox1.AddItem "äpfel"
 ComboBox1.AddItem "birnen"
 ComboBox1.AddItem "bananen"
End Sub

Private Sub ComboBox1\_Click()
 Select Case ComboBox1.ListIndex
 Case 0
 'Es wurden Äpfel gewählt.
 'Hier kommt der Code hin,
 'was dann passieren soll.
 Case 1
 'Es wurden Birnen gewählt
 Case 2
 'Es wurden Bananen gewählt
 Case Else
 'Es wurde geklickt, aber keiner
 'der drei Einträge gewählt.
 End Select
End Sub
#5

Danke für die schnelle Hilfe, allerdings komme ich immer noch
nicht richtig weiter… Mitleerweile schreibt es mir zwar mit
diesem Befehl den ich gleich posten werde in meine ComboBox
allerdings verdoppeln sich die Begriffe sobald ich einen von
Ihnen aufgerufen habe! Was fehlt mir bei meiner
programmierung?

Hallo Master,

Private Sub ComboBox1\_Change()
'nix
End Sub
'
Sub Einmalig()
With ActiveDocument.ComboBox1
 .Clear
 .AddItem "äpfel"
 .AddItem "birnen"
 .AddItem "bananen"
End With
End Sub

Gruß
Reinhard

#6

Hallo Reinhard,

danke für die schnelle antwort, soweit funzt die Auswahl, aber nur so lange ich die Datei geöffnet habe, wenn ich gespeichert habe und dann wieder öffne, muss ich erst wieder in den VB Modus gehen und bei diesem auf play drücken, dass ist allerdings wesentlich zu umständig… Es muss doch noch einen Befehl geben, den ich einbauen kann, damit die Auswahl nach jedem start des Programms funktioniert…

Mfg

Tim

#7

Super Rainer,

vielen Dank für deine Hilfe…
Mit den von dir angegebenen Zeilen funzt es super…
Vielen vielen Dank

Mfg

Tim

#8

Hallo eine Frage hätte ich noch u zwar wollte ich jetzt ein 2tes Kombinationsfeld hinzufügen, hat auch geklappt, allerdings überträgt es mir die Daten entweder nur in mein erstes oder mein zweites Kobinationsfeld! Mein Code heißt:

Private Sub Document_open()
ComboBox1.AddItem „äpfel“
ComboBox1.AddItem „birnen“
ComboBox1.AddItem „bananen“
ComboBox1.AddItem „Kiwis“
ComboBox1.AddItem „Kirschen“
ComboBox1.AddItem „Pflaumen“
End Sub

Private Sub ComboBox1_Click()
Select Case ComboBox1.ListIndex
Case 0
'Es wurden Äpfel gewählt.
'Hier kommt der Code hin,
'was dann passieren soll.
Case 1
'Es wurden Birnen gewählt
Case 2
'Es wurden Bananen gewählt
Case 3
'Es wurden Kiwis gewählt
Case 4
'Es wurden Kirschen gewählt
Case 5
'Es wurden Pflaumen gewählt
Case Else
'Es wurde geklickt, aber keiner
'der drei Einträge gewählt.
End Select
End Sub

Private Sub Document1_open()
ComboBox2.AddItem „ja“
ComboBox2.AddItem „nein“
ComboBox2.AddItem „vielleicht“
ComboBox2.AddItem „maybe“
ComboBox2.AddItem „kann sein“
End Sub

Private Sub ComboBox2_Click()
Select Case ComboBox2.ListIndex
Case 0
'Es wurde ja gewählt
Case 1 'Es wurde nein gewählt
Case 2 'Es wurde vielleicht gewählt
Case 3 'Es wurde maybe gewählt
Case 4 'Es wurde kann sein gewählt
Case Else
End Select
End Sub

vielen Dank im vorraus

#9

Hallo Master,

nemutze beim posten bitte den pre-Tag, siehe FAQ:3090

Gruß
Reinhard

Private Sub Document\_open()
With ComboBox1
 .AddItem "äpfel"
 .AddItem "birnen"
 .AddItem "bananen"
 .AddItem "Kiwis"
 .AddItem "Kirschen"
 .AddItem "Pflaumen"
End With
With ComboBox1
 .AddItem "ja"
 .AddItem "nein"
 .AddItem "vielleicht"
 .AddItem "maybe"
 .AddItem "kann sein"
End With
End Sub
'
Private Sub ComboBox1\_Click()
Select Case ComboBox1.ListIndex
 Case 0
 'Es wurden Äpfel gewählt.
 'Hier kommt der Code hin,
 'was dann passieren soll.
 Case 1
 'Es wurden Birnen gewählt
 Case 2
 'Es wurden Bananen gewählt
 Case 3
 'Es wurden Kiwis gewählt
 Case 4
 'Es wurden Kirschen gewählt
 Case 5
 'Es wurden Pflaumen gewählt
 Case Else
 'Es wurde geklickt, aber keiner
 'der drei Einträge gewählt.
End Select
End Sub
'
Private Sub ComboBox2\_Click()
Select Case ComboBox2.ListIndex
 Case 0 'Es wurde ja gewählt
 Case 1 'Es wurde nein gewählt
 Case 2 'Es wurde vielleicht gewählt
 Case 3 'Es wurde maybe gewählt
 Case 4 'Es wurde kann sein gewählt
 Case Else
End Select
End Sub
#10

Super, jetzt klappt alles… Hab nur noch einen kleinen Fehler in der Formel verbessert! Man muss anstelle von ComboBox1 einmal ComboBox2 schreiben u dann geht alles.
Vielen Dank für die schnelle Hilfe!!!