Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1424to1428
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
1424to1428
1424to1428
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dropdownliste aus anderem Reiter mit leeren Zellen

Dropdownliste aus anderem Reiter mit leeren Zellen
15.05.2015 12:00:58
assel90
Hallo zusammen!
Ich möchte per VBA eine Dropdownliste erstellen, da die normale "Länge" die Excel anbietet für die Anzahl an Auswahlmöglichkeiten nicht ausreicht.
Mein Vorhaben sieht wie folgt aus: Ich möchte im ersten Tabellenblatt eine Dropdownliste erzeugen, die ihre Werte aus einer "Datenbank" aus dem zweiten Tabellenblatt bezieht. Zwischen den auszuwählenden Werten sind jedoch jeweils leere Zellen, die ich nicht mit drin haben möchte. Alle Werte befinden sich in einer Zeile.
Optimal wäre nach meiner Ansicht eine VBA-Lösung, die mit einer Schleife die Zeile durchgeht und aus allen ausgefüllten Zellen die Dropdownliste erzeugt.
Ich habe mich jetzt schon länger daran versucht und bekomme es einfach nicht hin. Ich hoffe mir kann jemand helfen!

20
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dropdownliste aus anderem Reiter mit leeren Zellen
15.05.2015 13:15:39
Nepumuk
Hallo,
ohne Mustermappe kann ich dir nur ein Beispiel liefern welches du noch anpassen musst:
Public Sub Beispiel()
    Dim avntValues As Variant
    Dim strText As String
    With Tabelle2
        avntValues = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)).Value
    End With
    strText = Join(WorksheetFunction.Transpose(avntValues), ";")
    strText = Replace(strText, ";;", ";")
    strText = Replace(strText, ";", ",")
    With Tabelle1.Cells(1, 1).Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:=strText
        .IgnoreBlank = True
        .InCellDropdown = True
    End With
End Sub

Gruß
Nepumuk

Anzeige
AW: Dropdownliste aus anderem Reiter mit leeren Zellen
15.05.2015 13:38:45
assel90
Danke schonmal!!!
Hab es eben versucht, aber es kommt der Fehler, dass ein Objekt fehlt...
Also die Zelle in der die Dropdownliste sein soll ist im Reiter "Arbeitsblatt" Zelle B2. Der Datenbankreiter heißt "Grundwinkel" und die Zeile in der die auszulesenden Werte stehen, ist Zeile 2 beginnend in Spalte B.

AW: Dropdownliste aus anderem Reiter mit leeren Zellen
15.05.2015 13:54:22
Nepumuk
Hallo,
lad halt eine Mustermappe hoch.
Gruß
Nepumuk

AW: Dropdownliste aus anderem Reiter mit leeren Zellen
15.05.2015 14:02:19
assel90
https://www.herber.de/bbs/user/97659.xlsm
hier die Test-Datei. Ich möchte im Prinzip die 3 Dropdownlisten auf dem Reiter "Arbeitsblatt" mit einer Makro erzeugen, damit ich alle Daten erfassen kann und das Ganze dynamisch funktioniert wenn mal etwas geändert wird. Danke!

Anzeige
AW: Dropdownliste aus anderem Reiter mit leeren Zellen
15.05.2015 14:20:03
Nepumuk
Hallo,
und was sollen die genau für Daten aus welcher Tabelle beinhalten?
Gruß
Nepumuk

AW: Dropdownliste aus anderem Reiter mit leeren Zellen
15.05.2015 14:31:18
assel90
Hi,
in den "Datenbanken" stehen Teilenummern drin. Also in den Reitern "Grundwinkel" Vorrichtungen" und "Oberteile". Diese Teilenummern möchte ich im Reiter "Arbeitsblatt" in den jeweiligen Dropdowns zur Auswahl haben. Beim Testen hat das Ganze mit der "normalen" Excel-Dropdown Funktion ausgereicht. Wenn ich jetzt aber alle Nummern einfüge wird das zu viel und funktioniert nicht mehr. Deshalb sollte das jetzt per VBA realisiert werden. Ist das verständlich? :-D

Anzeige
AW: Dropdownliste aus anderem Reiter mit leeren Zellen
15.05.2015 14:55:41
Nepumuk
Hallo,
dann teste mal:
Option Explicit

