Note: The other languages of the website are Google-translated. Back to English

Wie erstelle ich eine Dropdown-Liste mit mehreren Kontrollkästchen in Excel?

Viele Excel-Benutzer erstellen in der Regel eine Dropdown-Liste mit mehreren Kontrollkästchen, um mehrere Elemente pro Zeit aus der Liste auszuwählen. Tatsächlich können Sie mit der Datenüberprüfung keine Liste mit mehreren Kontrollkästchen erstellen. In diesem Tutorial zeigen wir Ihnen zwei Methoden zum Erstellen einer Dropdown-Liste mit mehreren Kontrollkästchen in Excel.

Verwenden Sie das Listenfeld, um eine Dropdown-Liste mit mehreren Kontrollkästchen zu erstellen
A: Erstellen Sie ein Listenfeld mit Quelldaten
B: Benennen Sie die Zelle, in der Sie die ausgewählten Elemente suchen
C: Fügen Sie eine Form ein, um die Ausgabe der ausgewählten Elemente zu erleichtern
Erstellen Sie mit einem erstaunlichen Tool ganz einfach eine Dropdown-Liste mit Kontrollkästchen
Weitere Tutorials für Dropdown-Liste ...


Verwenden Sie das Listenfeld, um eine Dropdown-Liste mit mehreren Kontrollkästchen zu erstellen

Wie im folgenden Screenshot gezeigt, sind im aktuellen Arbeitsblatt alle Namen im Bereich A2: A11 die Quelldaten des Listenfelds. Klicken Sie auf die Schaltfläche in Zelle C4, um die ausgewählten Elemente auszugeben. Alle ausgewählten Elemente im Listenfeld werden in Zelle E4 angezeigt. Um dies zu erreichen, gehen Sie bitte wie folgt vor.

A. Erstellen Sie ein Listenfeld mit Quelldaten

1 Klicken Entwickler:in / Unternehmen > Insert > Listenfeld (Active X Control). Siehe Screenshot:

2. Zeichnen Sie ein Listenfeld im aktuellen Arbeitsblatt, klicken Sie mit der rechten Maustaste darauf und wählen Sie es aus Immobilien aus dem Kontextmenü.

3. In dem Immobilien Dialogfeld müssen Sie wie folgt konfigurieren.

  • 3.1 In der ListFillRange Geben Sie im Feld den Quellbereich ein, den Sie in der Liste anzeigen möchten (hier gebe ich den Bereich ein A2: A11);
  • 3.2 In der Listenstil Wählen Sie 1 - fmList-Stiloption;
  • 3.3 In der Mehrfachauswahl Wählen Sie 1 - fmMultiSelectMulti;
  • 3.4 Schließen Sie die Immobilien Dialogbox. Siehe Screenshot:

B: Benennen Sie die Zelle, in der Sie die ausgewählten Elemente suchen

Wenn Sie alle ausgewählten Elemente in eine bestimmte Zelle wie E4 ausgeben müssen, gehen Sie wie folgt vor.

1. Wählen Sie die Zelle E4 aus und geben Sie ein ListBoxAusgabe in die Namensfeld und drücke die Weiter Key.

C. Fügen Sie eine Form ein, um die Ausgabe der ausgewählten Elemente zu erleichtern

1 Klicken Insert > Formen > Rechteck. Screenshot:

2. Zeichnen Sie ein Rechteck in Ihr Arbeitsblatt (hier zeichne ich das Rechteck in Zelle C4). Klicken Sie dann mit der rechten Maustaste auf das Rechteck und wählen Sie Makro zuweisen aus dem Kontextmenü.

3. In dem Makro zuweisen Klicken Sie im Dialogfeld auf die Schaltfläche Neu .

4. In der Öffnung Microsoft Visual Basic für Applikationen Fenster, bitte ersetzen Sie den Originalcode im Modul Fenster mit dem folgenden VBA-Code.

VBA-Code: Erstellen Sie eine Liste mit mehreren Kontrollkästchen

