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
Moin,
vllt. solltet du eine Beispieldatei, in der man anhand eines händisch eingetragenem Wunschergebnis dein Vorhaben erkennt, hochladen.
Hallöchen,
nein für die Datenprüfung
ja mit einem Makro
Wie würde das Makro dann ausschauen?
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
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
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
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.
Wieso Makro ?
Vielleicht sollte du erstmals überlegen wie man eine Frage richtig formulieren kann.