Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1664to1668
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1664to1668
1664to1668
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

DropDown füllen aus Array-Werten

DropDown füllen aus Array-Werten
09.01.2019 20:05:00
Oisse
Hallo Zusammen,
wie kann ich ein DropDown-Menü in einer Zelle erzeugen, dass mit dem Inhalt eines Arrays gefüllt wird?
Mein Array ist "Public" und steht am Anfang einer Funktion in einem Modul.
Mein Code um das DropDown zu füllen steht in einem "SelectionChange"-Ereignis und sieht folgendermaßen aus: 

Application.EnableEvents = False
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=Arr_BCV_W
.IgnoreBlank = False
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With

Hat jemand eine Lösung?
Gruß Oisse

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: DropDown füllen aus Array-Werten
09.01.2019 20:18:54
Nepumuk
Hallo,
wie ist Arr_BCV_W deklariert bzw. welche Dimensionen hat es?
Gruß
Nepumuk
AW: DropDown füllen aus Array-Werten
09.01.2019 20:26:29
Oisse
Hallo Nepumuk,
das Array ist wie folgt deklariert:
Public Arr_BCV_W(10) As Variant
AW: DropDown füllen aus Array-Werten
09.01.2019 20:30:09
Nepumuk
Hallo,
dann so:
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=Join(Arr_BCV_W, ",")

Gruß
Nepumuk
Bin begeistert, aber
09.01.2019 20:35:35
Oisse
leider splittet er mir die Namen, die durch ein Komma getrennt sind.
Der Arrayeintrag setzt sich so zusammen:
Nachname, Vorname
Wie löst man das?
AW: Bin begeistert, aber
09.01.2019 20:42:27
Nepumuk
Hallo,
das Komma ist das Listentrennzeichen. Man könnte es durch einen Strichpunkt ersetzen.
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, _
Formula1:=Replace(Replace(Join(Arr_BCV_W, "~"), ",", ";"), "~", ",")

Gruß
Nepumuk
Anzeige
Super
09.01.2019 20:48:00
Oisse
Viiielen herzlichen Dank,
funktioniert super. Allerdings hab ich noch eine Frage.
Mein Code für das Ereignis sieht so aus: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Zeitraum As Date
If Target.Column = 4 Or Target.Column = 9 Or Target.Column = 10 Then
Zeitraum = Range("C" & Target.Row)
Tage (Zeitraum)
End If
On Error GoTo Ende
Application.EnableEvents = False
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=Replace(Replace(Join(Arr_BCV_W, "~"), ",", ";"), "~", ",")
.IgnoreBlank = False
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Ende:
Application.EnableEvents = True
End Sub

Allerdings werden auch DropDowns in anderen Zellen eingefügt, obwohl die ja mit Werten anderer Arrays gefüllt werden sollen.
Was bitte läuft hier schief?
Anzeige
AW: Super
09.01.2019 20:51:49
Nepumuk
Hallo,
wo soll sie denn eingefügt werden? Du benutzt With Selection.Validation, das ist/sind die ausgewählte/n Zellen.
Gruß
Nepumuk
Ich war
09.01.2019 20:58:14
Oisse
zu voreilig. Nun habe ich den Code um das zweite Array erweitert und läuft einwandfrei.
Echt klasse.
Danke nochmal und einen schönen Abend.
Oisse

29 Forumthreads zu ähnlichen Themen

Dropdownliste aus Matrix erstellen
asdf

Hi ich habe folgendes Problem,
ich hab eine Matrix und möchte die Zeile und Spalte per Dropdownliste auswählen
(wie ich die Dropdownliste selbst erstelle weiss ich ) und will nach auswahl von Zeile und Spalte nun das Ergebnis aus der Matrix haben, also den inhalt der in Spalte x und Ze...
31.10.2008 11:26:37
Thread-ID: 1020823
2 Beiträge
Anzeige
VBA - Listenauszug erstellen
Jean

Guten Tag,
in Spalte A sind Datumseinträge gespeichert, die mehrfach vorkommen können.
Alle Datumseinträge sollen in Spalte C nur einmal vorkommen.
Wie löst man diese Aufgabe?
Gruß
Jean
05.12.2010 12:49:17
Thread-ID: 1190116
7 Beiträge
VBA Wert aus DropDown Listen in anderem Feld
Tobias

Hallo,
für folgende Funktion komme ich nicht zur richtigen Lösung:
Ich habe in den Zellen C1, C2, C3, C4, C5 jeweils eine Auswahlliste. Nun Soll wenn ein Wert in C1 vorhanden ist, dieser in E1 angezeigt werden. Soweit so gut :-)
Wenn nun aber ein Wert in C1 und C2 steht, soll der We...
28.11.2013 11:48:47
Thread-ID: 1340365
5 Beiträge
Anzeige
VBA-Userform: Gestaffelte Dropdown Liste
Jendrik

Hallo zusammen,
ich bin gerade dabei mir ein Excel Tool zu basteln, mit dem es möglich sein soll, den Gesamt Status von Projekten zu überblicken.
Hinter diesem Link findet ihr einen beispielhaften Aufbau: https://www.herber.de/bbs/user/100475.xlsx
Der Aufbau kurz erklärt:
Es gib...
29.09.2015 13:58:53
Thread-ID: 1449947
2 Beiträge
Dropdown-Liste erstellen
Jaynis

Hallo,
ich bräuchte dringend eure Hilfe! :)
Ich habe bei Excel eine Liste mit den US-Bundesstaaten vorliegen mit den jeweiligen Postleitzahlen (Zip Codes).
Nun habe ich bereits für die Bundesstaaten eine Dropdown-Liste erstellt, sodass alle 50 Bundesstaaten in dieser Liste erscheine...
05.11.2015 15:20:39
Thread-ID: 1456498
2 Beiträge
VBA Teilliste erstellen
Stefan

Ich bin seit Tagen am gleichen Problem und finde keine Lösung.
Ich habe eine Tabelle in der ich meine Rechnungen und andere Daten speichere. Den jährlich relevanten Bereich habe ich durch folgende Befehle eingegrenzt:
Windows("A_Rechnungen.xlsm").Activate
LetzteZeile = ActiveSheet....
17.12.2015 09:25:19
Thread-ID: 1464829
6 Beiträge
VBA: Gesamtliste erstellen und Einträge kopieren
Hebert

Hallo zusammen,
ich bin neu hier und hoffe, dass ihr mir vielleicht helfen könnt, was mich sehr freuen würde.
Zu meinem "Problem": Ich habe zwei Listen. Die eine beinhaltet Lieferanten, die andere Produkte. Ich möchte nun in einer Gesamtliste jedem Lieferanten alle Produkte einmal zuwei...
14.06.2017 10:18:04
Thread-ID: 1564027
7 Beiträge
VBA Userform Checkboxen per Makro erstellen
Bernd

Servus zusammen,
ich bastle seit Stunden an einer Userform zur Erstellung standardisierter Fehlerberichte, die ich automatisch an einen definierten Mailverteiler weiterleiten möchte.
Als Beispiel mal meine neutrale Mappe:
https://www.herber.de/bbs/user/115045.xlsm
In der Userfo...
25.07.2017 14:13:43
Thread-ID: 1570773
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
1
6
4
8
1
1
5
6
2
2
3
1
11
2
5
4
2
15
2
1
6
3
1
6