Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1868to1872
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
1868to1872
1868to1872
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dropdown Liste aktualisieren

Dropdown Liste aktualisieren
03.02.2022 10:54:12
kwaki
Hallo,
ich hab eine Dropdown liste wie folgt in eine Arbeitsblatt eingefügt:

With ActiveSheet.Range(Cells(6, 1), Cells(10, 1)).Validation
.Delete
.Add Type:=xlValidateList, Formula1:=Join(Namen, ",")
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
"Namen" ist ein public Variant und ich nutze es als eine Auflistung der Namen. Wenn die Namen sich jedoch aktualisieren, so ändert sich die Dropdown Liste nicht mit, obwohl ich den oben gezeigten Code nach dem Aktualisieren des Variants eingefügt habe. Kann mir jemand helfen?

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dropdown Liste aktualisieren
03.02.2022 10:59:02
{Boris}
Hi,
warum zeigst Du uns nicht, wie Du die Variable "Namen" befüllst?
VG, Boris
AW: Dropdown Liste aktualisieren
03.02.2022 11:01:59
kwaki
Klar hier einmal der Code dazu :)
Public Namen() As Variant
Public size As Integer

'Namen in Array sichern
lastName = Sheets("KO").Cells(Rows.Count, 1).End(xlUp).Row
size = lastName - 2
ReDim Namen(1 To size)
Dim i As Integer
For i = 1 To size
Namen(i) = Sheets("KO").Cells(i + 2, 1).Value
Next i

Nicht nachvollziehbar...
03.02.2022 11:08:18
{Boris}
Hi,
wenn die Datenquelle geändert, die Variable neu befüllt wird und die Dropdowns neu "gesetzt" werden, dann läuft das doch alles einwandfrei.
Natürlich werden die bestehenden ausgewählten Werte in den Dropdowns nicht geändert (wie denn auch genau), aber die neuen Auswahlwerte stehen korrekt zur Verfügung.
VG, Boris
Anzeige
AW: Nicht nachvollziehbar...
03.02.2022 11:15:16
Luschi
Hallo {Boris},
sicher kennt der Fragesteller das Worksheet_Change()-Ereignis nicht, mit dem man die Aktualisierung auslösen kann.
Aber wahrscheinlich wird die Aktualisierung des Namensbereiches on der Tabelle durch Formeln realisiert und da tritt dieses Ereignis ja nicht ein. Ich warte mal auf eine Demodatei, ansonsten mache ich an meinem PQ-Projekt weiter.
Gruß vpn Luschi
aus klein-Paris
AW: Nicht nachvollziehbar...
03.02.2022 11:19:44
kwaki
Uuuupsi mein Fehler! Du hast komplett recht Boris!
Ich habe die aktualisierte Dropdownliste ausversehen in ein falsches Tabellenblatt eingefügt, so kann das ja auch nichts werden.
AW: Dropdown Liste aktualisieren
03.02.2022 11:34:17
Rudi
Hallo,
wozu VBA?
Name: Namen
Bezug: =INDEX(Tabelle1!$A:$A;3):INDEX(Tabelle1!$A:$A;VERWEIS(1;1/(Tabelle1!$A$1:$A$100"");ZEILE(Tabelle1!$1:$100)))
Für die Gültigkeit:Zulassen: Liste; Bezug: =Namen
Gruß
Rudi
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige