Aus Listenfeld auf Zelle springen

Hallo Excel Gemeinde,
ich möchte über ein Dropdown (Gültigkeitsliste) folgendes erreichen:
Wenn ich einen Wert (Nenne sie Kategorie) aus dem Listenfeld auswähle soll Excel in der Spalte A ab Zelle 36 diesen Wert suchen und auf diese Zelle wo der selbe Wert steht, springen. (Die Gültigkeitsliste bezieht sich auf eine andere Tabelle (Daten).
In der Spalte A sind die Kategorien jedoch hat es auch Leere Zellen drin bis zur nächsten Kategorie. Das Listenfeld ist in D10 wo der User zuerst die Kategorie auswählen sollte.
Noch ne Frage: Wo befindet sich das Dropdown im VBA finde es nirgends. Frage weil ich den Namen des Listenfelddropdown (Listbox) nicht finde.
Hoffe ich hab mich verständlich ausgedrückt.
Für einen Tipp wäre ich Euch dankbar.
Liebe Grüsse
Matthias

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Matthias,
versuche es mit diesem Code im Codemodul des Tabellenblattes mit der Gültigkeitsliste:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngZelle As Range
Dim strBereich As String
Dim strTabelle As String
If Target.Address(0, 0) = "D10" Then
strBereich = Mid(Target.Validation.Formula1, InStr(Target.Validation.Formula1, "!") + 1)
strTabelle = Mid(Left(Target.Validation.Formula1, InStr(Target.Validation.Formula1, "!") - _
1), 2)
Set rngZelle = Worksheets(strTabelle).Range(strBereich).Find(Target, lookat:=xlWhole)
If Not rngZelle Is Nothing Then Application.Goto reference:=rngZelle
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim rngZelle As Range If Target.Address(0, 0) = "D10" Then Set rngZelle = Range("A6:A335").Find(Target, lookat:=xlWhole) If Not rngZelle Is Nothing Then Application.Goto reference:=rngZelle End If Set rngZelle = Nothing End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim rngZelle As Range Dim rngLetzte As Range If Target.Address(0, 0) = "D10" Then Set rngLetzte = Columns(1).Find("Totalkosten in CHF inkl. MwSt.", lookat:=xlWhole) Set rngZelle = Range(Cells(6, 1), Cells(rngLetzte.Row, 1)).Find(Target, lookat:=xlWhole) If Not rngZelle Is Nothing Then Application.Goto reference:=rngZelle, scroll:=True End If Set rngZelle = Nothing Set rngLetzte = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

Aus Listenfeld auf Zelle springen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Aus Listenfeld auf Zelle springen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread