Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1420to1424
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
1420to1424
1420to1424
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dropdown nicht mit allen Werten befüllen

Dropdown nicht mit allen Werten befüllen
20.04.2015 16:12:36
Ronny
Hallo zusammen. Ich habe in einer Liste in der Spalte K ein Datum. Das Datum ändert etwa nach 100 bis 400 Zeilen. Ist also immer anders. Die Daten kommen aus einer anderen Excel-Datei und werden per Makro importiert. Nun habe ich mir ins Feld O2 eines der Datum reingeschrieben damit ich per Makro alle Zeile die nicht diese Datum haben, löschen kann. Jetzt möchte ich das ich die verschiedenen Datum per DropDown in eine Userform auswählen kann.
Wie kann ich das DropDown so befüllen das von der Liste nicht jede Zeile abgefüllt wird sondern jede vorhandene Datum nur einmal.
Ist das verständlich was ich möchte und es das so irgendwie möglich?

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dropdown nicht mit allen Werten befüllen
20.04.2015 17:58:33
Klexy
Mach eine Hilfsspalte in Spalte L:
=WENNFEHLER(INDEX(K:K;AGGREGAT(15;6;ZEILE(K$2:K$30000)/ISTNV(VERGLEICH(K$2:$K$30000;L$1:L1;)); 1)) &"";"")

AW: Dropdown nicht mit allen Werten befüllen
21.04.2015 06:37:51
Ronny
Hallo Klexy
Die Idee finde ich gut. Soll ich in Spalte L mittels FormulaLocal die Formel einfügen?
Wenn ich die Formel einfach so eingebe ist das Resultat immer 42111.
Sorry hört sich jetzt vielleicht etwas doof an aber ich weiss wirklich nicht genau wie du das gemeint hast.

AW: Dropdown nicht mit allen Werten befüllen
21.04.2015 07:47:14
fcs
Hallo Ronny,
du musst in der Initialisierungsprozedur der Userforms alle Wert in der Datumsspalte prüfen und ohne Doppelte in die Auswahlliste übernehemn.
Suche mal in der RECHERCHE unter "Listbox ohne doppelte". Da sollte was passendes zu finden sein.
Gruß
Franz

Anzeige
AW: Dropdown nicht mit allen Werten befüllen
21.04.2015 07:51:23
Nepumuk
Hallo,
so kannst du die ComboBox füllen:
Private Sub UserForm_Initialize()
    Dim avntValues As Variant, vntItem As Variant
    Dim objDictionary As Object
    With Tabelle1
        avntValues = .Range(.Cells(2, 11), .Cells(.Rows.Count, 11).End(xlUp)).Value
    End With
    Set objDictionary = CreateObject("Scripting.Dictionary")
    For Each vntItem In avntValues
        objDictionary(vntItem) = vbNullString
    Next
    ComboBox1.List = objDictionary.Keys
    Set objDictionary = Nothing
End Sub

Den Tabellennamen und die Startzeile des Bereiches musst du eventuell anpassen.
Gruß
Nepumuk

Anzeige
AW: Dropdown nicht mit allen Werten befüllen
21.04.2015 13:01:07
Ronny
Das hört sich sehr gut an! Ich habe den Code beim Userform entsprechend rein kopiert.
Die Tabelle heisst Daten das hab ich geändert. Der Rest passt. Im Code von der Tabelle rufe ich das UserFrom über UserForm1.Show auf. Jedoch passiert nichts. Ich bekomme nicht einmal eine Fehlermeldung. Was könnte ich falsch machen? Offenbar wird der Code nicht ausgeführt. Ich stehe gerade auf dem Schlauch. Danke für die Hilfe!

AW: Dropdown nicht mit allen Werten befüllen
21.04.2015 13:51:09
Nepumuk
Hallo,
keine Ahnung, ich kenn ja deine Mappe nicht. Bei mir hat das funktioniert.
Gruß
Nepumuk

AW: Dropdown nicht mit allen Werten befüllen
21.04.2015 14:34:58
fcs
Hallo Ronny,
hier 
   With Tabelle1

musst du den Code-Namen von Blatt "Daten" angeben, wie im VBA-Projekt-Explorer angezeigt
oder 
   With Workshets("Daten")

wenn "Daten" der Name auf dem Blattregister ist.
Gruß
Franz

Anzeige
AW: Dropdown nicht mit allen Werten befüllen
21.04.2015 15:18:16
Ronny
Danke habe es ausprobiert, aber es geht genau so wenig. Ich habe meine Tabelle auch schon unbenannt auf Tabelle1 aber auch das geht nicht. Keine Ahnung was ich falsch mache!

AW: Dropdown nicht mit allen Werten befüllen
22.04.2015 07:46:13
fcs
Hallo Ronny,
bei mir hatte sich der Tippfehler-Teufel eungeschlichen - ein "e" fehlte" 
   With Worksheets("Daten")
Ansonsten muss du mal -wie von Nepumuk vorgeschlagen- deine Datei abgespeckt/Daten anonymisert mit dem Userform hier hochladen denn die reichweite unberer Kristallkugeln ist begrenzt.
Gruß
Franz

AW: Dropdown nicht mit allen Werten befüllen
22.04.2015 07:58:37
Ronny
Hallo!
Den Tippfehler habe ich bemerkt. Aber an dem hat es nicht gelegen leider.
Das mit der Kristallkugel kann ich gut verstehen. Ich kann das File gerne hochladen.

