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…
Moin, MasterT82,
rechte Maustaste > Code anzeigen > VBA-Hilfe > nach Combobox suchen.
Gruß Ralf
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
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
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
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
Super Rainer,
vielen Dank für deine Hilfe…
Mit den von dir angegebenen Zeilen funzt es super…
Vielen vielen Dank
Mfg
Tim
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
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
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!!!