Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon roger.k vom 07.10.2021, 19:45 Options
Compobox gefüllt öffnen
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
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
Antwort 1 von coros vom 07.10.2021, 20:44 OptionsLösung
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.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
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
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 2 von roger.k vom 07.10.2021, 20:47 Options
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
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
Antwort 3 von roger.k vom 07.10.2021, 20:50 Options
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
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
Antwort 4 von coros vom 07.10.2021, 20:53 Options
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
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
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
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Ähnliche Themen
Excel: Makro immer automatisch beim öffnen eines bestimmten Tabellenblattes öffnen
daManuu 03.11.2008 - 50 Hits - 3 Antworten
Animierte gifs mit Photoshop CS3 öffnen
hans889 18.08.2009 - 1727 Hits - 2 Antworten
Excel : Zählen von Zellen, in die gefüllt sind
JensAusBremen 14.01.2009 - 69 Hits - 1 Antwort
Tabellenblatt öffnen
manney 19.06.2009 - 210 Hits - 2 Antworten
Internetseiten öffnen nicht!
wolly.b 29.09.2009 - 670 Hits -
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