Sub Rectangle1_Click()
'Updated by Extendoffice 20200730
Dim xSelShp As Shape, xSelLst As Variant, I, J As Integer
Dim xV As String
Set xSelShp = ActiveSheet.Shapes(Application.Caller)
Set xLstBox = ActiveSheet.ListBox1
If xLstBox.Visible = False Then
    xLstBox.Visible = True
    xSelShp.TextFrame2.TextRange.Characters.Text = "Pickup Options"
    xStr = ""
    xStr = Range("ListBoxOutput").Value
    
    If xStr <> "" Then
         xArr = Split(xStr, ";")
    For I = xLstBox.ListCount - 1 To 0 Step -1
        xV = xLstBox.List(I)
        For J = 0 To UBound(xArr)
            If xArr(J) = xV Then
              xLstBox.Selected(I) = True
              Exit For
            End If
        Next
    Next I
    End If
Else
    xLstBox.Visible = False
    xSelShp.TextFrame2.TextRange.Characters.Text = "Select Options"
    For I = xLstBox.ListCount - 1 To 0 Step -1
        If xLstBox.Selected(I) = True Then
        xSelLst = xLstBox.List(I) & ";" & xSelLst
        End If
    Next I
    If xSelLst <> "" Then
        Range("ListBoxOutput") = Mid(xSelLst, 1, Len(xSelLst) - 1)
    Else
        Range("ListBoxOutput") = ""
    End If
End If
End Sub

Hinweis: Im Code Rechteck1 ist der Formname; ListBox1 ist der Name des Listenfelds; Optionen wählen und Abholoptionen sind die angezeigten Texte der Form; und die ListBoxAusgabe ist der Bereichsname der Ausgabezelle. Sie können sie je nach Bedarf ändern.

5. Drücken Sie Andere + Q Tasten gleichzeitig zum Schließen der Microsoft Visual Basic für Applikationen Fenster.

6. Klicken Sie auf das Rechteck, um das Listenfeld zu falten oder zu erweitern. Wenn das Listenfeld erweitert wird, überprüfen Sie die Elemente im Listenfeld und klicken Sie erneut auf das Rechteck, um alle ausgewählten Elemente in Zelle E4 auszugeben. Siehe unten Demo:

7. Speichern Sie dann die Arbeitsmappe als Excel MacroEnable-Arbeitsmappe für die zukünftige Wiederverwendung des Codes.


Erstellen Sie eine Dropdown-Liste mit Kontrollkästchen mit einem erstaunlichen Tool

Die obige Methode ist zu mehrstufig, um einfach zu handhaben. Hier kann man das nur empfehlen Dropdown-Liste mit Kontrollkästchen Nutzen von Kutools für Excel Damit Sie auf einfache Weise eine Dropdown-Liste mit Kontrollkästchen in einem bestimmten Bereich, einem aktuellen Arbeitsblatt, einer aktuellen Arbeitsmappe oder allen geöffneten Arbeitsmappen erstellen können, die Ihren Anforderungen entsprechen. Siehe die folgende Demo:
Laden Sie es herunter und probieren Sie es jetzt aus! (30 Tage kostenloser Trail)

Neben der obigen Demo bieten wir auch eine schrittweise Anleitung, um zu demonstrieren, wie diese Funktion angewendet wird, um diese Aufgabe zu erfüllen. Bitte gehen Sie wie folgt vor.

1. Öffnen Sie das Arbeitsblatt, für das Sie die Dropdown-Liste Datenüberprüfung festgelegt haben, und klicken Sie auf Kutoolen > Dropdown-Liste > Dropdown-Liste mit Kontrollkästchen > Einstellungen. Screenshot:

2. In dem Dropdown-Liste mit Einstellungen für Kontrollkästchen Dialogfeld, bitte wie folgt konfigurieren.

  • 2.1) In der Gelten Geben Sie im Abschnitt den Anwendungsbereich an, in dem Sie Kontrollkästchen für Elemente in der Dropdown-Liste erstellen. Sie können a angeben bestimmte Reichweite, aktuelles Arbeitsblatt, aktuelle Arbeitsmappe or alle geöffneten Arbeitsmappen basierend auf Ihre Bedürfnisse.
  • 2.2) In der Model Wählen Sie im Abschnitt einen Stil aus, in dem Sie die ausgewählten Elemente ausgeben möchten.
  • Hier nimmt die Ändern Wenn Sie diese Option als Beispiel auswählen, wird der Zellenwert basierend auf den ausgewählten Elementen geändert.
  • 2.3) In der Separator Geben Sie in das Feld ein Trennzeichen ein, mit dem Sie die mehreren Elemente trennen.
  • 2.4) In der Textrichtung Wählen Sie im Abschnitt eine Textrichtung aus, die Ihren Anforderungen entspricht.
  • 2.5) Klicken Sie auf OK .

