Autofilter und Inputbox

Forumthread: Autofilter und Inputbox

22.11.2005 16:24:21

Carsten

Hallo,
ich habe ein kleines Problem. Ich habe eine Excel-Tabelle, in der ich Daten filtern möchte. Das soll über ein Makro mit Inputbox geschehen. Da die Schreibweise in der Tabelle aber teilweise unterschiedlich ist, soll nicht der gesamte Suchbegriff in der Inputbox erfasst werden, sondern nur ein Ausschnitt.
Beispiel: in der Tabellle gibt es Einträge wie Willi Schulz, W. Schulz oder W Schulz. Ich möchte in der Inputbox nur Schulz eingeben.
Wie bekomme ich das hin? Es sollte also möglichst benutzerdefiniert gesucht werden mit der Vorgabe "enthält".
Kann mir hier jemand helfen?
Danke
Carsten

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Autofilter und Inputbox

23.11.2005 01:35:23

Franz
AW: Autofilter und Inputbox

23.11.2005 07:54:47

Carsten

AW: Autofilter und Inputbox

23.11.2005 01:35:23

Franz

Hallo Carsten,
so könnte z.b. das entsprechende Makro aussehen:


Sub AutofilterEingabe()
Dim Kriterium1 As String, Bereich As Range
Set Bereich = ActiveSheet.UsedRange 'Bereich entsprechend anpassen
'Filter sucht nach "enthält Suchtext"
Kriterium1 = "=*" & InputBox("gesuchter Text? ", "Autofilter Suchbegriff", "Suchtext") & "*"
If Kriterium1 = "=**" Then Exit Sub
Bereich.AutoFilter Field:=1, Criteria1:=Kriterium1 'Falls mehrere Spalten ein Autofilter haben, dann ggf. Fieldnummer anpassen
End Sub

Gruß
Franz

AW: Autofilter und Inputbox

23.11.2005 07:54:47

Carsten

Hallo Franz,
es funktioniert. Vielen Dank!
Gruß
Carsten

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Öffne Excel und lade die Tabelle, in der Du den Autofilter anwenden möchtest.
Drücke Alt + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

Kopiere den folgenden VBA-Code in das Modul:

Sub AutofilterEingabe()
    Dim Kriterium1 As String, Bereich As Range
    Set Bereich = ActiveSheet.UsedRange 'Bereich entsprechend anpassen
    'Filter sucht nach "enthält Suchtext"
    Kriterium1 = "=*" & InputBox("gesuchter Text? ", "Autofilter Suchbegriff", "Suchtext") & "*"
    If Kriterium1 = "=**" Then Exit Sub
    Bereich.AutoFilter Field:=1, Criteria1:=Kriterium1 'Falls mehrere Spalten ein Autofilter haben, dann ggf. Fieldnummer anpassen
End Sub

Schließe den VBA-Editor und gehe zurück zu Excel.
Führe das Makro aus: Drücke Alt + F8, wähle AutofilterEingabe und klicke auf Ausführen.
Gib den Suchbegriff in der Inputbox ein. Zum Beispiel: "Schulz". Der Autofilter wird dann alle Einträge filtern, die "Schulz" enthalten.

Häufige Fehler und Lösungen

Fehler: Makro läuft nicht
- Stelle sicher, dass Makros in Excel aktiviert sind. Gehe zu Datei -> Optionen -> Trust Center -> Einstellungen für das Trust Center -> Makroeinstellungen und aktiviere die Option für Makros.
Fehler: Inputbox bleibt leer
- Wenn Du die Inputbox ohne Eingabe schließt, wird der Filter nicht angewendet. Achte darauf, einen Suchbegriff einzugeben.
Fehler: Filter funktioniert nicht richtig
- Überprüfe die Spaltennummer im Field Parameter, falls Du die Filterung auf eine andere Spalte anwenden möchtest.

Alternative Methoden

Falls Du keine VBA-Makros verwenden möchtest, kannst Du auch die Standard-Autofilter-Funktion von Excel nutzen:

Markiere die Daten in Deiner Tabelle.
Gehe zu Daten -> Filter -> Autofilter.
Klicke auf den Dropdown-Pfeil in der Kopfzeile und wähle Benutzerdefiniertes Filtern.
Wähle enthält und gib den gewünschten Begriff ein.

Praktische Beispiele

Angenommen, Du hast eine Tabelle mit Namen und möchtest nach "Schulz" suchen:

Name
Willi Schulz
W. Schulz
W. Schulz
Max Mustermann

Wenn Du "Schulz" in die Inputbox eingibst, zeigt Excel nur die Zeilen an, die diesen Begriff enthalten.

Tipps für Profis

Erweitere das Makro: Du kannst das Makro anpassen, um weitere Filterkriterien hinzuzufügen, z.B. nach mehreren Spalten gleichzeitig.
Nutze die Option Explicit Anweisung: Dies hilft Dir, Variablen zu deklarieren und Fehler beim Programmieren zu vermeiden.
Teste das Makro regelmäßig: Führe das Makro nach jeder Änderung aus, um sicherzustellen, dass alles wie gewünscht funktioniert.

FAQ: Häufige Fragen

1. Kann ich das Makro für andere Excel-Versionen verwenden? Ja, das Makro sollte in den meisten modernen Excel-Versionen (Excel 2010 und neuer) funktionieren.

2. Was mache ich, wenn ich mehrere Begriffe gleichzeitig filtern möchte? Du kannst das Makro anpassen, um mehrere Kriterien zu akzeptieren, indem Du mehrere InputBox-Anfragen in das VBA-Skript einfügst.

Beliebteste Forumthreads (12 Monate)