Public Sub CreateValidation()
    Dim avntValues As Variant, avntSheetNames As Variant
    Dim strValidationList As String
    Dim ialngIndex As Long, lngOldLength As Long
    avntSheetNames = Array("Grundwinkel", "Vorrichtungen", "Oberteile")
    For ialngIndex = 0 To 2
        With Worksheets(avntSheetNames(ialngIndex))
            avntValues = .Range(.Cells(2, 2), .Cells(2, .Columns.Count).End(xlToLeft)).Value
        End With
        strValidationList = Join(WorksheetFunction.Transpose( _
            WorksheetFunction.Transpose(avntValues)), ";")
        Do
            lngOldLength = Len(strValidationList)
            strValidationList = Replace(strValidationList, ";;", ";")
        Loop Until lngOldLength = Len(strValidationList)
        strValidationList = Replace(strValidationList, ";", ",")
        With Worksheets("Arbeitsblatt").Cells(2, 2 + ialngIndex * 4).Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                xlBetween, Formula1:=strValidationList
            .IgnoreBlank = True
            .InCellDropdown = True
        End With
    Next
End Sub

Gruß
Nepumuk

Anzeige
AW: Dropdownliste aus anderem Reiter mit leeren Zellen
18.05.2015 08:03:59
assel90
Das funktioniert super! Ich danke dir, habe mir da echt die Zähne dran ausgebissen!!

AW: Dropdownliste aus anderem Reiter mit leeren Zellen
20.05.2015 13:31:22
assel90
Hallo,
nochmal eine Frage: Als ich die Tabellenblätter nach und nach mit den richtigen Daten gefüllt habe kam der Fehler: Entferntes Feature: Datenüberprüfung von /xl/worksheets/sheet1.xml-part
Durch Recherche habe ich herausgefunden, dass es wahrscheinlich an einem Befehl in dem eingefügten Quellcode liegt, der nicht mit Excel 2007 kompatibel ist. Speichere ich die Datei als Excel-2003 Version als .xls ab funktioniert alles fehlerfrei. Weiß jemand welcher Befehl das sein könnte und durch was er ersetzt werden muss?
Danke!

Anzeige
AW: Dropdownliste aus anderem Reiter mit leeren Zellen
20.05.2015 13:46:04
Nepumuk
Hallo,
ich hab das unter Excel 2013 erstellt und da funktioniert es einwandfrei. Am Code kann es demnach nicht liegen. Nachdem die Datenüberprüfung jedes mal neu erstellt wird, lösch die alten einfach mal dann Mappe speichern, schließen, erneut öffnen und dann das Makro ausführen.
Gruß
Nepumuk

AW: Dropdownliste aus anderem Reiter mit leeren Zellen
20.05.2015 14:14:55
assel90
Hallo,
ich habe sowohl die Zellen geleert als auch den Quellcode entfernt, abgespeichert neu geöffnet und wieder eingefügt. Der Fehler tritt immer wieder auf. Ich dachte es liegt evtl. daran, dass die maximale Zeichenzahl für die Dropwonliste möglicherweise überschritten wurde, aber auch nach Reduzierung ist der Fehler immer noch aufgetreten.
Gruß

Anzeige
AW: Dropdownliste aus anderem Reiter mit leeren Zellen
20.05.2015 14:30:47
Nepumuk
Hallo,
das ist aber nicht zufällig eine englische Excelversion?
Gruß
Nepumuk

AW: Dropdownliste aus anderem Reiter mit leeren Zellen
20.05.2015 14:33:56
assel90
Hallo,
als Sprache ist auf jeden Fall deutsch eingestellt. Ob die Ausgangsversion englisch ist, weiß ich nicht. Wo sehe ich das denn?
Gruß

AW: Dropdownliste aus anderem Reiter mit leeren Zellen
20.05.2015 14:45:18
Nepumuk
Hallo,
gib mal eine Gültigkeitsliste manuell ein. Musst du dann Semikolons oder Kommas als Trennzeichen eingeben?
Gruß
Nepumuk

AW: Dropdownliste aus anderem Reiter mit leeren Zellen
20.05.2015 14:48:20
assel90
Hallo,
mit Semikolons!
Und by the way, das Betriebssystem läuft auf englisch.
Gruß

AW: Dropdownliste aus anderem Reiter mit leeren Zellen
20.05.2015 14:59:02
Nepumuk
Hallo,
dann lösch mal in der Prozedur diese Zeile:
strValidationList = Replace(strValidationList, ";", ",")
Gruß
Nepumuk

Anzeige
AW: Dropdownliste aus anderem Reiter mit leeren Zellen
20.05.2015 15:00:45
Nepumuk
Hallo,
dann lösch mal in der Prozedur diese Zeile:
strValidationList = Replace(strValidationList, ";", ",")
Gruß
Nepumuk

AW: Dropdownliste aus anderem Reiter mit leeren Zellen
20.05.2015 15:19:05
assel90
Hallo,
dann steht alles in einer Zeile. Also ich habe nur noch einen Wert zur Auswahl in der Dropdownliste in dem alle Werte stehen

