Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1624to1628
1624to1628
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Listbox Items abfangen & weiter damit arbeiten

Forumthread: Listbox Items abfangen & weiter damit arbeiten

Listbox Items abfangen & weiter damit arbeiten
15.05.2018 15:31:41
Franz
Hallo,
kann man mit den Items einer Listbox weiterarbeiten & diese nochmal abfragen?
Kurzes Beispiel:
Befüllte Listbox
ListBox1.AddItem "Kunde 1"
ListBox1.AddItem "Kunde 2"
ListBox1.AddItem "Kunde 3"
ListBox1.AddItem "Kunde 4"
Nun kurze Abfrage:
'Wenn "Kunde 1" ausgewählt wurde, dann befülle Range mit "..."
'Wenn "kunde 2" ausgewählt wurde, dann befülle Range mit "..."

If ListBox1.Value = ListBox1.List(0)Then
Range("A12").Value = "Bankhaus Meier"
ElseIf Listbox1.Value = ListBox1.List(1) Then
Range("A12").Value = "Bankhaus Sparkasse"
End If

Kann mir da jemand helfen?
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Listbox Items abfangen & weiter damit arbeiten
15.05.2018 15:57:07
Mullit
Hallo,
einfach über den Listindex im Click-Event der Box: 
Option Explicit
Private Sub ListBox1_Click()
Select Case ListBox1.ListIndex
Case Is = 0
Range("A12").Value = "Bankhaus Meier"
Case Is = 1
Range("A12").Value = "Bankhaus Sparkasse"
Case Is = 2
Range("A12").Value = "Bankhaus Volksbank"
Case Else
Range("A12").Value = "Bankhaus Deutsche Bank"
End Select
End Sub

Gruß, Mullit
Anzeige
AW: Listbox Items abfangen & weiter damit arbeiten
16.05.2018 08:15:21
Franz
Hallo Mullit,
vielen Dank für deine Antwort.
Diese hilft mir leider nur bedingt weiter. Ich meinte ob ich in einem anderen Sub (nicht direkt in der Listbox_Click) dann das was ich in der Listbox ausgewählt habe noch einmal abfragen kann.
Wenn ich deine Select Case einfach im anderen Sub einfüge, wird natürlich kein Objekt (ListBox.ListIndex) gefunden. Hast du da eine Idee?
Gruß
Anzeige
AW: Listbox Items abfangen & weiter damit arbeiten
16.05.2018 08:23:12
Mullit
Hallo,
na, da muß doch nur noch das TabBlatt davor... 
Option Explicit

Public Sub Deine_Andere_Proc()
Select Case Tabelle1.ListBox1.ListIndex
    Case Is = 0
        Range("A12").Value = "Bankhaus Meier"
    Case Is = 1
        Range("A12").Value = "Bankhaus Sparkasse"
    Case Is = 2
        Range("A12").Value = "Bankhaus Volksbank"
    Case Else
        Range("A12").Value = "Bankhaus Deutsche Bank"
End Select
End Sub

Gruß, Mullit
Anzeige
AW: Listbox Items abfangen & weiter damit arbeiten
16.05.2018 09:30:34
Franz
Hallo Mullit,
danke nochmal für deine Hilfe. Klingt natürlich logisch.
Bei mir wird jedoch immer der Fehler geschmissen
Fehler beim Kompilieren: Methode oder Datenobjekt nicht gefunden
Woran könnte das liegen?
Gruß
AW: Listbox Items abfangen & weiter damit arbeiten
16.05.2018 09:42:13
hary
Moin
Ist die Listbox in einem Tabellenblatt oder einem UserForm?
gruss hary
Anzeige
AW: Listbox Items abfangen & weiter damit arbeiten
16.05.2018 09:44:35
Franz
Hallo Hary,
die Listbox befindet sin in einer UserForm.
Gruß
AW: Listbox Items abfangen & weiter damit arbeiten
16.05.2018 10:07:00
hary
Moin
Erstell im UF einen Button und in das UF diese Codes.
'--mit Button der entspr. eintraegt------
Private Sub CommandButton1_Click()
With Worksheets("Tabelle1") '--- Blattname ggf. anpassen
Select Case ListBox1.ListIndex
Case Is = 0
.Range("A12").Value = "Bankhaus Meier"
Case Is = 1
.Range("A12").Value = "Bankhaus Sparkasse"
Case Is = 2
.Range("A12").Value = "Bankhaus Volksbank"
Case Else
.Range("A12").Value = "Bankhaus Deutsche Bank"
End Select
End With
End Sub
Private Sub UserForm_Initialize()
ListBox1.AddItem "Kunde 1"
ListBox1.AddItem "Kunde 2"
ListBox1.AddItem "Kunde 3"
ListBox1.AddItem "Kunde 4"
End Sub

