Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: ComboBox anwählen - Wert in TextBox

ComboBox anwählen - Wert in TextBox
12.02.2009 06:56:00
Frank
Hallo Zusammen!
Einen schönen guten Morgen! In einer UF befinden sich mehrere TextBoxen und eine ComboBox. Nun möchte ich, dass wenn in der ComboBox ein Eintrag ausgewählt wird, z.B. 1., dann soll in TextBox2 der Wert aus A4 erscheinen, in TextBox3 der Wert aus Zelle B4, wenn der Wert in der ComboBox 2. ist, dann soll der Wert aus Zelle A23 in die TextBox2 und der Wert aus Zelle B23 in die TextBox3 geschrieben werden. Die ComboBox wird mittels AddItem gefüllt. Wie muss nun mein Code aussehen?
Ich hoffe es kann mir jemand helfen und vorab Danke!!!
Gruß Frank H.
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ComboBox anwählen - Wert in TextBox
12.02.2009 09:01:00
Renee
Hi Frank...
und frei:

Private Sub ComboBox1_Change()
TextBox2.Value = ""
TextBox3.Value = ""
Select Case ComboBox1.ListIndex + 1
Case 1
TextBox2.Value = ActiveSheet.Range("A4").Value
TextBox3.Value = ActiveSheet.Range("B4").Value
Case 2
TextBox2.Value = ActiveSheet.Range("A23").Value
TextBox3.Value = ActiveSheet.Range("B23").Value
End Select
End Sub


GreetZ Renée

Anzeige
AW: ComboBox anwählen - Wert in TextBox
12.02.2009 10:51:00
Frank
Hallo Renée!
Danke, es funzt super!!!
Das Forum ist und bleibt Spitze!!!
Een schönes Wochenende und immer fehlerfreie Tabellen wünscht
Frank H.
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

ComboBox und TextBox in Excel verknüpfen


Schritt-für-Schritt-Anleitung

  1. Erstelle eine UserForm in Excel:

    • Öffne den Visual Basic for Applications (VBA) Editor (Alt + F11).
    • Füge eine neue UserForm hinzu (Rechtsklick auf "Formulare" > "UserForm einfügen").
  2. Füge eine ComboBox und zwei TextBoxen hinzu:

    • Ziehe die ComboBox und die TextBoxen aus der Toolbox auf die UserForm.
  3. Fülle die ComboBox:

    • Du kannst die ComboBox entweder direkt im Eigenschaftenfenster befüllen oder im Code.
    • Beispiel für das Hinzufügen von Items:
      Private Sub UserForm_Initialize()
      ComboBox1.AddItem "1."
      ComboBox1.AddItem "2."
      End Sub
  4. Implementiere den Code zur Verknüpfung:

    • Füge den folgenden Code in das Code-Fenster der UserForm ein:
      Private Sub ComboBox1_Change()
      TextBox2.Value = ""
      TextBox3.Value = ""
      Select Case ComboBox1.ListIndex + 1
         Case 1
             TextBox2.Value = ActiveSheet.Range("A4").Value
             TextBox3.Value = ActiveSheet.Range("B4").Value
         Case 2
             TextBox2.Value = ActiveSheet.Range("A23").Value
             TextBox3.Value = ActiveSheet.Range("B23").Value
      End Select
      End Sub
  5. Teste die UserForm:

    • Schließe den VBA-Editor und starte die UserForm, um sicherzustellen, dass die Auswahl in der ComboBox die entsprechenden Werte in den TextBoxen anzeigt.

Häufige Fehler und Lösungen

  • Fehler: ComboBox zeigt keine Items an:

    • Lösung: Stelle sicher, dass die Items in der ComboBox im UserForm_Initialize-Event hinzugefügt werden.
  • Fehler: TextBox bleibt leer:

    • Lösung: Überprüfe den Code im ComboBox1_Change-Event und stelle sicher, dass die Zellen A4, B4, A23 und B23 Werte enthalten.
  • Fehler: Fehler beim Ausführen des Codes:

    • Lösung: Stelle sicher, dass du in der richtigen Excel-Version arbeitest und dass der VBA-Code korrekt eingegeben wurde.

Alternative Methoden

  • Verwendung von Datenvalidierung:

    • Anstatt eine ComboBox zu verwenden, kannst du auch die Datenvalidierungsfunktion in Excel nutzen, um eine Dropdown-Liste aus Zellen zu erstellen.
  • Formeln verwenden:

    • Du könntest auch die WVERWEIS oder SVERWEIS Funktion verwenden, um die Werte basierend auf der Auswahl in der ComboBox zu beziehen, anstatt VBA zu nutzen.

Praktische Beispiele

  • Beispiel 1: Wenn du in der ComboBox "1." wählst, erscheinen die Werte aus A4 und B4 in den TextBoxen. Wenn du "2." wählst, erscheinen die Werte aus A23 und B23.

  • Beispiel 2: Du kannst die ComboBox auch mit mehr Optionen füllen und die Logik im Select Case erweitern, um weitere Kombinationen abzudecken.


Tipps für Profis

  • Verwende Option Explicit: Setze am Anfang deiner Module Option Explicit, um sicherzustellen, dass alle Variablen deklariert sind, was Fehlersuche erleichtert.

  • Nutze With...End With: Wenn du mehrere Eigenschaften eines Objekts ansprechen musst, nutze With...End With, um den Code lesbarer zu gestalten:

    With TextBox2
      .Value = ActiveSheet.Range("A4").Value
      .TextColor = RGB(255, 0, 0) ' Textfarbe ändern
    End With

FAQ: Häufige Fragen

1. Wie kann ich mehr als zwei TextBoxen mit der ComboBox verknüpfen?
Du kannst das Select Case-Statement erweitern und weitere Case-Anweisungen hinzufügen.

2. Funktioniert das auch in Excel für Mac?
Ja, die oben beschriebenen Schritte funktionieren in der Windows-Version von Excel sowie in Excel für Mac, solange du die VBA-Funktionalität nutzt.

3. Was mache ich, wenn die UserForm nicht erscheint?
Stelle sicher, dass du den richtigen Befehl zum Anzeigen der UserForm verwendest, z.B. UserForm1.Show.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige