Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema RefEdit
BildScreenshot zu RefEdit RefEdit-Seite mit Beispielarbeitsmappe aufrufen

Vorauswahl bei Gültigkeitsdropdown für Bereich

Betrifft: Vorauswahl bei Gültigkeitsdropdown für Bereich von: Dennis
Geschrieben am: 14.10.2014 15:23:48

guten tag zusammen,

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 < 28 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

  

Betrifft: AW: Vorauswahl bei Gültigkeitsdropdown für Bereich von: Dennis
Geschrieben am: 14.10.2014 15:25:44

ich hätte es gerne so wie in diesem bsp.

https://www.herber.de/bbs/user/15019.xls


 

Beiträge aus den Excel-Beispielen zum Thema "Vorauswahl bei Gültigkeitsdropdown für Bereich"