AW: namensbestandteile in VBA suchen lassen
Volker
Hallo Susi,
das sind ja gleich 2 Fragen auf einmal ;-)
mit liste = liste & "," & Cells(i, 1) & " " & Cells(i, 2) werden die Inhalte von Spalte A und B hintereinander geschrieben.
Ein Dropdownmenü öffnet man mit Cursortaste UNTEN.
Man kann in VBA auch Tastatureingaben simulieren.
In dem Fall lautet der Code:
Application.SendKeys ("%{UNTEN}")
Funktioniert aber meines Wissens nicht, wenn man den Code im VBA-Editor ausführt. Also nicht wundern, wenn es z.B. beim Durchlauf des Codes im Einzelschritmodus (F8) nicht geht.
Hier noch mal die komplette sub, wobei der Inhalt von C1 vorher gelöscht wird
Sub finden()
Dim sb, liste As String
Dim i As Integer
i = 1
sb = Cells(1, 2)
Cells(1, 3) = ""
While Cells(i, 1) <> ""
If InStr(Cells(i, 1), sb) <> 0 Then
liste = liste & "," & Cells(i, 1) & " " & Cells(i, 2)
End If
i = i + 1
Wend
liste = Mid(liste, 2)
Cells(1, 3).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=liste
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Application.SendKeys ("%{UNTEN}")
End Sub
Gruß
Volker