Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
688to692
688to692
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Auswahl aus Combobox in Textfelder eintragen

Forumthread: Auswahl aus Combobox in Textfelder eintragen

Auswahl aus Combobox in Textfelder eintragen
30.10.2005 09:13:10
egon
Hallo schönen Sonntag!
Habe ein Problem:
Ich möchte aus einer Combobox1 eien Eintrag auswählen.(Namen Vornamen Schicht)
Also 3 Spalten. Diese Einträge sollen dann in den Textboxen 1,2,3 angezeigt werden. 

Private Sub ComboBox1_Change()
TextBox1.Value = ComboBox1.Column(0, 3)
TextBox2.Value = ComboBox1.Column(1, 3)
TextBox3.Value = ComboBox1.Column(2, 3)
End Sub

Hab schon einiges probiert, geht nicht.
Gruß
Egon
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Auswahl aus Combobox in Textfelder eintragen
30.10.2005 09:28:58
Josef
Hallo Egon!
Z.B. so!
Private Sub ComboBox1_Change()
With ComboBox1
  If .ListIndex > -1 Then
    TextBox1 = .List(.ListIndex, 0)
    TextBox2 = .List(.ListIndex, 1)
    TextBox3 = .List(.ListIndex, 2)
  End If
End With
End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Auswahl aus Combobox in Textfelder eintragen
30.10.2005 09:42:42
egon
Hallo Josef!
Danke für die Sonntagsarbeit
Klappt natürlich.
Habe den Code in Clickereignis eingefügt.
Gruß
Egon Kernien
;
Anzeige
Anzeige

Infobox / Tutorial

Auswahl aus Combobox in Textfelder eintragen

Schritt-für-Schritt-Anleitung

Um die Auswahl aus einer Combobox in Textfelder einzutragen, folge diesen Schritten:

  1. Öffne den VBA-Editor:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Finde dein Formular:

    • Wähle das UserForm aus, das die Combobox und die Textfelder enthält.

  3. Füge den folgenden Code in das Ereignis ComboBox1_Change ein:

    Private Sub ComboBox1_Change()
   With ComboBox1
       If .ListIndex > -1 Then
           TextBox1.Value = .List(.ListIndex, 0)
           TextBox2.Value = .List(.ListIndex, 1)
           TextBox3.Value = .List(.ListIndex, 2)
       End If
   End With
End Sub

  4. Speichere deine Änderungen und teste die Funktionalität. Wenn du einen Eintrag in der Combobox auswählst, sollten die entsprechenden Werte in den Textfeldern erscheinen.

Häufige Fehler und Lösungen

  • Fehler: Textfelder bleiben leer:

    • Lösung: Überprüfe, ob die ListIndex der Combobox korrekt gesetzt ist. Stelle sicher, dass die Combobox Einträge hat.

  • Fehler: Kompilierungsfehler:

    • Lösung: Achte darauf, dass der Code im richtigen Modul (UserForm) eingefügt ist und keine Syntaxfehler vorhanden sind.

Alternative Methoden

Anstelle eines VBA-Codes kannst du auch Formeln oder Datenvalidierung verwenden, um die Auswahl aus der Combobox in andere Zellen zu übertragen. Diese Methoden sind jedoch oft weniger flexibel und erfordern mehr manuelle Eingaben.

Praktische Beispiele

Hier ist ein einfaches Beispiel, das die oben genannten Schritte verdeutlicht:

  1. UserForm erstellen mit:

    • Combobox: ComboBox1
    • Textfelder: TextBox1, TextBox2, TextBox3

  2. Daten für die Combobox:

    • Trage in der ComboBox eine Liste mit Namen, Vornamen und Schichten ein.

  3. Erwartetes Ergebnis:

    • Wenn du einen Namen auswählst, erscheinen Vorname und Schicht in den Textfeldern.

Tipps für Profis

  • Datenbindung: Überlege, ob du eine Datenbindung verwenden möchtest, um die Verwaltung von Daten zu optimieren.
  • Fehlerbehandlung: Implementiere eine Fehlerbehandlung, um unerwartete Eingaben zu berücksichtigen.
  • Designoptimierung: Achte darauf, dass die Combobox und Textfelder visuell ansprechend angeordnet sind, um die Benutzerfreundlichkeit zu verbessern.

FAQ: Häufige Fragen

1. Wie kann ich die Combobox mit Daten aus einer Excel-Tabelle füllen?
Du kannst die RowSource-Eigenschaft der Combobox verwenden, um sie direkt mit Daten aus einem Bereich zu füllen.

2. Funktioniert dieser Code in allen Excel-Versionen?
Ja, der oben angegebene VBA-Code sollte in den meisten Excel-Versionen ab 2007 funktionieren. Stelle sicher, dass du auf die richtige Version zugreifst.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige