Compobox gefüllt öffnen

Question

Hallo Zusammen

Meine Frage:

Ich habe eine Combobox gemacht die mir bei Folgenden
inhalten:


"Test1" eine 1 in AQ37 schreibt
"Test2" eine 2 in AQ37 schreibt
"Test3" eine 3 in AQ37 schreibt

Nun möchte ich bei einem erneuten öffnen der Userform
gleich die entsprechende "AddItem" gewählt haben

Wenn in AQ37 eine 2 steht soll in der Combobox
"Test2" aktiv sein

Vielen Dank für eure Hilfe

mfG Roger

Answer 1

Hallo Roger,

nachfoilegnde Codezeilen in Deine UserForm eingefügt, bewirken, dass die ComboBox beim Öffnen mit den Texten Test1, Test2 und Test3 gefüllt wird und entsprechend der Zahl in AQ37 der entsprechende Text in der ComboBox angezeigt wird.

Kopiere den Code in das VBA-Projekt der UserForm.
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.

Private Sub UserForm_Initialize()
Dim intZahl As Integer
For intZahl = 1 To 3
ComboBox1.AddItem "Test" & intZahl
Next
If Range("AQ37") = 1 Then
ComboBox1.Text = "Test1"
ElseIf Range("AQ37") = 2 Then
ComboBox1.Text = "Test2"
ElseIf Range("AQ37") = 3 Then
ComboBox1.Text = "Test3"
End If
End Sub


MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]

Answer 2

Habe es selbst Rausgefunden:

Userform1.Combobox1.Clear
Userform1.Combobox1.AddItem "Test1"
Userform1.Combobox1.AddItem "Test2"
Userform1.Combobox1.AddItem "Test3"

If Cells(29, 16) = 1 Then
Userform1.Combobox1.ListIndex = 0
ElseIf Cells(29, 16) = 2Then
Userform1.Combobox1.ListIndex = 1
ElseIf Cells(29, 16) = 3Then
Userform1.Combobox1.ListIndex = 2
End If

Userform1.Show

Trotzdem vielen Dank

Answer 3

Hallo Oliver

Sorry habe die Seite nicht neu geladen und deine
Antwort nicht gesehen.

Vielen Dank für deine Antwort sieht echt gut aus!

Schönen Abend noch
MfG Roger

Answer 4

Hallo,

na dass sind vielleicht Angaben. Du schreibst in Deiner Frage AQ37 und in Deiner Lösung handelt es sich um Zelle P29.

*Kopfschüttel*

MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]