3. Klicken Sie im letzten Schritt auf Kutoolen > Dropdown-Liste > Dropdown-Liste mit Kontrollkästchen > Dropdown-Liste der Kontrollkästchen aktivieren um diese Funktion zu aktivieren.

Wenn Sie von nun an auf die Zellen mit der Dropdown-Liste in einem bestimmten Bereich klicken, wird ein Listenfeld angezeigt. Wählen Sie die Elemente aus, indem Sie die Kontrollkästchen aktivieren, die wie in der folgenden Demo in die Zelle ausgegeben werden sollen ).

Weitere Informationen zu dieser Funktion finden Sie unter Bitte besuchen Sie hier.

  Wenn Sie eine kostenlose Testversion (30 Tage) dieses Dienstprogramms wünschen, Bitte klicken Sie, um es herunterzuladenund wenden Sie dann die Operation gemäß den obigen Schritten an.


In Verbindung stehende Artikel:

Autocomplete beim Eingeben der Excel-Dropdown-Liste
Wenn Sie eine Dropdown-Liste zur Datenüberprüfung mit großen Werten haben, müssen Sie in der Liste nach unten scrollen, um die richtige zu finden, oder das ganze Wort direkt in das Listenfeld eingeben. Wenn es eine Methode gibt, mit der die automatische Vervollständigung beim Eingeben des ersten Buchstabens in die Dropdown-Liste ermöglicht wird, wird alles einfacher. Dieses Tutorial bietet die Methode zur Lösung des Problems.

Erstellen Sie eine Dropdown-Liste aus einer anderen Arbeitsmappe in Excel
Es ist recht einfach, eine Dropdown-Liste zur Datenüberprüfung zwischen Arbeitsblättern in einer Arbeitsmappe zu erstellen. Was würden Sie tun, wenn sich die für die Datenüberprüfung benötigten Listendaten in einer anderen Arbeitsmappe befinden? In diesem Tutorial erfahren Sie ausführlich, wie Sie eine Drop-Fown-Liste aus einer anderen Arbeitsmappe in Excel erstellen.

Erstellen Sie eine durchsuchbare Dropdown-Liste in Excel
Für eine Dropdown-Liste mit zahlreichen Werten ist es keine leichte Aufgabe, eine richtige zu finden. Zuvor haben wir eine Methode zum automatischen Ausfüllen der Dropdown-Liste eingeführt, wenn Sie den ersten Buchstaben in das Dropdown-Feld eingeben. Neben der Funktion zur automatischen Vervollständigung können Sie die Dropdown-Liste auch durchsuchbar machen, um die Arbeitseffizienz beim Finden geeigneter Werte in der Dropdown-Liste zu verbessern. Probieren Sie die Methode in diesem Lernprogramm aus, um die Dropdown-Liste durchsuchbar zu machen.

Füllen Sie andere Zellen automatisch aus, wenn Sie Werte in der Excel-Dropdown-Liste auswählen
Angenommen, Sie haben eine Dropdown-Liste basierend auf den Werten im Zellbereich B8: B14 erstellt. Wenn Sie einen Wert in der Dropdown-Liste auswählen, möchten Sie, dass die entsprechenden Werte im Zellbereich C8: C14 automatisch in eine ausgewählte Zelle eingefügt werden. Um das Problem zu lösen, tun Ihnen die Methoden in diesem Tutorial einen Gefallen.

Weitere Tutorials für Dropdown-Liste ...


Die besten Tools für die Office-Produktivität

