ComboBox dynamisch befüllen

Theo · 2018-02-11T20:23:41+00:00

Ich habe ein Formular erstellt, in dem im oberen Teil mit einem OptionButton die Sprache Deutsch oder Englisch auswählen kann. Darunter habe ich 3 ComboBoxen, die, je nachdem ob Deutsch oder Englisch ausgewählt wurde, mit den Einträgen der richtigen Sprache befüllt sind. Die Einträge für Combobox1 zB stehen in Deutsch in C243:C260, die Englischen in D243:D260. Ich habe jetzt folgendes versucht: Private Sub ComboBox1_Change() If C2 = False Then ComboBox3.ListFillRange = ("D243:D260") End If If C2 = True Then ComboBox3.ListFillRange = ("C243:C260") End If Leider habe ich sehr beschränkte VBA Kenntnisse. Vielleicht kann mir da jemand weiterhelfen. Vielen Dank.

Hallo Theo,
im Moment kann ich leider keine .xlsm herunterladen.
Ich versuchs mal in Schriftform:
1. eine Userform anlegen
2. einen Rahmen aus den Steuerelementen auf die Userform
3. Beschriftung Rahmen "Sprache"
4. 2 OptionButton in den Rahmen legen
5. OptionButton1 umbenennen in Deutsch, Beschriftung Deutsch
6. OptionButton2 umbenennen in Englisch, Beschriftung Englisch
7. eine Combobox auf die Userform
Folgenden Code ins Codemodul der Userform:

Private Sub ComboBox1_DropButtonClick()
If Me.Deutsch Then
Me.ComboBox1.RowSource = "C243:C260"
ElseIf Me.Englisch Then
Me.ComboBox1.RowSource = "D243:D260"
End If
End Sub
Private Sub UserForm_Initialize()
Me.Deutsch = True
End Sub

Die Userform wird mit gesetztem OptionButton "Deutsch" gestartet
Dadurch, dass die OptionButton in einem Rahmen sind, kann automatisch immer nur einer gewählt sein.
Gruß Werner

Hallo Theo,
da beide Dateien im gleichen Pfad sind/in den gleichen Pfad sollen, kannst du dir den Pfad ja im Code deiner Musterdatei über ThisWorkbook.Path holen (die Musterdatei muss dann natürlich vor dem ersten Ausführen des Codes im entsprechenden Ordner gespeichert worden sein).
Weiterhin dann einfach das SaveCopyAs nutzen. Dadurch wird deine Musterdatei als Kopie gespeichert, die Musterdatei bleibt offen. Gegenüber dem SaveAs sparst du dir dann dadurch das Schließen der neuen Datei und das erneute Öffnen der Musterdatei.

Sub Schaltfläche11_Klicken()
Dim strDatei As String, strPfad As String
Application.ScreenUpdating = False
strDatei = "RE " & Range("C10").Value & " " & Range("E11").Value & ".xlsm"
strPfad = ThisWorkbook.Path & "\" & strDatei
ThisWorkbook.SaveCopyAs strPfad
Application.ScreenUpdating = True
End Sub

Gruß Werner

Forumthread: ComboBox dynamisch befüllen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial