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
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
. \\\|/// Hoffe, geholfen zu haben. ( ô ô ) Grüße, André aus G in T ooO-(_)-Ooo (Excel 97-2019+365)
05.12.2022, 11:15 (Dieser Beitrag wurde zuletzt bearbeitet: 05.12.2022, 11:15 von 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
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
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.