Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
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
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1576to1580
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
1576to1580
1576to1580
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dropdown via VBA zuweisen

Dropdown via VBA zuweisen
31.08.2017 14:05:25
key
Hallo an alle,
ich bräcuhte mal wieder eure Hilfe bei folgender Datei:
https://www.herber.de/bbs/user/115915.xlsm
Aktuell ists so dass es die Blattnamen ließt und dann in Zelle D4 ff. als Dropdown zur Auswahl stellt.
Nun will ich aber folgendes realisieren.
Wenn im angelegten Blatt in Zelle A1 Druck steht, soll dieser Blattnamen im Dropdwon in Zelle D4 ff. auszuwählen sein.
Wenn im angelegten Blatt in Zelle A1 Luft steht, soll dieser Blattnamen im Dropdwon in Zelle R5 ff. auszuwählen sein.
Das muss wohl irgednwie mit Selec Case möglich sein. Wäre toll wenn ihr mir weiterhelfen könnt.
Gruß und Danke

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dropdown via VBA zuweisen
31.08.2017 14:20:39
yummi
Hallo key,
in deienr dropdown aktualisieren folgende if Bedingung dazu:

Case Else
If Application.WorksheetFunction.CountIf(RNG, WS.Name) = 0 Then
If WS.Cells(1, 1).Value = "Druck" Then
strFilter = strFilter & WS.Name & ","
End If
End If
Gruß
yummi
AW: Dropdown via VBA zuweisen
31.08.2017 14:39:33
key
Super, das klappt, Danke. Und den zweiten Range R5:R14 dann anlegen?
AW: Dropdown via VBA zuweisen
31.08.2017 15:11:57
yummi
Hallo key,
du musst von R5 bis R15 noch eine Datenüberprüfung anlegen.
dann den Code: 

Private Sub DropDown_aktualisieren()
Dim RNG1 As Range, WS, Z, strFilter1 As String
Dim RNG2 As Range, strFilter2 As String
On Error GoTo Fehler
Set RNG1 = Range("D6:D100")
Set RNG2 = Range("R6:R14")
Me.Unprotect
Application.EnableEvents = False
strFilter1 = ""
strFilter2 = ""
For Each WS In ActiveWorkbook.Sheets
Select Case WS.Name
Case "Summe Luftleistung"
'Diese Blätter nicht ins DropDown
Case "Summe Druck"
Case Else
If Application.WorksheetFunction.CountIf(RNG1, WS.Name) = 0 Then
If WS.Cells(1, 1).Value = "Druck" Then
strFilter1 = strFilter1 & WS.Name & ","
End If
End If
If Application.WorksheetFunction.CountIf(RNG2, WS.Name) = 0 Then
If WS.Cells(1, 1).Value = "Luft" Then
strFilter2 = strFilter2 & WS.Name & ","
End If
End If
End Select
Next
If strFilter1  "" Then
With RNG1.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=strFilter1
.IgnoreBlank = True
.InCellDropdown = True
.ShowInput = True
.ShowError = True
End With
Else 'Es sind bereits alle Produkte ausgewählt
With RNG1.Validation
.Delete
End With
MsgBox "Es sind bereits alle Produkte ausgewählt"
End If
If strFilter2  "" Then
With RNG2.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=strFilter2
.IgnoreBlank = True
.InCellDropdown = True
.ShowInput = True
.ShowError = True
End With
Else 'Es sind bereits alle Produkte ausgewählt
With RNG2.Validation
.Delete
End With
MsgBox "Es sind bereits alle Produkte ausgewählt"
End If
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & _
Err.Number & vbLf & Err.Description: Err.Clear
Me.Protect
Application.EnableEvents = True
End Sub
Gruß
yummi
Anzeige
AW: Dropdown via VBA zuweisen
06.09.2017 13:05:59
key
Saustark! Vielen Dank!

301 Forumthreads zu ähnlichen Themen

VBA Dropdown Userform
Ralf

Hallo
ich möchte in einer Userform ein Dropdownfeld erzeugen das aus einer bestimmten Tabelle zum Bsp. aus Spalte A die ersten Zehn Zeilen als Auswahlmöglichkeiten anzeigt.
Wäre nett wenn mir da jemand helfen könnte
Gruss Ralf
15.08.2008 11:16:56
Thread-ID: 1002117
2 Beiträge
Anzeige
wert aus dropdown in vba übernehmen
reich

hallo,
könnt ihr mir bitte helfen? wie schaff ich es von einer drop down liste den ausgewählten wert in vba zu übernehmen ...
dim varWert as variant
worksheets("formular").activate
'dropdown 1 liste ansteuern und aktuell ausgewählten wert in vba übernehmen
varWert = 'wert au...
23.09.2008 15:34:00
Thread-ID: 1011776
4 Beiträge
Liste aus Daten mittels Drop-Down Menüs erstellen
Marco

Hallo liebes Forum,
ich habe mal wieder ein Problem und hoffe auf Eure hilfe. Wahrscheinlich ist das für einen VBA Profi ein lacher, für mich allerdings ein Krampf.
Ich will automatisch einen Packplan erstellen. Hierfür existieren vordefinierte Vorlagen, hinsichtlich des jeweiligen Item...
11.10.2008 19:51:00
Thread-ID: 1015785
7 Beiträge
Anzeige
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
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:38:00
Thread-ID: 1020833
2 Beiträge
Dropdownliste erweitern
Rainer

Hallo Leute,
ich hab mal wieder ne Frage. Ich habe eine Dropdownliste erstellt, in dem ich bestimmte Zellen markiert habe und diesen über die Name Box (linke Seite der Eingabe, wo normalerweise die Zelle steht) einen Namen gegeben haben. Aus dieser Liste kann ich dann im Dropdownmenu auswäh...
05.11.2008 09:52:00
Thread-ID: 1021773
2 Beiträge
dropdownliste mit bilder
e-mo

Hallo..
ich habe eine Frage in Bezug zum Dropdown Liste.
Ich kann eine Dropdownliste mit der Auswahl erstellen, das ist lein Problem.
moechte aber jetzt eine Dropdownliste erstellen, wo ich als liste, paar bilder habe. Ist das moeglich? ich habe bereits in diversen foren gesucht, le...
18.11.2008 17:06:17
Thread-ID: 1025706
2 Beiträge
Dropdown-Auswahlliste: Ausgabe anderer Text
Daniel

Hallo
Ich habe eine Dropdown-Auswahlliste erstellt, die auch funktioniert. Nun möchte ich aber, dass aus Platzgründen ein anderer (kürzerer) Text ausgegeben wird als in der Auswahlliste angezeigt wird.
Beispiel: Anzeige = Telefon ----- Ausgabe im Feld = Tel.
Ist das überhaupt mac...
04.12.2008 08:58:00
Thread-ID: 1030032
2 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
3
6
1
1
1
1
1
1
2
2
2
1
6
5
2
6
3
1
1
2
3
3
1