Kutools für Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2019 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. Vollständige Funktionen 30 Tage kostenlose Testversion. 60 Tage Geld-zurück-Garantie.
kte tab 201905

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50% und reduziert täglich Hunderte von Mausklicks für Sie!
officetab unten
Kommentare (67)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Das ist fantastisch. Aber es wird besser, wenn die Mehrfachauswahl dort platziert werden kann, wo der Cursor aktiv ist. Nicht unbedingt das, was der Code angibt.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Das ist genau das, wonach ich gesucht habe. Kann der Code geändert werden, damit die ausgewählten Daten in separaten Zellen in der Spalte angezeigt werden können? also statt: Montag, Dienstag, Mittwoch, Anzeige als. Montag Dienstag Mittwoch
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Das ist genau das, wonach ich gesucht habe. Gibt es eine Änderung am Code, die die nächste Auswahl aus dem Listenfeld in die nächste Zeile setzt. für zB eins zwei drei Statt : eins, zwei, drei
Dieser Kommentar wurde vom Moderator auf der Website minimiert
können Sie bitte erklären, wie Sie ListBoxOutput auf E4-Zelle hinzugefügt haben
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, wie kann ich dieses Listenfeld für mehrere Zellen kopieren? Einfach kopieren und einfügen funktioniert nicht. Könnten Sie bitte zum Beispiel in jeder Zelle (E5, E6, E7, E8, ...) erklären, wie ich dieses Auswahlfeld platzieren kann?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Könnten Sie bitte erklären, wie ich diese Listbox für 100 Zeilen einfach kopieren kann? (separate Listenfelder für jede der 100 Zeilen)
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Sobald die Ausgabe abgeschlossen ist und Sie die Schaltfläche erneut drücken, können die zuvor ausgewählten Elemente im Listenfeld nicht mehr geändert werden. Wie lösen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke! Es ist großartig und es funktioniert!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich bin ein Neuling in diesem Bereich, aber kann mir jemand sagen, wie ich eine ListBox mit Mehrfachauswahl erstellen kann, die geöffnet wird, z. B. wenn ich einen Namen auswähle. Ich möchte, dass das Listenfeld in ein einzelnes passt.
BEISPIEL: Ich habe eine Liste mit Namen mit Kontaktinformationen usw. Ich möchte eine doppelte Listbox für jeden Namen in meiner Liste erstellen. Ich möchte, dass es automatisch geöffnet wird, wenn ich einen Namen auswähle, und wieder in die Zelle eingeklappt wird, wenn ich zu einer anderen Infozeile gehe. Bitte beraten. Danke im Voraus.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Liebe Randy,
Leider kann dieses Problem nicht gelöst werden.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Es funktioniert perfekt gemäß den Anweisungen. Wenn ich jedoch das Blatt schütze, gibt es einen Fehler. Irgendeine Problemumgehung dafür?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Funktioniert einwandfrei nach Anleitung. Aber wie kann ich das auf einem geschützten Blatt verwenden? Wenn ich dies derzeit nach dem Schützen des Blattes verwende, erhalte ich die Fehlermeldung "Laufzeitfehler '-2147024809 (80070057)': Der angegebene Wert liegt außerhalb des Bereichs".
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Liebe Amit Sood,
Bevor Sie das Arbeitsblatt schützen, formatieren Sie bitte die Ausgabezelle als entsperrt und wenden Sie dann den folgenden VBA-Code an. Danke für deinen Kommentar.

Sub Rectangle2_Click()
Dim xSelShp As Shape, xSelLst As Variant, I As Integer
On Error Resume Next
Setze xSelShp = ActiveSheet.Shapes(Application.Caller)
Legen Sie xLstBox = ActiveSheet.ListBox1 fest
Wenn xLstBox.Visible = False, dann
xLstBox.Visible = True
xSelShp.TextFrame2.TextRange.Characters.Text = "Abholoptionen"
sonst
xLstBox.Visible = False
xSelShp.TextFrame2.TextRange.Characters.Text = "Optionen auswählen"
Für I = xLstBox.ListCount - 1 bis 0 Schritt -1
Wenn xLstBox.Selected(I) = True Then
xSelLst = xLstBox.List(I) & ";" & xSelLst
End If
Nächstes Ich
Wenn xSelLst <> "" Then
Range("ListBoxOutput") = Mid(xSelLst, 1, Len(xSelLst) - 1)
sonst
Range("ListBoxOutput") = ""
End If
End If
End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
"Ich habe eine Datei mit dem ActiveX-Listenfeld erstellt, wie Sie erklärt haben, dort habe ich einige Daten eingegeben und auch einige Eigenschaften hinzugefügt. Ich habe einige Daten mit dem Kontrollkästchen in der Liste überprüft und die Datei gespeichert und verlassen. Aber während Beim erneuten Öffnen der Datei werden keine überprüften Daten angezeigt. Kann mir jemand einen Vorschlag machen, diese Aktualisierungen zu speichern?
Kann mir bitte jemand helfen.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Guten Tag,
Bitte fügen Sie den folgenden VBA-Code in das Codefenster von ThisWorkbook ein.
Im Code ist Sheet6 der Standardname des Arbeitsblatts, das das Listenfeld enthält, in dem Sie die Auswahl beibehalten möchten, wie im folgenden Screenshot gezeigt. Und ListBox1 ist der Name des Listenfelds. Bitte ändern Sie sie nach Bedarf.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Rufen Sie SaveSelections auf
End Sub

