1 Frage zu Listenfeld

Um in Excel mit VBA Informationen aus zwei Spalten in ein Listenfeld zu laden, kannst du die Methode `AddItem` verwenden. Hier ist ein einfaches Beispiel, wie du dies umsetzen kannst: 1. Öffne den VBA-Editor (Alt + F11). 2. Füge ein neues Modul hinzu (Rechtsklick auf "VBAProject" > Einfügen > Modul). 3. Kopiere und füge den folgenden Code in das Modul ein: ```vba Sub LadeInListenfeld() Dim ws As Worksheet Dim i As Integer Dim listenfeld As MSForms.ListBox ' Setze das Arbeitsblatt Set ws = ThisWorkbook.Sheets("Tabelle1") ' Ändere den Namen entsprechend ' Setze das Listenfeld (z.B. auf einem UserForm) Set listenfeld = UserForm1.ListBox1 ' Ändere den Namen entsprechend ' Lösche vorherige Einträge im Listenfeld listenfeld.Clear ' Durchlaufe die Zeilen in den Spalten A und B For i = 1 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row ' Füge die Werte aus Spalte A und B hinzu listenfeld.AddItem ws.Cells(i, 1).Value & " - " & ws.Cells(i, 2).Value Next i End Sub ``` 4. Stelle sicher, dass du ein UserForm mit einem Listenfeld (ListBox) hast, das den Namen `ListBox1` trägt. 5. Ändere den Namen des Arbeitsblatts und des Listenfelds im Code entsprechend deiner Datei. Wenn du das Makro ausführst, werden die Werte aus den Spalten A und B in das Listenfeld geladen, wobei die Werte durch ein Trennzeichen (in diesem Fall " - ") verbunden werden.