AW: Dropdownliste aus anderem Reiter mit leeren Zellen
20.05.2015 15:30:19
Nepumuk
Hallo,
dann fällt mir auch nichts mehr ein. Ist dein Office auf dem aktuellsten Stand was Updates betrifft?
Gruß
Nepumuk

AW: Dropdownliste aus anderem Reiter mit leeren Zellen
20.05.2015 15:35:55
assel90
Hallo,
sollte es eigentlich sein... In den nächsten Monaten wird sowieso auf ein neues Office-Paket umgestellt. Bis dahin speichere ich die Datei einfach als .xls, da sie da ja funktioniert.
Ich danke dir für deine ausgiebige Hilfe!
Gruß
Anzeige

377 Forumthreads zu ähnlichen Themen

Gültigskeitsprüfung mit leerer Zelle
Franz

Guten Abend!
Habe 9 Spalten mit Dropdowns gefüllt. Wie bekomme ich den nachfolgenden Code (Quelle: Archiv) eleganter hin, dh. ohne for next Schleife und dadurch schneller. Der Datenbereich heistt "Printarea".
Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer For i =...
14.09.2008 20:56:00
Thread-ID: 1009627
11 Beiträge
Anzeige
Inhalt von UF wird nicht angezeigt
UF

Hi Forum,
ich starte meine UF mit dem folgenden Code:
Sub auto_open() Application.WindowState = xlMinimized UF_BitteWarten.Show vbModeless Application.Run "RESETMASK" UF_BitteWarten.Hide UF_Maske.Show End Sub
Wie zu erkennen, wird beim Start ein Reset ausgeführt, der einige Sekun...
26.09.2008 14:29:02
Thread-ID: 1012639
16 Beiträge
Gültigkeitsliste ohne Zellenbereich
Reinhard

Hallo Wissende,
Sub Makro1() With Range("P2").Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="a;b;c" .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput...
02.11.2008 16:48:00
Thread-ID: 1021179
4 Beiträge
Anzeige
langer Text wird nicht mehr angezeigt
u_hoernchen

Ich muss einen langen Text (ca. 1.500 Zeichen) in eine Excel-Zelle schreiben (geht leider nicht anders, also das bitte nicht in Frage stellen). Nun wird beim Ausdruck und bei der Bildschirmanzeige aber die letzte Zeile nicht mehr umgebrochen (Zeilenumbruch ist formatiert), in der Zelle steht ab...
05.01.2009 11:10:25
Thread-ID: 1036916
4 Beiträge
Ribbon-DropDown-Listenfeld variabel füllen?
Kasimir

Hallo an alle!
Ich habe da mal eine Frage bezüglich der Excel 2007 Ribbons.
Zum Verständnis, ich habe eine xls-Datei, in der ich beim Starten eine neue Symbolleiste erzeuge. Diese neue Symbolleiste hat u.a. ein msoControlComboBox, die ich über eine Schleife mit bestimmten Tabellenblattn...
17.01.2009 07:23:00
Thread-ID: 1040862
3 Beiträge
Zeile mit optisch leerer Zelle löschen
Werner

VBA-Level: befriedigend
Hallo Freunde,
eine Tabelle (Worksheet) hat mehrere Spalten, beginnend ab Spalte A. Spalte A enthält Stringwerte.
Einige der Zellen in Spalte A sind optisch leer.
Nun sollen alle diejenigen Zeilen, bei denen die Zellen in Spalte A optisch leer sind, gelös...
13.03.2009 11:21:32
Thread-ID: 1059795
10 Beiträge
Wert wird nicht angezeigt
Markus

Hallo,
habe folgendes Problem:
Ich lasse mir einen Wert per VBA ausrechnen und dann mit Range... im Tabellenblatt anzeigen.
Das Problem ist, dass der Wert nicht angezeigt wird.
Wenn ich denn Programmcode per Einzelschritt debugge, dann wird der Wert komischerweise angezeigt!
...
20.07.2009 11:00:55
Thread-ID: 1089939
6 Beiträge
Geöffnete Datei wird nicht angezeigt...
Ruediger

Hallo zusammen,
ich habe eine Datei - mit einigen Verknüpfungen auf eine andere Datei - versuchen wollen zu öffnen. Ich werde auf gefragt, ob ich aktualisieren will oder nicht. Drücke ich aktualisieren als auch nicht aktualisieren, wird die Datei zwar geöffnet, aber nicht angezeigt.
Wo...
22.07.2009 17:02:42
Thread-ID: 1090605
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
10
1
15
3
2
3
2
9
5
2
3
7
2
5
11
3
5
2
5
2
2
6
7
1
2