Private Sub Workbook_Open ()
Rufen Sie RestoreSelections auf
End Sub

Private Sub SaveSelections()

Dim arr() As Variant, i As Long, j As Long

Mit Sheet6.OLEObjects("ListBox1").Object
Wenn .ListIndex > 0 Dann
Für i = 0 bis .ListCount - 1
Wenn .Ausgewählt(i) Dann
j = j + 1
ReDim Preserve arr(1 bis j)
arr(j) = ich
End If
Nächste
Names.Add Name:="Selections", RefersTo:=arr, Visible:=False
End If
Ende mit

End Sub

Private Sub RestoreSelections()

Dim arr As Variant, i As Integer

arr = [Auswahl]

Mit Sheet6.OLEObjects("ListBox1").Object
Für i = 1 zu UBound(arr)
.Selected(arr(i)) = True
Nächste
Ende mit

End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank für die Antwort, Sir, aber bei meiner Datei funktioniert es nicht. Können Sie mir bitte Ihre E-Mail-ID senden, damit ich Ihnen meine Datei zusenden kann.
Danke im Voraus
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Liebe Manjusha Isac,
Bitte senden Sie Ihre Datei an zxm@addin99.com. Hoffe, ich kann helfen.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Außerdem müssen Sie die Arbeitsmappe als Excel-Arbeitsmappe mit Makros speichern und den Code jedes Mal aktivieren, wenn Sie die Auswahl des Listenfelds ändern.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich möchte Namen in verschiedenen Spalten automatisch aktualisieren. Ist es möglich, teilen Sie mir bitte den Code mit.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
ERSTAUNLICH, es funktioniert, aber nachdem ich Excel geschlossen und wieder geöffnet habe, ist das Häkchen im Kontrollkästchen verschwunden. Wenn ich also auf die Schaltfläche klicke, ist die gesamte Liste verschwunden
bitte hilf mir jemand
Vielen Dank im Voraus
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Lieber Engel,
Wir haben einen Artikel "Wie speichert oder behält man die Auswahl von ActiveX-Listboxen in Excel?" veröffentlicht. Dadurch wird eine Methode zum Speichern der Auswahl von Listenfeldern nach dem Schließen und erneuten Öffnen der Arbeitsmappe eingeführt.
Sie können diesem Link folgen, um weitere Informationen zu erhalten: https://www.extendoffice.com/documents/excel/5051-excel-listbox-save-selection.html
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Erstaunlich, es funktioniert, aber ich habe ein Problem, nachdem ich die Datei gespeichert und erneut geöffnet habe, sind alle Häkchen in der Kontrollkästchenliste verschwunden
können Sie mir dabei helfen, vielen Dank
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Außerdem ändert es die Größe des Listenfelds und die Form immer nach dem Speichern und erneuten Öffnen der Datei. Wenn jemand eine Lösung für dieses Problem hat, helfen Sie mir bitte

Vielen Dank
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Lieber Mark,
Wir haben einen Artikel "Wie speichert oder behält man die Auswahl von ActiveX-Listboxen in Excel?" veröffentlicht. Dadurch wird eine Methode zum Speichern der Auswahl von Listenfeldern nach dem Schließen und erneuten Öffnen der Arbeitsmappe eingeführt.
Sie können diesem Link folgen, um weitere Informationen zu erhalten: https://www.extendoffice.com/documents/excel/5051-excel-listbox-save-selection.html
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo,

