Ich habe einen Code der mir Werte nach Eingabe in einer Inputbox in Spalte "E" filtert. Funktioniert auch super.
Könnte man den Filter erweitern das Spalten "E+F" durchsucht werden?
Danke
SG, Heinz
Sub Filter_Heim_Mannschaften()
Application.ScreenUpdating = False
On Error GoTo Fehler:
'Variable deklarieren
Dim Filterkriterum As String, Wiederholungen As Integer
'Sheets("Alle_Daten").ShowAllData ' Autofilter Aufheben
'Eingabe aus der Inputbox in die Variable "Filterkriterum" speichern
Filterkriterum = InputBox("Bitte geben Sie die Heim_Mannschaft ein.", "Eingabe")
Range("1:1").AutoFilter Field:=1
'Wenn kein Begriff in die Inputbox eingegben wurde, dann das Makro beenden
If Filterkriterum = "" Then 'Exit Sub
Fehler:
MsgBox "Kein Verein mit diesen Namen vorhanden"
If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False ' Filter zurücksetzen
Exit Sub
End If
'If Filterkriterum = "" Then Exit Sub
'For/ Next Schleife zum Aktivieren des Autofilters und zum Filtern des
'Begriffes aus variable "Filterkriterum"
For Wiederholungen = 1 To Worksheets.Count
'In dem durch die Schleife angesprochenen Blatt den Autofilter einschalten
'und als Filterkriterium den gespeicherten Wert aus Variable "Filterkriterum"
'einsetzen
Worksheets(Wiederholungen).Range("A1").AutoFilter _
Field:=5, Criteria1:=Filterkriterum
Range("1:1").AutoFilter Field:=1
'Nächsten Schleifendurchlauf starten
Next Wiederholungen
UserForm_Heimmannschaft.Show
If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False ' Filter zurücksetzen
Sheets("Alle_Daten").Range("E1").Select
Application.ScreenUpdating = True
End Sub