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:
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.
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
- Sub Searching()
- Dim DHL As String
- Dim DSV As String
- Dim Schenker As String
- Dim KN As String
- Dim SxString As String
- SxString = Sheets("NVO Guide ").Range("B15")
- DHL = "DHL Global Forwarding GmbH (Standard)"
- DSV = "DSV Air & Sea GmbH"
- Schenker = "Schenker AG Deutschland"
- KN = "Kuehne & Nagel"
- Application.ScreenUpdating = False
- Select Case Worksheets(1).Range("B14").Value
- Case Is = DHL
- Worksheets(3).Select
- Cells.Find(What:=SxString, After:=ActiveCell, LookIn:=xlFormulas2, _
- LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
- MatchCase:=False, SearchFormat:=False).Activate
- Case Is = DSV
- Worksheets(7).Select
- Cells.Find(What:=SxString, After:=ActiveCell, LookIn:=xlFormulas2, _
- LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
- MatchCase:=False, SearchFormat:=False).Activate
- Case Is = Schenker
- Worksheets(9).Select
- Cells.Find(What:=SxString, After:=ActiveCell, LookIn:=xlFormulas2, _
- LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
- MatchCase:=False, SearchFormat:=False).Activate
- Case Is = KN
- Worksheets(14).Select
- Cells.Find(What:=SxString, After:=ActiveCell, LookIn:=xlFormulas2, _
- LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
- MatchCase:=False, SearchFormat:=False).Activate
- End Select
- Application.ScreenUpdating = True
- 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!