Vorauswahl bei Gültigkeitsdropdown für Bereich
14.10.2014 15:23:48
Dennis
gestern habe ich schon meine frage hier gestellt aber leider keine richtige antwort erhalten, deshalb nochmal hier meine frage.
Nehmen wir an in Zelle B1 bis b129 habe ich; Frankfurt, Wiesbaden, Köln, Mainz(in Realität sind 250 Einträge!) und in Zelle d28 bis d34 habe ich ein Zelledropdown, wenn ich in zbs. dann in d28 ein "M" eingebe dann muss Mainz automatisch ergänzt werden, wie schaffe ich dass? (Mit Daten-->Gültigkeit--->Liste klappt nicht!!)
habe das mal ausprobiert aber irgendwie funktioniert das nicht
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column 3 Or Target.Row 34 Then Exit Sub
Application.EnableEvents = False
Suchbegriff = "#" & Range(Target.Address)
Eingabe = Range(Target.Address)
Do
With ActiveWorkbook.Sheets("Prüfmerkmal").Columns("E:E")
Set d = .Find(Suchbegriff, After:=Range("$E$1"), LookAt:=xlPart)
If Not d Is Nothing Then
Exit Do
Else
Suchbegriff = Left(Suchbegriff, Len(Suchbegriff) - 1)
End If
End With
Loop
Sheets("Lösung").Range(Target.Address) = Sheets("Prüfmerkmal").Cells(c.Row, 1)
If Eingabe Sheets("Prüfmerkmal").Cells(c.Row, 1) Then SendKeys "%{DOWN}"
Endhandler:
Sheets("Lösung").Range(Target.Address).Select
Application.EnableEvents = True
End Sub
Application.EnableEvents = True
End Sub
vielen dank
gruß dennis