Anzeige
AW: Dropdown nicht mit allen Werten befüllen
23.04.2015 07:43:58
Ronny
So nun habe ich eine Lösung gefunden!
Private Sub UserForm_Initialize()
Dim X As Long, Y As Long, B As Boolean
With ComboBox1
.Clear
For X = 2 To 1000
If Cells(X, 11)  "" And Cells(X, 11).RowHeight > 0 Then
For Y = 1 To X - 1
If Cells(Y, 11) = Cells(X, 11) Then
B = True
Exit For
End If
Next Y
If B = False Then
.AddItem Cells(X, 11)
Else
B = False
End If
End If
Next X
End With
End Sub
Das funktioniert perfekt!

Anzeige
AW: Dropdown nicht mit allen Werten befüllen
23.04.2015 08:00:02
fcs
Hallo Ronny,
das Problem liegt an anderer Stelle: Der Name der Prozedur ist nicht korrekt. Die "1" ist zuviel.
Bei deinem neuen Makro hast du das irgendwie unbemerkt korrigiert. 
Private Sub UserForm_Initialize()
'Private Sub UserForm1_Initialize()   '#### Falsch
Dim avntValues As Variant, vntItem As Variant
Dim objDictionary As Object
With Worksheets("Daten")
avntValues = .Range(.Cells(2, 11), .Cells(.Rows.Count, 11).End(xlUp)).Value
End With
Set objDictionary = CreateObject("Scripting.Dictionary")
For Each vntItem In avntValues
objDictionary(vntItem) = vbNullString
Next
ComboBox1.List = objDictionary.Keys
Set objDictionary = Nothing
End Sub

Anzeige

304 Forumthreads zu ähnlichen Themen

Array mit mehrspaltiger Listbox füllen
Martin

Hallo liebe Excelianer,
eine Listbox kann sehr einfach mit einem Array gefüllt werden: ListBox1.List() = Arr
Leider geht das nicht umgekehrt: Arr = ListBox1.List()
Folgende Lösung habe ich mir geschrieben:
Sub Lösung For i = 1 To ListBox1.ListCount For j = 1 To 9 Arr(i, j) = Lis...
21.08.2009 20:33:45
Thread-ID: 1097859
18 Beiträge
Anzeige
Combobox mit Werten füllen
Jeron

Hallo liebe Excel Freunde,
ich sitz gerade an einem Userform, dass Werte aus einer Tabelle über eine Combobox auslesen soll.
Ich möchte erreichen, dass die Spalte C, Zelle C8 - C56 auf Inhalt überprüft wird.
Wenn ein Wert vorhanden ist, soll die ComboBox aber nicht mit dem Wert aus...
29.08.2009 18:34:01
Thread-ID: 1099336
10 Beiträge
Kombobox mit Werten füllen ohen Duplikate VBA
chrissey

Hallo Leut,
hab im Tabellenblatt "Daten" in Spalte K verschieden Referenznummern, die aber
öffter vorkommen können.
Nun würde ich gerne in einem anderen Tabellenblatt eine Kombobox mit diesen
Nummern aus Spalte K füllen, aber jeder Wert darf nur einmal in der Auswahl
vorkom...
17.03.2010 11:25:26
Thread-ID: 1146565
4 Beiträge
Anzeige
Combobox mit Werten füllen
Juliane

Hallo Leute,
ich bin gerade sowas von auf dem Kopf gefallen, ich versteh gar nichts mehr.... Also hab ne Combobox auf mein Tabellensheet gelegt. U jetzt möchte ich diese Combobox mit Werten aus einem anderen Tabellensheet füllen.
Hab es folgendermaßen probiert, aber funktioniert null :(...
12.08.2010 14:32:37
Thread-ID: 1171943
2 Beiträge
bestimmte Spalten mit Werten füllen
strodti

Hallo liebe Excelianer,
ich habe in einer Datei zwei Blätter "Eingabe" und "Zuordnungstabelle" mit identischen Spaltenüberschriften. In "Eingabe" werden Adressdaten u.ä. eingetragen. Über untenstehenden Code werden alle Zeilen, die in Spalte A ein "a" haben, in die "Zuordnungstabelle" kopie...
16.11.2010 18:50:54
Thread-ID: 1187050
4 Beiträge
Zeile einfügen und mit Werten befüllen
Maris

Hallo Leute,
ich habe ein ziemlich difizilles Problemchen... was mir aber den letzten nervt raub und sehr Zeitaufwendig ist. Deswegen wäre ich euch super dankbar wenn ihr mir helfen könntet. Ich habe eine Exceltabelle und ich muß manuell immer eine Zeile einfügen in einer Tabelle und das 5...
23.03.2011 12:20:58
Thread-ID: 1207071
6 Beiträge
Array mit Werten aus Spalten aus füllen
Stefan

Hallo - schon wieder ein Problem.Ich möchte ein Array füllen mit verschiedenen Ausprägungen, die in einer Spalte untereinander stehen. Die Spalte ist aber (1) nicht immer gleich lang und (2) hat doppelte Einträge - jeder Eintrag soll aber nur einmal im Array auftauchen. Hat jemand eine Idee, wi...
13.05.2002 18:02:14
Thread-ID: 120580
2 Beiträge
ComboBox mit Werten füllen funktioniert nicht
Peter

Hallo zusammen,
habe ein Problem und weiß nicht, woran es liegt....
In einem Formular ("Master") habe ich eine ComboBox ("ComboBox2"), die ich mit Daten aus Zeile 1 aus einem Sheet ("WA") füllen möchte. Ich führe den Code aus, die ComboBox bleibt aber leer, obwohl im Sheet Daten stehen...
26.08.2011 13:45:34
Thread-ID: 1227668
9 Beiträge
Anzeige

Links zu Excel-Dialogen

ComboBox ListBox

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
17
4
9
3
2
1
3
5
1
8
2
2
4
6
4
1
13
2
6
8
8
8
2
7
6