Wenn Dropdown Wert X auswählt, Dann Wert Y anzeigen

Forumthread: Wenn Dropdown Wert X auswählt, Dann Wert Y anzeigen

14.08.2024 11:34:10

Adic44

Hallo liebes Forum,

ich stehe vor folgendem Problem und komme auf keine Lösung.

In einer Excel Tabelle, tragen wir ein, wer im Büro , im HO, oder die Lange Schicht übernimmt.

Hierfür habe ich eine Dropdown Liste erstellt mit den Auswahlmöglichkeiten "Anwesend" "HO" und "Langer Dienst"

Ich möchte nun allerdings, dass wenn über das Dropdown Menü in der Zelle "Anwesend" oder "HO" ausgewählt wird, nicht der Text anwesend oder HO in die Zelle geschrieben wird, sondern ein hacken angezeigt wird (Schriftart Wingdings "ü")

bei "Langer Dienst" ein doppelter hacken (Schriftart Wingdings "üü")

Ich habe es schon mit einer WENN-Formel versucht. (=WENN("Anwesend";"ü";"")
Dies überschreibt dann aber das Dropdown Menü

Ich hoffe ihr kennt da eine Lösung :)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Wenn Dropdown Wert X auswählt, Dann Wert Y anzeigen

14.08.2024 11:47:00

Beverly

Hi,

formatiere die Gültigkeitszelle mit Schriftart Wingdings und kopiere folgenden Code ins Codemodul des Tabellenblattes:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Cells(1).Address(0, 0) = "D3" Then '== Adresse der Gültigkeitszelle anpassen!!

        Application.EnableEvents = False

        Select Case Target.Cells(1).Value

            Case "Anwesend", "HO"

                Target.Cells(1) = "ü"

            Case "Lager Dienst"

                Target.Cells(1) = "ü" & "ü"

        End Select

        Application.EnableEvents = True

    End If

End Sub

Bis später
Karin

Link zur Homepage: https://excel-inn.de/

AW: Wenn Dropdown Wert X auswählt, Dann Wert Y anzeigen

14.08.2024 12:19:03

Adic44

Hallo Karin,

Danke dir für die Antwort!

für die Einzelne Zelle D3, bzw in meinem Fall X8 hat das funktioniert.

Nun brauche ich das aber für die Zellen X8 bis BE383

Da gibt es bestimmt eine elegantere Lösung, als deinen Code tausendfach zu kopieren und die Zelle anzupassen oder?

Bis dann
Adrian

AW: Wenn Dropdown Wert X auswählt, Dann Wert Y anzeigen

14.08.2024 12:45:17

Beverly

Hi Adrian,

dann so:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target.Cells(1), Range("X8:BE383")) Is Nothing Then

        If Target.Count = 1 Then '== nur ausführen wenn ausschließlich 1 Zelle ausgewählt wurde

            Application.EnableEvents = False

            Select Case Target.Cells(1).Value

                Case "Anwesend", "HO"

                    Target.Cells(1) = "ü"

                Case "Lager Dienst"

                    Target.Cells(1) = "ü" & "ü"

            End Select

            Application.EnableEvents = True

        End If

    End If

End Sub

Beachte: der Code wird nicht ausgeführt wenn mehr als 1 Zelle ausgewählt wurden.

Bis später
Karin

Link zur Homepage: https://excel-inn.de/

Beliebteste Forumthreads (12 Monate)

Wenn Dropdown Wert X auswählt, Dann Wert Y anzeigen

Forumthread: Wenn Dropdown Wert X auswählt, Dann Wert Y anzeigen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Wenn Dropdown Wert X auswählt, Dann Wert Y anzeigen

Forumthread: Wenn Dropdown Wert X auswählt, Dann Wert Y anzeigen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread