Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1508to1512
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
Inhaltsverzeichnis

VBA-Dropdown Probleme

VBA-Dropdown Probleme
22.08.2016 16:48:32
Hans-Jörg
Hallo!
Bin gerade dabei einen Code zu schreiben um eine Dropdown-Liste, welche von einer anderen Dropdown-Liste abhängig ist, zu erstellen. Habe mich jetzt "festgeschrieben" und keine Ahnung mehr, wie ich weiter kommen soll.
Der momentane Code sieht so aus:

Sub dropdown()
If Range("E2") = "E-Engineering" Then
Cells(5, 3).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Basisdaten!$N$4:$N$9"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
ElseIf Range("E2") = "SW-Engineering" Then
Cells(5, 3).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Basisdaten!$P$4"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
ElseIf Range("E2") = "M-Engineering" Then
Cells(5, 3).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Basisdaten!$R$4:$R$11"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
ElseIf Range("E2") = "PLT" Then
Cells(5, 3).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Basisdaten!$T$4"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
ElseIf Range("E2") = "Dokumentation/Schulung" Then
Cells(5, 3).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Basisdaten!$V$4"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
ElseIf Range("E2") = "Typentest/Zulassung" Then
Cells(5, 3).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Basisdaten!$X$4:$X10$"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
ElseIf Range("E2") = "FW-Engineering" Then
Cells(5, 3).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Basisdaten!$Z$4:$Z$8"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
ElseIf Range("E2") = "Alle" Then
Cells(5, 3).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Basisdaten!$AB$4:$AB$29"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End If
End Sub

In E2 befindet sich die andere Dropdown-Liste. Der code könnte auch kompletter Stuss sein...aber das kann ich leider nicht beurteilen.
Nun zu dem Problem: Es läuft, gibt keine Fehler, aber die Dropdown Liste verändert sich nicht so wie ich das will. Egal was ich in E2 auswähle, die Liste bleibt die Selbe.
Ich hoffe ihr könnt mir schnell weiter helfen.
MfG,
HJ

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA-Dropdown Probleme
22.08.2016 17:05:23
Daniel
Hi
der Code ist prinzipiell richtig.
du musst nur dafür sorgen, dass er auch ausgeführt wird, wenn sich Zellwert in E2 ändert.
dazu müsste dieser Code ins Modul des Tabellenblatts der Zelle E2:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$2" Then Call dropdown
End Sub
der Wert in der Zelle mit der neuen Validation-List (C5) ändert sich aber nicht, wenn sich die Valiation-List ändert.
Gruß Daniel
AW: VBA-Dropdown Probleme
23.08.2016 06:44:18
Hans-Jörg
Hallo Daniel,
vielen Dank für die schnelle Antwort.
Sub WSChange(ByVal Target As Range)
If Target.Address = "$E$2" Then
Call dropdown
Range("E3").Select
Habe das jetzt so eingefügt. Es tut sich immer noch nichts. Was genau muss ich noch definieren? Ich kann mir nicht vorstellen dass das so stimmt. Könntest du mir diese Zeilen evtl. in eine Sprache übersetzen, die ich verstehe? :D
MfG,
HJ
Anzeige
AW: VBA-Dropdown Probleme
23.08.2016 07:53:21
Daniel
Hi
Damit diese automatischen Eventmakros funktionieren können, muss der Makroname und die Kopfzeile genau so aussehen, wie VBA das vorgesehen hat.
Wenn du den Makronamen abänderst, wird das Eventmakro nicht als solches erkannt und kann nicht automatisch ausgeführt werden.
Gruß Daniel
AW: VBA-Dropdown Probleme
23.08.2016 08:44:22
Daniel
Hi
Damit diese automatischen Eventmakros funktionieren können, muss der Makroname und die Kopfzeile genau so aussehen, wie VBA das vorgesehen hat.
Wenn du den Makronamen abänderst, wird das Eventmakro nicht als solches erkannt und kann nicht automatisch ausgeführt werden.
Gruß Daniel
Anzeige
AW: VBA-Dropdown Probleme
23.08.2016 10:31:34
Daniel
Hi
Damit diese automatischen Eventmakros funktionieren können, muss der Makroname und die Kopfzeile genau so aussehen, wie VBA das vorgesehen hat.
Wenn du den Makronamen abänderst, wird das Eventmakro nicht als solches erkannt und kann nicht automatisch ausgeführt werden.
Gruß Daniel
AW: VBA-Dropdown Probleme
23.08.2016 11:00:35
Hans-Jörg
Hallo Daniel,
jetzt läuft alles wie es sollte :-)
Vielen Dank für die Hilfe!
MfG
HJ
AW: VBA-Dropdown Probleme
23.08.2016 18:05:57
Daniel
Hi
Damit diese automatischen Eventmakros funktionieren können, muss der Makroname und die Kopfzeile genau so aussehen, wie VBA das vorgesehen hat.
Wenn du den Makronamen abänderst, wird das Eventmakro nicht als solches erkannt und kann nicht automatisch ausgeführt werden.
Gruß Daniel
Anzeige
AW: VBA-Dropdown Probleme
23.08.2016 18:08:09
Daniel
Hi
Damit diese automatischen Eventmakros funktionieren können, muss der Makroname und die Kopfzeile genau so aussehen, wie VBA das vorgesehen hat.
Wenn du den Makronamen abänderst, wird das Eventmakro nicht als solches erkannt und kann nicht automatisch ausgeführt werden.
Gruß Daniel

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige