Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
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
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1736to1740
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
1736to1740
1736to1740
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dropdownmenü

Dropdownmenü
25.01.2020 11:14:45
Halil
https://www.herber.de/bbs/user/134694.xlsm
Liebes Forum ich hätte eine Frage zum Dropdownmenü
Wie Ihr sehen könnt habe ich eine liste bei
'Beratungsprotokoll' B14:B17 eingefügt
Diese Liste ist mir aber lang und würde Sie gerne spezifizieren.
Als bsp. möchte ich gerne beim 1. Klick nur die Hersteller sehen und beim anwählen der Hersteller dann die Modelle.
Ich konnte es mit einem dynamische Dropdownmenü machen ( 2 zellen) aber es passt nicht vom Plat.
Kennt einer eine möglichkeit?
Viele Grüße und super start ins wochenende

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

Betreff
Datum
Anwender
Anzeige
AW: Dropdownmenü
26.01.2020 08:59:04
volti
Hallo Halil,
die gewünschte Funktionalität der Bereitstellung von nacheinander aktivierten zwei Auswahllisten in einer DropDown-Box kann m.E. nur per VBA realisiert werden.
In der anliegenden Datei habe ich Dir mal eine Möglichkeit reinprogrammiert. Hierbei wird keine Referenz zu den Daten gesetzt, sondern die Daten direkt in die DropDownbox geschrieben.
Wichtig zu wissen hierbei ist, dass größere Datenmengen zwar verarbeitet werden und die Datei auch korrekt abgespeichert wird, aber bei Öffnen des Tools eine defekte Datei angemeckert wird. (M$-Bug)
Deshalb werden die DropDownboxen vor dem Abspeichern immer gelöscht und bei Anklick eines relevanten Feldes wieder neu kreiert.
Davon merkt man allerdings nichts und das läuft dann fehlerfrei.
Für das Funktionieren habe ich die Spalte "A" der Datenliste testeweise mit den Herstellern versehen. Eine Erweiterung durch Nebenblatt oder Hilfsspalte ist ansonsten nicht nötig.
Den Code findest Du im Modul DropDown und in den Modulen DieseArbeitsmappe, Tabelle1.
Schau mal, ob Du Dir das so gedacht hast...
https://www.herber.de/bbs/user/134708.xlsm
viele Grüße aus Hessen
Karl-Heinz
Anzeige
AW: Dropdownmenü
27.01.2020 14:22:30
Halil
SUPER DANKE FÜR DIE HILFE
Bin echt begeistert und gleichzeitig verwirrt mit der ganzen codierung.
Den rest den du gesehen hast, habe ich irgendwie geschafft auch bisschen mit hilfe.
Wäre interressiert an einer schulung durch dich
wäre schön wenn du mich anschreiben würdest
halil.cicek75@yahoo.de
AW: Dropdownmenü
27.01.2020 17:22:16
volti
Hi,
und wie stellst Du Dir eine Schulung vor?
VG KH
AW: Dropdownmenü
30.01.2020 11:07:00
Halil
per videochatt haha
whatsappgruppe pp
AW: Dropdownmenü
27.01.2020 16:24:18
Halil 

Private Sub Worksheet_Activate()
SelektionValueChange ActiveCell
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
'Hinzugefügt: KHV
SelektionValueChange Target
If bStatus = True Or Target.Value = "" Then Exit Sub  ( Hier Gelb / fehler debugging)
If Not Intersect(Target, Range("B14, B15, B16, B23")) Is Nothing Then
Application.EnableEvents = False
Select Case Target.Address
Case Range("B14").Address
Range("B23") = IIf(MsgBox("Wollen sie das Gerät versichern?", vbYesNo, "Frage")  _
= vbYes, Target, "Kunde wünscht keinen Schutz")
Case Range("B15").Address
Range("B24") = IIf(MsgBox("Wollen sie das Gerät versichern?", vbYesNo, "Frage")  _
= vbYes, Target, "Kunde wünscht keinen Schutz")
Case Range("B16").Address
Range("B25") = IIf(MsgBox("Wollen sie das Gerät versichern?", vbYesNo, "Frage")  _
= vbYes, Target, "Kunde wünscht keinen Schutz")
End Select
Application.EnableEvents = True
End If
End Sub
Private Sub Worksheet_Deactivate()
Call DeleteAllDropDowns
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
SelektionValueChange Target
End Sub

Anzeige
AW: Dropdownmenü
27.01.2020 16:32:33
Halil
Hallo nochmal Karl Heinz
Als ehemaliger Hesse (gebürtiger bad Homburger) bedanke ich mich für den Support.
Echt klasse von dir.
Kann man bei der msgbox auch eintragen
wenn
iPhone XR Q4 Aktion
iPhone 8 Q4 Aktion
steht, dass er nichts in B23:B25 eintragen soll?
Verweis auf: 
Private Sub Worksheet_Change(ByVal Target As Range)
'Hinzugefügt: KHV
SelektionValueChange Target
If bStatus = True Or Target.Value = "" Then Exit Sub
If Not Intersect(Target, Range("B14, B15, B16, B23")) Is Nothing Then
Application.EnableEvents = False
Select Case Target.Address
Case Range("B14").Address
Range("B23") = IIf(MsgBox("Wollen sie das Gerät versichern?", vbYesNo, "Frage")  _
= vbYes, Target, "Kunde wünscht keinen Schutz")
Case Range("B15").Address
Range("B24") = IIf(MsgBox("Wollen sie das Gerät versichern?", vbYesNo, "Frage")  _
= vbYes, Target, "Kunde wünscht keinen Schutz")
Case Range("B16").Address
Range("B25") = IIf(MsgBox("Wollen sie das Gerät versichern?", vbYesNo, "Frage")  _
= vbYes, Target, "Kunde wünscht keinen Schutz")
End Select
Application.EnableEvents = True
End If
End Sub

