DropDown Auswahl Selected item abfragen

  • Excel

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von DaWo.

    DropDown Auswahl Selected item abfragen

    Guten Abend liebe Community,

    ich schreibe gerade ein schönes Macro um in einer Excel Tabelle bestimmte Zellinhalte suchen zu lassen.
    Soweit funktioniert es auch mit der ListBox aus der Datenüberpüfung. Allerdings möchte ich nun eine Dropdownbox verwenden, da ich diese einfach schöner finde.

    Ich habe folgende Funktion für die Abfrage:

    VB.NET-Quellcode

    1. Sub Searching()
    2. Dim DHL As String
    3. Dim DSV As String
    4. Dim Schenker As String
    5. Dim KN As String
    6. Dim SxString As String
    7. SxString = Sheets("NVO Guide ").Range("B15")
    8. DHL = "DHL Global Forwarding GmbH (Standard)"
    9. DSV = "DSV Air & Sea GmbH"
    10. Schenker = "Schenker AG Deutschland"
    11. KN = "Kuehne & Nagel"
    12. Application.ScreenUpdating = False
    13. Select Case Worksheets(1).Range("B14").Value
    14. Case Is = DHL
    15. Worksheets(3).Select
    16. Cells.Find(What:=SxString, After:=ActiveCell, LookIn:=xlFormulas2, _
    17. LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    18. MatchCase:=False, SearchFormat:=False).Activate
    19. Case Is = DSV
    20. Worksheets(7).Select
    21. Cells.Find(What:=SxString, After:=ActiveCell, LookIn:=xlFormulas2, _
    22. LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    23. MatchCase:=False, SearchFormat:=False).Activate
    24. Case Is = Schenker
    25. Worksheets(9).Select
    26. Cells.Find(What:=SxString, After:=ActiveCell, LookIn:=xlFormulas2, _
    27. LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    28. MatchCase:=False, SearchFormat:=False).Activate
    29. Case Is = KN
    30. Worksheets(14).Select
    31. Cells.Find(What:=SxString, After:=ActiveCell, LookIn:=xlFormulas2, _
    32. LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    33. MatchCase:=False, SearchFormat:=False).Activate
    34. End Select
    35. Application.ScreenUpdating = True
    36. End Sub


    ich habe dann im Anschluss ein wenig herumprobiert und es leider nicht hinbekommen den ausgewählten Eintrag aus der DropDownlist abzufragen.
    Ich wäre sehr Dankbar wenn mir jemand helfen kann.
    Hier gibt es nichts zusehen, bitte gehen sie weiter!