Sub Schaltfläche1_Klicken()
Dim towns(1 To 5) As String
Dim people(1 To 5) As String
Dim filter_string As String
filter_string = InputBox("Geben Sie ein Stadtfilter an", "Filter eingabe", "Berlin")
Dim filter_people_string As String
filter_people_string = InputBox("Geben Sie ein Personenfilter an", "Filter eingabe", "Peter")
Dim read_cell As String
Dim read_people_cell As String
For i = 1 To UBound(towns)
read_cell = Cells(i, 1)
read_people_cell = Cells(i, 2)
towns(i) = read_cell & "|" & read_people_cell
Debug.Print towns(i)
Next
found_town = Filter(towns, filter_string, True)
found_people = Filter(found_town, filter_people_string, True)
Dim wohnen_string As String
wohnen_string = "wohnt"
If (UBound(found_people) + 1) > 1 Then
wohnen_string = "wohnen"
End If
Cells(1, 3) = (UBound(found_people) + 1) & " " & filter_people_string & " " & wohnen_string & " in " & filter_string
MsgBox (UBound(found_people) + 1) & " " & filter_people_string & " " & wohnen_string & " in " & filter_string
End Sub
