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

Listbox-Auswahl in eine Zelle schreiben

Forumthread: Listbox-Auswahl in eine Zelle schreiben

Listbox-Auswahl in eine Zelle schreiben
Tim
Hallo,
ich habe eine UserForm mit einer ListBox.
Kann mir jemand sagen, was ich tun muss, damit bei Auswahl eines Eintrags der entsprechende Begriff in immer die gleiche Zelle (Blatt2, K120) geschrieben wird.
Wird ein anderer Wert in der Liste ausgewählt, soll der aktuelle Eintrag in K120 überschrieben.
Wird der erste Eintrag in der Liste ausgewählt, soll "" in K120 geschrieben werden.
VG und vielen Dank im Voraus für jeden Tipp,
Tim
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Listbox-Auswahl in eine Zelle schreiben
30.07.2012 17:42:44
Matthias
Hallo Tim
Private Sub ListBox1_Click()
Tabelle2.Range("K120") = Me.ListBox1.Value
End Sub
Gruß Matthias
AW: Listbox-Auswahl in eine Zelle schreiben
30.07.2012 17:45:22
Tim
Hallo Matthias,
vielen Dank für die schnelle Hilfe - und so einfach ! :-)
Klappt bestens.
VG und einen schönen Nachmittag,
Tim
Anzeige
achso wg. 1.Eintrag = leer---> dann so ...
30.07.2012 17:53:26
Matthias
Hallo Tim
Private Sub ListBox1_Click()
If ListBox1.ListIndex = 0 Then
Tabelle2.Range("K120").ClearContents
Else
Tabelle2.Range("K120") = Me.ListBox1.Value
End If
End Sub

Beachte bitte das ich mit dem CodeNamen der Tabelle arbeite (Der RegisterblattName ist unwichtig!)
Willst Du immer das es im 2.Tabellenblatt lt. Index eingetragen werden soll
musst Du statt Tabelle2 einfach Sheets(2) ... benutzen.
Das ist dann das 2.Blatt von links.
Das muss natürlich auch existieren, sonst müsste noch eine Fehlerbehandlung rein.
Nur Interessehalber:
Warum willst Du eigentlich bei Auswahl des ersten Eintrages einen Leerstring in die Zelle schreiben ?
Gruß Matthias
Anzeige
AW: achso wg. 1.Eintrag = leer---> dann so ...
30.07.2012 17:58:03
Tim
Spitze - vielen Dank auch dafür, Matthias !
Auch das klappt bestens. :-)
VG,
Tim
Anzeige
Anzeige

Infobox / Tutorial

Listbox-Auswahl in eine Zelle schreiben

Schritt-für-Schritt-Anleitung

Um die Auswahl aus einer Excel ListBox in eine bestimmte Zelle zu schreiben, folge diesen Schritten:

  1. Erstelle eine UserForm und füge eine ListBox hinzu. Nenne sie z.B. ListBox1.

  2. Füge den folgenden VBA-Code in das Code-Fenster deiner UserForm ein:

    Private Sub ListBox1_Click()
   If ListBox1.ListIndex = 0 Then
       Tabelle2.Range("K120").ClearContents
   Else
       Tabelle2.Range("K120") = Me.ListBox1.Value
   End If
End Sub

  3. Ersetze Tabelle2 mit dem tatsächlichen Code-Namen des Arbeitsblatts, wenn du sicherstellen möchtest, dass der Wert im zweiten Tabellenblatt geschrieben wird.

  4. Teste die Funktion: Wähle verschiedene Items in der ListBox und überprüfe, ob die Zelle K120 entsprechend aktualisiert wird.

Häufige Fehler und Lösungen

  • Fehler: "Laufzeitfehler 1004"

    • Lösung: Stelle sicher, dass das Zielblatt existiert und der Code-Name korrekt ist.

  • Fehler: Nichts passiert beim Klicken auf die ListBox

    • Lösung: Überprüfe, ob das Event ListBox1_Click richtig zugeordnet ist und ob die ListBox Items enthält.

Alternative Methoden

Wenn du keine UserForm verwenden möchtest, kannst du auch eine aktive ListBox auf einem Arbeitsblatt erstellen:

  1. Füge eine ActiveX-ListBox auf dein Arbeitsblatt ein.
  2. Verwende denselben Code im Arbeitsblattmodul, um die Auswahl in die Zelle zu schreiben.

Praktische Beispiele

Hier ist ein Beispiel für eine Listbox mit Werten:

  1. Füge in die ListBox die Werte "Wert1", "Wert2", "Wert3" ein.
  2. Wenn du "Wert1" auswählst, wird die Zelle K120 geleert.
  3. Bei Auswahl von "Wert2" wird "Wert2" in die Zelle K120 geschrieben.

Tipps für Profis

  • Verwende Fehlerbehandlung: Implementiere On Error Resume Next in deinem Code, um potenzielle Fehler beim Schreiben in die Zelle zu vermeiden.
  • Dynamische Auswahl: Du kannst die ListBox dynamisch mit Werten aus einer Datenquelle füllen, z.B. aus einem Bereich in einem Arbeitsblatt.
  • Styling: Passe das Aussehen deiner ListBox an, um die Benutzererfahrung zu verbessern.

FAQ: Häufige Fragen

1. Wie wird achso geschrieben? Es wird "ach so" geschrieben. Achte darauf, diese Regel in der Kommunikation zu beachten.

2. Kann ich die ListBox auch auf einem Arbeitsblatt statt in einer UserForm verwenden? Ja, du kannst eine ActiveX-ListBox direkt auf einem Arbeitsblatt erstellen und denselben Code verwenden, um die Auswahl in eine Zelle zu übertragen.

Beliebteste Forumthreads (12 Monate)

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