Anzeige
AW: Listbox Items abfangen & weiter damit arbeiten
16.05.2018 10:37:58
Franz
Hallo Hary,
vielen Dank. Aber ich denke so ganz kann ich das nicht verwenden.
Meine Überlegungen waren jetzt so, dass ich durch Klick auf ein Item in der Listbox eine Auswahl an Tabellenblättern bekomme (alle die mit Ba beginnen werden mir angezeigt). Anschließend gibt es die Möglichkeit ein neues Tabellenblatt zu erstellen (mithilfe eines eingefügten Ribbons als Schaltfläche) Es wird von einem Blatt kopiert & nur ein Bereich wird immer ausgetauscht.
Gibt es keine Möglichkeit, die Auswahl der Userform Listbox Items abzufragen?
Folgender Code funktioniert nicht, wäre aber wünschenswert, da das 

Sub mit Ribbon nicht im Userform steht:



Sub BlattErstellen(Blatt As String, Name As String) 'Blatt := Angabe aus Combo Box Blatt in  _
Blatt Neu(gibt Art des zu erstellenden Blattes an); Name:= Name den das Blatt bekommen soll
Dim Sheet As Worksheet
If Blatt = "Neu" Then
Set Sheet = Sheets.Add(After:=Sheets(7)) 'Neues(leeres) Blatt einfügen
ActiveSheet.Unprotect (GetPassword)
Sheets("Kopie").Cells.Copy Sheet.Cells 'Formatierung soll bei allen Vorlagen Blättern  _
gleich sein
'Hier Fallunterscheidung DE/EN
Select Case Tabelle5.ListBox1.ListIndex
Case Is = 0
Range("A12").Value = "Bankhaus Meier"
Case Else
Range("A12").Value = "Bankhaus Sparkasse"
End Select
Else
Set Sheet = Sheets.Add(After:=Sheets(2))
End If
End Sub





Gibts da ne Idee oder eine Möglichkeit?

Gruß
Anzeige
AW: Listbox Items abfangen & weiter damit arbeiten
16.05.2018 10:38:04
Franz
Hallo Hary,
vielen Dank. Aber ich denke so ganz kann ich das nicht verwenden.
Meine Überlegungen waren jetzt so, dass ich durch Klick auf ein Item in der Listbox eine Auswahl an Tabellenblättern bekomme (alle die mit Ba beginnen werden mir angezeigt). Anschließend gibt es die Möglichkeit ein neues Tabellenblatt zu erstellen (mithilfe eines eingefügten Ribbons als Schaltfläche) Es wird von einem Blatt kopiert & nur ein Bereich wird immer ausgetauscht.
Gibt es keine Möglichkeit, die Auswahl der Userform Listbox Items abzufragen?
Folgender Code funktioniert nicht, wäre aber wünschenswert, da das 

Sub mit Ribbon nicht im Userform steht:



Sub BlattErstellen(Blatt As String, Name As String) 'Blatt := Angabe aus Combo Box Blatt in  _
Blatt Neu(gibt Art des zu erstellenden Blattes an); Name:= Name den das Blatt bekommen soll
Dim Sheet As Worksheet
If Blatt = "Neu" Then
Set Sheet = Sheets.Add(After:=Sheets(7)) 'Neues(leeres) Blatt einfügen
ActiveSheet.Unprotect (GetPassword)
Sheets("Kopie").Cells.Copy Sheet.Cells 'Formatierung soll bei allen Vorlagen Blättern  _
gleich sein
'Hier Fallunterscheidung DE/EN
Select Case Tabelle5.ListBox1.ListIndex
Case Is = 0
Range("A12").Value = "Bankhaus Meier"
Case Else
Range("A12").Value = "Bankhaus Sparkasse"
End Select
Else
Set Sheet = Sheets.Add(After:=Sheets(2))
End If
End Sub





Gibts da ne Idee oder eine Möglichkeit?