Anzeige
AW: Dropdownmenü
27.01.2020 17:20:22
volti
Hallo Halil,
habe Dir das ein wenig aufgeräumt:
Option Explicit
Option COMPARE TEXT
Private Sub Worksheet_Activate()
  SelektionValueChange ActiveCell
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
  SelektionValueChange Target
  With Target
   On Error GoTo Fehler
   If bStatus = True Or .Value = "" Then Exit Sub
   Select Case .Address
   Case "$B$14", "$B$15", "$B$16"
    If .Value Like "iPhone XR Q4 Aktion*" Or .Value Like "iPhone 8 Q4 Aktion*" Then Exit Sub
    .Offset(9, 0).Value = IIf(MsgBox("Wollen Sie das Gerät versichern?", vbYesNo, "Frage") _
       = vbYes, .Value, "Kunde wünscht keinen Schutz")
   End Select
  End With
Fehler:
End Sub
Private Sub Worksheet_Deactivate()
 Call DeleteAllDropDowns
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 SelektionValueChange Target
End Sub

viele Grüße
Karl-Heinz

Anzeige

304 Forumthreads zu ähnlichen Themen

Dropdown Menue zum Sheets wechseln
Peter

Hallo,
ich habe ein kleines Vorhaben: Ein DropDown Menue innerhalb der Sheets zur Sheetnavigation, dh.
A) Ich brauche in den Feldern A1, B1 auf jedem Tabellensheet ein Dropdown Menü.
B) Dieses Menü soll - wenn man es öffnet - alle vorhandenen Tabellensheets anzeigen.
C) Wenn man...
28.10.2008 14:57:47
Thread-ID: 1019959
4 Beiträge
Anzeige
Bilder über Dropdownmenü laden
Hardy

Hallo Zusammen,
ich würde gerne über ein Dropdownmenü unterschiedliche Bilder in einem Excelarbeitsblatt anzeigen lassen. Es gibt 4 unterschiedliche Bilder die angezeigt werden sollen.
Nun meine Fragen:
Wie kann ich über ein Dropdownmenü ein Makro starten.
Und wenn das Makro dan...
21.07.2009 15:15:34
Thread-ID: 1090284
2 Beiträge
Drop Down Menü formatieren
Guido

Hallo,
hab eine Frage zur Formatierung eines Drop Down Menü:
habe ein Drop-Down-Menü erstellt (mit „Daten - Gültigkeit“ usw.) und ein davon abhängiges 2. Menu (über indirekten Bezug auf den Namen). Funktioniert soweit problemlos.
Nun hätte ich gerne noch, dass wenn der Eintrag im 1...
28.07.2009 20:01:27
Thread-ID: 1092006
5 Beiträge
Anzeige
Zelle unter DropDown-Menü / ComboBox
Markus

Hallo zusammen,
ich möchte das eine Gültigkeitsliste über eine ComboBox angezeigt und per DropDown ausgewählt werden kann (wegen Anzeige einer größeren Auswahlliste). Soweit so gut. Jetzt ist es aber so, dass die ComboBox logischerweise über einer Zelle liegt die per Pfeiltaste angesteuert...
03.09.2009 20:04:55
Thread-ID: 1100305
4 Beiträge
Dynamisches Diagramm mit Dropdown-Menü
lorenz1980

Hey,
nachdem Beverly mein erstes großes Problem grandios gelöst hat, ein weiteres :-/
Situation: Ich habe eine Tabelle mit vielen Spalten, wie z.b.:
Höhe - Länge - Breite - Masse - Tempo - Wert
Nun hätte ich gerne ein neues Datenblatt, in dem es zb. zwei Dropdown-Menüs gibt: das...
24.09.2009 23:38:34
Thread-ID: 1105388
6 Beiträge
Zellenformat per Dropdownmenü
Jan

Hello Excelianer,
ich möchte in einer Spalte Geldbeträge in verschiedenen Währungen auflisten.
Um die Bedienfreundlichkeit zu gewährleisten, würde ich gern das Währungsszeichen als Drop-Down Menü zur Verfügung stellen.
Das ganze sähe dann idealerweise so aus:
Der Nutzer trägt ei...
03.12.2009 17:42:25
Thread-ID: 1121636
2 Beiträge
Dropdown aus Gültigkeitsliste mit Pfeil verlassen
Judith

Hallo,
ich muss eine ellenlange Liste mit Datensätzen erstellen in die viele Gültigkeitslisten eingebaut sind.
Dazu habe ich einen Code gefunden bei dem die Gültikeitsliste einer Zelle beim Aktivieren sofort aufklappt.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) On...
10.03.2010 11:55:02
Thread-ID: 1144720
6 Beiträge
variables Drop-down-Menü
Dirk

Hallo Forum,
gibt es eine Möglichkeit eine Dropd-down-Liste (über die Gültigkeitsfunktion angelegt) variabel zu gestalten. Sprich: Wenn in Spalte A bspw. eine "1" steht, dann nutze die Liste "Inhalte Block 1" und wenn eine "2" dort steht, dann nutze die Liste "Inhalte Block 2"
Generell...
08.06.2010 11:08:31
Thread-ID: 1160787
6 Beiträge

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