Dropdown ändern nach Sprach

[mauritius5]

Liebe Leute

Eine Frage zu einem dynamischen Dropdown. Ich habe drei Sprachen und möchte, dass das Dropdown sich jeweils der Sprache anpasst. Geht dies, ohne dass ich die Auswahlmöglichkeiten in einer Tabelle zusammenfasse?

In der Datenüberprüfung würde ich also gerne einfach die Funktion einpflegen: =wenn(B3="Deutsch";(links;rechts);wenn(B3="English";(left;right);gauche;droite

Dies kriege ich nicht hin.
Kann mir wer helfen?

Herzlichen Dank und Gruss
mauritius5

[WillWissen]

Moin,

vllt. solltet du eine Beispieldatei, in der man anhand eines händisch eingetragenem Wunschergebnis dein Vorhaben erkennt, hochladen.

[schauan]

Hallöchen,

nein für die Datenprüfung
ja mit einem Makro

[mauritius5]

Wie würde das Makro dann ausschauen?

[schauan]

Hallöchen,

im Prinzip so

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
'Wenn die Zieladresse A1 ist, dann
If Target.Address = "A$1" Then
  'Aktion entsprechend B3-Eintrag
  Select Case Range("B3").Value
    'Bei deutsch
    Case "Deutsch"
      'Wenn A1 <> rechts und links ist, dann
      If Range("A1").Value <> "rechts" And Range("A1").Value <> "links" Then
        'A1 leeren
        Range("A1").Value = ""
      'Ende Wenn A1 <> rechts und links ist, dann
      End If
    'Bei ...
   'Case ...
  'Ende Aktion entsprechend B3-Eintrag
  End Select
'Ende Wenn die Zieladresse A1 ist, dann
End If
End Sub

[snb]

Nur so:

Code:

Sub M_snb()
  msgbox replace("Lade mal eine Beispieldatei hoch~Please add a representative sample workbook~Envoyez une preuve de votre Fueilles~Waar blijft dat voorbeeldbestand?","~",vblf)
End Sub

[mauritius5]

Eine Beispieldatei angehängt.

C3:E5 hätte ich gerne gelöscht bzw. dann eben im Makro. In B3 soll die Sprache ausgewählt werden können und je nach Sprache ändern sich dann die Inhalte in B4:B5.
Im selben Worksheet habe ich zudem bereits den Code unten eingefügt. Den Code für die Dropdown müsste also mit eingepflegt werden können.

Ich kriegs leider nicht hin.

Vielen herzlichen Dank für eure Hilfe.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3:B5")) Is Nothing Then
    With Worksheets("Unterrichtsbesuch")
        .Rows(67).Hidden = Range("B3") = "Präsenzkurs"
        .Range("A20, A51, A68").EntireRow.Hidden = Range("B3") = "Onlinekurs"
        .Range("A19, A33, A105").EntireRow.Hidden = Range("B4") = "Kurs mit Theorieanteil"
        .Rows(50).Hidden = (Range("B4") = "Kurs mit Theorieanteil") Or (Range("B3") = "Präsenzkurs")
        .Rows(34).Hidden = (Range("B5") = "Ja") Or (Range("B4") = "Kurs ohne Theorieanteil")
        .Range("A69, A104").EntireRow.Hidden = (Range("B5") = "Nein") Or (Range("B4") = "Kurs mit Theorieanteil")
    End With
End If

[snb]

Schau mal:

[mauritius5]

Vielen Dank.

Hier wird allerdings auf C1:E3 verwiesen, was ich eben nicht haben wollte. C1:E3 sind nur die Daten, damit ihr Cracks wisst, was der Inhalt der Dropdowns sein sollte. Die Inhalte hätte ich gerne direkt im Makro.

In B2 sollten zudem die Inhalte C2:E2 sein und in B3 die Inhalte von C3:E3.

[snb]

Wieso Makro ?

Vielleicht sollte du erstmals überlegen wie man eine Frage richtig formulieren kann.