Gruß
Anzeige
AW: Listbox Items abfangen & weiter damit arbeiten
16.05.2018 11:36:42
hary
Moin
Keine Ahnung mit Ribbons :-((
Aber Versuch es mal mit einer Public Variabelen.
Nur diese Zeile in ein Modul 
Public auswahl As long
In den Code der Listbox: 
Private Sub ListBox1_Change()
auswahl = ListBox1.ListIndex
End Sub
und in deinen Code:

Select Case auswahl
Case Is = 0
Range("A12").Value = "Bankhaus Meier"
Case Is = 1
Range("A12").Value = "Bankhaus Sparkasse"
Case Is = 2
Range("A12").Value = "Bankhaus Volksbank"
Case Is = 3
Range("A12").Value = "Bankhaus Deutsche Bank"
End Select

Ansonsten muss ich passen, sry.
gruss hary
Anzeige
AW: Listbox Items abfangen & weiter damit arbeiten
16.05.2018 14:11:25
Franz
Hallo Hary,
dankeschön! Klappt leider nicht so wie gewollt...ich versuche mich jetzt an deiner Variante mit dem Button oder suche noch nach einer anderen Lösung.
Vielen Dank für deine Mühen.
Gruß
;

Forumthreads zu verwandten Themen

Listbox Füllen Add item oder Fill Range
Silent_Warrior5

Hallo Zusammen,
(frohes neues auch noch)
Kann mir jemand die Vor und Nachteile sagen wenn ich eine Listbox (direkt in der Tabelle, Active X gesteuert) mit Einträgen füllen will.
Habe gesehen, man kann das über ListFillRange oder per VBA Code über AddItem machen.
Welches ist bes...
01.01.2014 12:30:04
Thread-ID: 1343850
10 Beiträge
Userform listbox add und remove item prob
Günter

Hallo,
Ja, ich schon wieder ;)
Ich habe noch Probleme mit der von Franz erstellten Userform.
Eine Suchfunktion mit Anzeige in einer Listbox.
Tips durch google ergeben für mich keine Lösung, da ich irgendwie
bei diesen "Listeinträgen" noch garnicht durchsteige.
Folgendes:...
04.11.2014 19:09:47
Thread-ID: 1390481
5 Beiträge
VBA Listbox kopieren und löschen ( Multiselect)
Tobias
Guten Tag,
ich bin blutiger Anfänger und habe ein kleines Problem. Ich habe zwei Listboxen und würde gerne mit einem Knopf die Namen die selektiert sind, in die zweite Liste "verschieben".
Ich habe schon soviele Foren durchsucht, und auch Lösungen gefunden, die weiß Gott warum nicht _
...
17.04.2015 14:42:05
Thread-ID: 1421497
4 Beiträge
Listbox additem offset funktioniert nicht
Sven

Hi zusammen,
ich versuche in eine Listbox Daten aus gefilterten Zeilen zu übernehmen.
Die erste Spalte funktioniert, jedoch bekomme ich den Befehl nicht hin weitere bestimmte Daten aus der Zeile in Spalte 2 und 3 zu übernehmen.
So habe ich es probiert, aber vba sagt da ist ein Fehle...
09.09.2015 10:31:56
Thread-ID: 1446648
4 Beiträge
ChooseFile_Dialogue.ListBox1.AddItem (MyFile)
Andy

Hallo,
der gesamte Code lautet wie folgt:

If MyFile "" Then
ChooseFile_Dialogue.ListBox1.AddItem (MyFile)
End If

In dem einen Makro funktioniert der, in einem anderen nicht. Hat jemand eine Idee? Ich kopiere einen Namen eines Files in die Variable MyFile. Di...
08.07.2003 14:35:31
Thread-ID: 278418
7 Beiträge
Listbox mehrspaltig über AddItem füllen
iven_s
Hallo Leute,
habe folgendes Problem. Ich möchte gefilterte Datensätze einer mehrspaltigen Tabelle in einer Listbox eines Userforms darstellen. Mit der list-Eigenschaft komme ich leider nicht weiter da, dies scheinbar nur mit ungefilterten Datensätzen funktioniert (hängen zeilenweise zusammen). Mi...
11.12.2003 14:02:29
Thread-ID: 350759
5 Beiträge
Listbox Additem Begrenzung umgehen
Gernot

Guten Tag!
Ich möchte aus einer Adressentabelle einen Namen suchen und die Ergebnisse in eine Listbox anzeigen lassen und dann beim anklicken sollen die Ergebnisse in die Textboxen des Userforms übertragen.
Die Adressendatenbank hat 29 Spalten, wobei nur in verschiedenen Userforms nur b...
04.11.2005 15:56:01
Thread-ID: 691724
6 Beiträge
ListBox füllen ohne additem
René

Hallo zusammen,
nachdem ich hier schon eine Weile mitgelesen und dabei viel gelernt habe (großen Dank dafür an alle Beteiligten!), stehe ich nun vor einem Problem, welches ich nicht selbst lösen kann.
Ich habe eine Liste mit einem Artikelstamm, zu welchem ich eine Artikelauswahl per Use...
09.09.2020 13:18:51
Thread-ID: 1781318
11 Beiträge
Anzeige
ListBox Top of selected Item
Flo
Hallo zusammen!
Fällt jemandem eine Möglichkeit ein, wie ich den "Top-Wert" eines ausgewählten Items in einer ListBox ermitteln könnte?
Ziel ist es, dass sich ein Label links neben der ListBox immer neben dem ausgewählten Item befindet. Wird ein neues Item ausgewählt ODER die Scrollbar verwe...
19.09.2021 11:10:32
Thread-ID: 1848095
13 Beiträge
ListBox selected item
Antonio
Hallo Gemeinde,
man merkt das heute Sonntag ist und man hat viel Zeit
Ich versuche eine Listbox zu füllen mit dem selektiert Item einer zwite listbox:
Private Sub ListBox7_Click() 'Bünde aufrufen Dim a, rF As Range Dim i, x As Integer Sheets("Tabelle1").Activate For a = 1 To...
05.02.2023 17:16:19
Thread-ID: 1918982
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Listbox Items abfangen und weiterverarbeiten in Excel VBA

Schritt-für-Schritt-Anleitung

  1. Listbox in UserForm erstellen:

    • Öffne den VBA-Editor (Alt + F11).
    • Füge ein UserForm hinzu und platziere eine Listbox (z. B. ListBox1) darauf.
    • Füge einen Button hinzu, um die Auswahl zu verarbeiten.

  2. Listbox mit Items befüllen:

    • Verwende den folgenden Code im UserForm_Initialize-Ereignis:
    Private Sub UserForm_Initialize()
   ListBox1.AddItem "Kunde 1"
   ListBox1.AddItem "Kunde 2"
   ListBox1.AddItem "Kunde 3"
   ListBox1.AddItem "Kunde 4"
End Sub

  3. Selektion abfragen:

    • Im Click-Event des Buttons kannst du die Auswahl wie folgt abfragen:
    Private Sub CommandButton1_Click()
   Select Case ListBox1.ListIndex
       Case 0
           Range("A12").Value = "Bankhaus Meier"
       Case 1
           Range("A12").Value = "Bankhaus Sparkasse"
       Case 2
           Range("A12").Value = "Bankhaus Volksbank"
       Case Else
           Range("A12").Value = "Bankhaus Deutsche Bank"
   End Select
End Sub

  4. Wert der Listbox auslesen:

    • Um den ausgewählten Wert in einem anderen Sub zu nutzen, kannst du eine öffentliche Variable definieren:
    Public auswahl As Long

Private Sub ListBox1_Change()
   auswahl = ListBox1.ListIndex
End Sub
    • Verwende dann auswahl, um den Wert in einem anderen Sub abzufragen.

Häufige Fehler und Lösungen

Fehler: Methode oder Datenobjekt nicht gefunden

  • Überprüfe, ob die Listbox im richtigen Kontext (UserForm oder Arbeitsblatt) angesprochen wird.
  • Achte darauf, den richtigen Tabellennamen zu verwenden, falls du auf eine Listbox in einem Arbeitsblatt zugreifst.

Fehler: Kein Objekt gefunden

  • Stelle sicher, dass die Listbox im richtigen UserForm- oder Arbeitsblattkontext angesprochen wird (z. B. Tabelle1.ListBox1).

Alternative Methoden

  • Verwendung von ComboBox: Anstelle einer Listbox könntest du auch eine ComboBox verwenden, die eine ähnliche Funktionalität bietet, aber auch eine Eingabe durch den Benutzer erlaubt.

  • Direktes Arbeiten mit ListBox.Items: Du kannst auch direkt mit der ListBox.Items-Eigenschaft arbeiten, um dynamisch Items hinzuzufügen oder zu entfernen.

Praktische Beispiele

  1. Erstellen eines neuen Blattes basierend auf der Auswahl:

    Sub BlattErstellen()
   Dim Sheet As Worksheet
   Set Sheet = Sheets.Add(After:=Sheets(Sheets.Count))
   Sheet.Name = ListBox1.Value
End Sub

  2. Verwendung von ListBox.Value:

    If ListBox1.Value = "Kunde 1" Then
   Range("A12").Value = "Bankhaus Meier"
End If

Tipps für Profis

  • Nutze With-Anweisungen, um deinen Code leserlicher zu gestalten, wenn du mehrere Eigenschaften eines Objekts ansprechen musst.

  • Überlege, Error Handling-Techniken einzusetzen, um die Fehlerbehandlung zu verbessern und den Code robuster zu gestalten.

FAQ: Häufige Fragen

1. Wie kann ich den Wert der Listbox außerhalb des UserForms abfragen? Um den Wert der UserForm-Listbox auszulesen, definiere eine öffentliche Variable im Modul, um den ausgewählten Index zu speichern und greife dann darauf zu.

2. Funktioniert dieser Code in allen Excel-Versionen? Ja, die oben genannten Codes funktionieren in Excel-Versionen, die VBA unterstützen, insbesondere ab Excel 2007.

3. Was muss ich tun, wenn die Listbox leer bleibt? Stelle sicher, dass die Initialisierung der Listbox im UserForm_Initialize-Ereignis korrekt erfolgt und dass das UserForm tatsächlich angezeigt wird.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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