Begriff in einer Zelle als Vorraussetzung für bestimmte Dropdown-Inhalte

[Schlechtwettersusi]

Hallo,

musste mich vorher noch nie mit Excel beschäftigen und bin dementsprechend blutiger Anfänger. :)

Wie man eine Dropdown-Liste erstellt, habe ich bereits herrausgefunden und wie man mehrere Einträge aus dieser Liste zulässt auch. 
Für letzteres habe ich folgenden Code aufgetrieben:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
'** Mehrfachauswahl über DropDown-Liste (Gültigkeitsprüfung)
'** Einfügen im Code-Container des betreffenden Arbeitsblattes

'** Dimensionierung der Variablen
Dim rngDV As Range
Dim wert_old As String
Dim wertnew As String

'** Errorhandling
On Error GoTo Errorhandling

'** Mehrfachauswahl im definierten Bereich (Bsp. B4:B14) durchführen
If Not Application.Intersect(Target, Range("B4:B14")) Is Nothing Then

 '**Range definieren
 Set rngDV = Target.SpecialCells(xlCellTypeAllValidation)
 If rngDV Is Nothing Then GoTo Errorhandling
 
 '** Prüfen, ob eine gültige Zelle ausgewählt wurde und Werte eintragen
 If Not Application.Intersect(Target, rngDV) Is Nothing Then
   Application.EnableEvents = False
   wertnew = Target.Value
   Application.Undo
   wertold = Target.Value
   Target.Value = wertnew
   If wertold <> "" Then
     If wertnew <> "" Then
       Target.Value = wertold & ", " & wertnew
     End If
   End If
 End If
 Application.EnableEvents = True
End If

Errorhandling:
Application.EnableEvents = True
End Sub

Jetzt möchte ich aber, dass, wenn in der einen Zelle ein bestimmter Begriff steht, in der anderen Zelle nur bestimmte Werte aus dem Dropdown-Menü ausgewählt werden können.

Fiktives Beispiel:

                Reihe  A  |  Reihe B
Spalte 1   Europa    |  Dropdownmenü mit der Auswahl: Hund, Katze, Maus
Spalte 2   Afrika      |  Dropdownmenü mit der Auswahl: Elefant, Tiger, Nashorn
Spalte 3   Asien      |  Dropdownmenü mit der Auswahl: Drache, Panda, Winkekatze

Die Auswahl Europa, Afrika, Asien erfolgt ebenfalls per Dropdown.

Ich hoffe, ich konnte mein Anliegen verständlich machen. 


Liebe Grüße

Susi

[Dieter63]

Hallo Susi,

bspl. ohne VBA  sondern unter  Daten - Datenüberprüfung  und Namen

[Schlechtwettersusi]

Also ich müsste das ja jetzt für jede neue Zelle so einstellen, oder?

=INDIREKT($F$3)
=INDIREKT($F$4)
=INDIREKT($F$5)
usw.

Jetzt habe ich aber beispielsweise 100 Zellen... :) 
Oder habe ich etwas übersehen?

[Dieter63]

Hallo,

" musste mich vorher noch nie mit Excel beschäftigen "

Ja, du musst dich mit Datenüberprüfung und Namen beschäftigen

in dem Bspl. kannst du in F3 die Kontinente auswählen -->  in G3 dann die entsprechenden Tiere

in G3 ist die Datenüberprüfung  -> Liste -> Name = Kontinent

Die Datenprüfung in G3  bezieht sich auf den Wert den du in F3 auswählst z.b. Asien -> ist zugleich auch ein Name -> hier ist die Funktion Indirekt(Text) anzuwenden

Unter dem Reiter -> Formeln -> Definierte Namen -> findest du den NamensManager

Am besten du stellst mal  deine Excel hier ein.

[Schlechtwettersusi]

  excelhilfe.xlsm (Größe: 24,16 KB / Downloads: 5)

Ich habe eine Datei erstellt, die dem Original sehr nahe kommt (das Original möchte ich nicht hochladen).
In der Datei findet sich ein Textfeld, in der ich mein Problem nochmal dargestellt habe.
Ich hoffe es wird so nochmal klarer bzw wir können meinen Denkknoten lösen. :)

Liebe Grüße

Susi

[Dieter63]

Hallo

zurück

[schauan]

Hallöchen,

ist zwar nicht auf den Punkt, aber in unserem Beispielbereich ist auch was zum Thema:

http://www.clever-excel-forum.de/Thread-...-Dropdowns