Zelledropdown mit autoeingabe!!! Wie?
13.10.2014 16:42:21
Dennis
Seit fast eine Woche bin ich auf die Suche, keine Ergebnis...!?!!?
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
Sub aa()
Application.EnableEvents = True
End Sub
vielen dank
gruß dennis
