Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dropdown nicht mit allen Werten befüllen

Forumthread: 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?

Anzeige

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.

Anzeige
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

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!

Anzeige
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

Anzeige
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.

AW: Dropdown nicht mit allen Werten befüllen
22.04.2015 15:57:10
Ronny
Ich habe meine zwei Dateien als .zip hochgeladen
https://www.herber.de/bbs/user/97239.zip
Danke für die Unterstützung

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
;

Forumthreads zu verwandten Themen

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
Anzeige
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
ComboBox mit den Werten aus 4 TextBoxen befüllen
Frank

Hallo am heiligen Sonntag!!!
Ich brauche wieder einmal eure Hilfe.
Auf einer UF befinden sich 4 TextBoxen welche mittels Code befüllt werden. Nun möchte ich gern, dass diese 4 Werte dann in eine ComboBox geschrieben werden! Ist das möglich und wenn ja - wie?
Danke und schönen Sonnta...
08.08.2010 12:43:44
Thread-ID: 1171147
3 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
Anzeige
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
Array mit Texten befüllen und dann sortieren?
Kasimir

Hallo an Alle!
Ich benötige Eure Hilfe, da ich mich mit Arrays (noch) nicht auskenne. Erst mal ein Beispiel, wie die Daten in einer Tabelle stehen:
Bestand

 A1Artikel2Büchsenmilch3Filtertüten4Kaffee5Aufbackbaguettbrötchen6Aufbackbaguettes7Aufbackbrötchen dunkel8Aufbackbrötc...
16.09.2011 09:33:42
Thread-ID: 1230116
3 Beiträge
Anzeige
Mehrzeilige Listbox mit strings füllen
Dieterlem

Hallo Excelfreunde,
ich möchte eine mehrzeilige Listbox mit Variablen füllen. Die Variablen werden nach durchlaufen einer Schleife gebildet und sollen in bestimmte Spalten eingetragen werden. Mein Code lautet in etwa:
Private Sub userform_Activate() Listbox.columnCoun=3 Listbox.ColumnWi...
24.02.2012 13:36:33
Thread-ID: 1252350
5 Beiträge
Tabelle mit Werten aus anderer Tab auffüllen
Fritz_W

Hallo Forumsbesucher,
ich wende mich an die VBA-Experten unter euch und bitte um Unterstützung bei folgendem Anliegen:
Die Tabelle2a wird - von Zeit zu Zeit - mit Daten aus der gleichartig strukturierten Tabelle2 'aufgefüllt'. Zusammengehörende Daten befinden sich in 15 (durchnummeriert...
28.02.2012 17:58:29
Thread-ID: 1252807
7 Beiträge
Textfelt automatisch mit Werten füllen
Jonas

Guten Morgen zusammen,
ich arbeite gerade an einem Makro mit einem Formular und benötige eure Hilfe.
In diesem Formular befindet sich u.a. eine ComboBox ("ComboBoxStufe") und drei Textfelder ("FeldSchnittD", "FeldSchnittE", "FeldSchnittF"). Wenn der User in der ComboBox einen Eintrag au...
29.11.2012 08:33:47
Thread-ID: 1288518
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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