Private Sub ListBox1_Click()
Range("a1").Value = ListBox1.Value
End Sub
Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Dim i% 'neu
Dim w
Range("g10:g30").Select 'Range("ab10:ab30").Select
Selection.ClearContents 'zellen löschen
ListBox1.Clear 'Listbox leeren
Set w = Sheets("Tabelle1").Cells(10, 7) 'cells(10= 10 Zeile, 5= 5Spalte)
For i = 1 To Sheets.Count 'zähler für Blätter
w.Cells(i, 1).Value = Sheets(i).Name 'i=wählt, 1=setzt ein z.b. 2= 1
' Spalte n. rechts
ListBox1.AddItem Sheets(i).Name 'Listbox füllen
Next i
Application.ScreenUpdating = True
End Sub
Private Sub ListBox1_click()
Worksheets(ListBox1.Value).Select
End Sub
Um die Werte aus einer Listbox in eine Excel-Tabelle zu kopieren, kannst du den folgenden VBA-Code verwenden. Dieser Code wird in die Userform eingefügt, die die Listbox enthält.
Öffne die Excel-Datei und gehe zum Visual Basic for Applications (VBA)-Editor (drücke ALT + F11).
Füge eine Userform hinzu und platziere eine Listbox sowie einen Button auf der Form.
Doppelklicke auf die Listbox, um das Click-Ereignis zu erstellen, und füge den folgenden Code ein:
Private Sub ListBox1_Click()
Range("A1").Value = ListBox1.Value
End SubUm die Listbox mit den Namen der Arbeitsblätter zu füllen, kannst du folgenden Code verwenden:
Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Dim i As Integer
Dim w As Range
Range("G10:G30").ClearContents
ListBox1.Clear
Set w = Sheets("Tabelle1").Cells(10, 7)
For i = 1 To Sheets.Count
w.Cells(i, 1).Value = Sheets(i).Name
ListBox1.AddItem Sheets(i).Name
Next i
Application.ScreenUpdating = True
End SubUm beim Klick auf einen Listbox-Wert das entsprechende Arbeitsblatt zu aktivieren, füge diesen Code hinzu:
Private Sub ListBox1_Click()
Worksheets(ListBox1.Value).Select
End SubFehler: "Objektvariable oder With-Blockvariable nicht festgelegt."
Fehler: Listbox zeigt keine Werte an.
Falls du keine VBA-Programmierung verwenden möchtest, kannst du auch einfache Formeln oder Datenvalidierung nutzen, um Dropdown-Listen in Zellen zu erstellen. Diese können zwar nicht die gleiche Funktionalität wie eine Listbox bieten, sind aber in vielen Fällen ausreichend.
Hier ist ein praktisches Beispiel, wie du die oben genannten Codes verwenden kannst:
Option Explicit am Anfang deiner Module, um sicherzustellen, dass alle Variablen deklariert sind. Dies hilft, Fehler zu vermeiden.1. Frage
Wie kann ich die Listbox mit weiteren Werten füllen?
Antwort: Du kannst die Listbox mit beliebigen Werten füllen, indem du ListBox1.AddItem "Neuer Wert" verwendest.
2. Frage
Kann ich mehrere Zellen gleichzeitig ausfüllen?
Antwort: Ja, du kannst die Zellen in einer Schleife mit Werten aus der Listbox füllen, indem du Range("A" & i).Value = ListBox1.Value verwendest, wobei i den Zeilenindex darstellt.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen