Option Explicit
Sub Test()
Dim rngData As Excel.Range
'Beispiel
Set rngData = Range("A1:B4")
rngData.Value = Evaluate("{""Wert1"","""";""Wert2"",""x"";""Wert3"","""";""Wert4"",""x""}")
Dim vntWerte As Variant
Dim vntWert As Variant
vntWerte = rngData.Worksheet.Evaluate("=" & rngData.Columns(2).Address & "=""x""")
vntWerte = WorksheetFunction.Filter(rngData.Columns(1), vntWerte)
For Each vntWert In vntWerte
MsgBox vntWert, , "Werte mit 'x'"
Next
End Sub
|