Thema Datum  Von Nutzer Rating
Antwort
23.01.2020 16:00:10 Fh_münchen
NotSolved
23.01.2020 16:18:07 Gast38808
NotSolved
23.01.2020 16:24:25 Gast42083
NotSolved
23.01.2020 16:42:45 Gast73884
NotSolved
23.01.2020 17:25:33 tscharl
NotSolved
23.01.2020 17:52:32 X-Post
NotSolved
Rot Wortwiederfindung und Zuordnung
23.01.2020 18:02:16 tscharl
NotSolved
23.01.2020 22:14:40 X-Post, die nächste
NotSolved

Ansicht des Beitrags:
Von:
tscharl		 Datum:
23.01.2020 18:02:16		 Views:
520		 Rating:
     
Antwort:
  Ja
Thema:
Wortwiederfindung und Zuordnung

Hier ein erster Schritt als Annäherung:

  1. Dein Blatt heißt "Tabelle1".
  2. Deine Daten erhalten in "A1:D1" eine Überschrift.
  3. Die Orte müssen in jeder Zeile der Spalte A stehen.
  4. In "F1:I1" wiederholen sich die Überschriften aus "A1:D1". Das ist die erste Zeile des Kriterienbereichs.
  5. Die Spalten "K:N" sind der Zielbereich für das Filterergebnis.

Teste Folgendes erst einmal in einer neuen Mappe.

Option Explicit

Sub Filter()
    Dim strSuche As String
    
    ' Eingabe eines markanten Text(teils), nach dem gefiltert werden soll.
    strSuche = InputBox("Suche nach:", "Suchbegriff")
    
    ' Das Zeichen für "beliebiges Zeichen" zu Beginn und am Ende wird ergänzt.
    strSuche = "*" & strSuche & "*"
    
    ' Der Kriterienbereich "F1:I5" muss leer sein.
    Range("F2:I5").ClearContents
    
    ' Der Filterbegriff wird im Stil von "oder" (eigene Zeilen im Kriterienbereich) eingesetzt.
    Range("F2").Value = strSuche
    Range("G3").Value = strSuche
    Range("H4").Value = strSuche
    Range("I5").Value = strSuche
    
    ' Die gefundenen Daten werden in den Zielbereich (unter "K1:N1") geschrieben.
    Sheets("Tabelle1").Range("A1:D7").AdvancedFilter _
        Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("Tabelle1").Range("F1:I5"), _
        CopyToRange:=Sheets("Tabelle1").Range("K1:N1"), _
        Unique:=False
End Sub

Melde dich gerne!

Gruß tscharl

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
23.01.2020 16:00:10 Fh_münchen
NotSolved
23.01.2020 16:18:07 Gast38808
NotSolved
23.01.2020 16:24:25 Gast42083
NotSolved
23.01.2020 16:42:45 Gast73884
NotSolved
23.01.2020 17:25:33 tscharl
NotSolved
23.01.2020 17:52:32 X-Post
NotSolved
Rot Wortwiederfindung und Zuordnung
23.01.2020 18:02:16 tscharl
NotSolved
23.01.2020 22:14:40 X-Post, die nächste
NotSolved