Ich frage mich, ob es eine Möglichkeit gibt, die Abholoptionen auf mehr als eine Zelle (nicht nur E4) zu lenken oder die Auswahl zu einer Dropdown-Checkliste zu machen, damit ich mehrere Optionen aus einer Checkliste auswählen kann, dies jedoch wiederholt und unabhängig von der andere Auswahlen, die ich getroffen habe. Wie würde ich beispielsweise vorgehen, um dieselbe Liste von Abholoptionen zu verwenden, um eine andere Auswahl von Artikeln aus derselben Abholliste in E5, E6, E7 usw. einzugeben.

Vielen Dank
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo LizKats,
Bitte versuchen Sie den folgenden Code. Hoffe, ich kann helfen. Danke.

Sub Rectangle2_Click()

'Aktualisiert von Extendoffice 20200529

Dim xSelShp als Shape, xSelLst als Variant, i als Integer

Setze xSelShp = ActiveSheet.Shapes(Application.Caller)

Legen Sie xLstBox = ActiveSheet.ListBox1 fest

Dim xRg als Bereich

Dim xCount, xFNum, xR, xC als Integer

Dim xStr als Zeichenfolge

Wenn xLstBox.Visible = False, dann

xLstBox.Visible = True

xSelShp.TextFrame2.TextRange.Characters.Text = "Abholoptionen"

sonst

xLstBox.Visible = False

xSelShp.TextFrame2.TextRange.Characters.Text = "Optionen auswählen"

Setze xRg = Range("ListBoxOutput")

xCount = xLstBox.ListCount - 1

xStr = ""

Für i = xLstBox.ListCount - 1 bis 0 Schritt -1

Wenn xLstBox.Selected(i) = True Then

xStr = xLstBox.List(i) & ";" & xStr

End If

Weiter ich



Wenn xRg.Wert = "" Dann

xRg.Wert = xStr

sonst

Setze xRg = xRg.Offset(1, 0)

Do While xRg.Value <> ""

Setze xRg = xRg.Offset(1, 0)

Loop

xRg.Wert = xStr

End If

End If

End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Es funktioniert gut, vielen Dank für Ihre Hilfe. Ich habe hier ein Problem: Die gesamte Ausgabe kommt in dieselbe Zelle E4, wie können wir die Ausgabe in verschiedenen Zellen erhalten, z. B.: Ausgabe für C4 in E4, C5 in E5, C6 in E6 usw.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Guten Tag,
Das von Ihnen angesprochene Problem kann noch nicht gelöst werden.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Добрый день! Прошу помочь.
Как сделать так чтобы каждое значение выходило на новой клетке? чтобы по выходило по вертикали?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
HILFE!!! wie Ausgabe in verschiedenen Bereichen (vertikal)?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Sub Rectangle2_Click()
'Aktualisiert von Extendoffice 20190924
Dim xSelShp As Shape, xSelLst As Variant, I As Integer
Dim xRg als Bereich
Setze xSelShp = ActiveSheet.Shapes(Application.Caller)
Legen Sie xLstBox = ActiveSheet.ListBox1 fest
Wenn xLstBox.Visible = False, dann
xLstBox.Visible = True
xSelShp.TextFrame2.TextRange.Characters.Text = "Abholoptionen"
sonst
xLstBox.Visible = False
xSelShp.TextFrame2.TextRange.Characters.Text = "Optionen auswählen"
Setze xRg = Range("ListBoxOutput")
Für I = 0 bis xLstBox.ListCount - 1
Wenn xLstBox.Selected(I) = True Then
xSelLst = xLstBox.List(I)
xRg.Value = Mid(xSelLst, 1, Len(xSelLst))
Setze xRg = xRg.Offset(1, 0)
End If
Nächstes Ich
End If
End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Como puedo replicar éste ejercicio en las filas inferiores ?
Wie kann ich diese Übung in den Zeilen unten wiederholen?
Es sind noch keine Kommentare vorhanden
Mehr laden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte