Office: (Office 2019) spezialfilter Wert kann in jeder Spalte sein

Helfe beim Thema spezialfilter Wert kann in jeder Spalte sein in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Einen schönen Guten Morgen Ich würde gern mit {einem Filter} dem Gesuchten Wert finden welcher aber in Jeder Spalte vorkommen könnte, das geht leider... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von BAUERno365, 8. Februar 2023.

  1. BAUERno365
    BAUERno365 Neuer User

    spezialfilter Wert kann in jeder Spalte sein


    Einen schönen Guten Morgen
    Ich würde gern mit {einem Filter} dem Gesuchten Wert finden welcher aber in Jeder Spalte vorkommen könnte, das geht leider nur bei einer Auswahl und macht Fehler bei einem 2 Kriterium
    Vor allen geht es darum Text wie auch Zahlen {Nummern} zu finden.
    Wie kann man das elegant und mit Mehren Kriterien hinbekommen bitte?
    Ich danke für das lesen und auch eventueller Hilfe euerseits.
    BILDER
    UND TESTMAPPE
     
    BAUERno365, 8. Februar 2023
    #1
  2. Doming
    Doming hat Ahnung
    Hallo,
    den Kriterienbereich verstehe ich nicht. Soll rot und q14 in jeder Zeile gefunden werden oder sollen die Zeilen übertragen werden, in der entweder das eine oder das andere steht? Warum stehen dort die Begriffe in jeder Zeile?
    Gruß
    Doming
     
  3. Doming
    Doming hat Ahnung
    Probiere mal das hier
     
  4. BAUERno365
    BAUERno365 Neuer User

    spezialfilter Wert kann in jeder Spalte sein

    hi ..Doming@ leider nicht was ich suche außer
    man macht einen Bereich in der Tabelle für das Kriterium, da dieses Ja wechselt ( allerdings bis zu 10 verschiedene pro Spalte möglich.

    Dein Code .... gut wäre hier einen Zellbereich als Kriterium Bereich zu setzen - leider reicht mein Verständnis noch nicht dafür
    <
    If .Cells(z, s).Text = "rot" Or .Cells(z, s).Text = "q14" Then


    Code:
    Private Sub Klickma()
     Dim z As Long, s As Long, Zielz As Long
    
        Zielz = 19
       
        With ThisWorkbook.Sheets(1)
            For z = 7 To 16
                 For s = 5 To 14
                     If .Cells(z, s).Text = "rot" Or .Cells(z, s).Text = "q14" Then
                         Zielz = Zielz + 1
                         .Range("E" & z & ":N" & z).Copy Destination:=.Range("AA" & Zielz)
                         Exit For
                     End If
                Next s
            Next z
        End With
    End Sub
     
    BAUERno365, 8. Februar 2023
    #4
  5. Doming
    Doming hat Ahnung
    So, Mr Bauer, ersetze mal meinen vorherigen Code durch diesen
    Code:
    Private Sub Klickma()
     Dim z As Long              'Zeile
     Dim s As Long              'Spalte
     Dim Zielz As Long          '1.Zeile Selektion
     Dim Anz As Long            'Anzahl der gefundenen Suchkriterien
     Dim n As Long              'Laufvariable
     Dim Zelle As Range         'Suchzelle
     Dim Krit() As String       'Katalog der gefundenen Suchkriterien
     Dim GibsSchon As Boolean   'doppeltes Suchkriterium
     Dim Ja As Boolean          'Zeile entspricht der Suche
        ReDim Krit(1)
        Zielz = 19
        With ThisWorkbook.Sheets(1)
       
    'Suchkriterien sammeln-----
            For Each Zelle In .Range("Suchkriterien")
                If Zelle.Text <> "" Then
                    n = 0
        '-----Prüfung ob Suchkriterium schon vorhanden
                    Do Until n >= Anz
                        If Krit(n) = Zelle.Text Then
                            GibsSchon = True
                            Exit Do
                        End If
                        n = n + 1
                    Loop
        '-----Wenn nicht vorhanden, dann dazuschreiben
                    If Not GibsSchon Then
                        Krit(Anz) = Zelle.Text
                        Anz = Anz + 1
                        ReDim Preserve Krit(Anz)
                    Else
                        GibsSchon = False
                    End If
                End If
            Next Zelle
    'Liste durchgehen---------
            For z = 7 To 16
                Ja = False
                For s = 5 To 14
                    n = 0
                    Do Until n = Anz
                        If .Cells(z, s).Text = Krit(n) Then
                            Ja = True
                            Exit Do
                        End If
                        n = n + 1
                    Loop
                    If Ja Then
                        Zielz = Zielz + 1
                        .Range("E" & z & ":N" & z).Copy Destination:=.Range("AA" & Zielz)
                        Exit For
                    End If
                Next s
            Next z
        End With
        Set Zelle = Nothing
    End Sub
    Damit werden alle Zellen im Bereich Suchkriterien durchsucht und dann verglichen.

    Gruß
    Doming
     
  6. BAUERno365
    BAUERno365 Neuer User
    Hallo Doming@ ich werde es heute mal Testen, danke auf jedenfalls für die Hilfe und melde mich wieder morgen.
     
    BAUERno365, 8. Februar 2023
    #6
  7. BAUERno365
    BAUERno365 Neuer User
    Hallo Doming@ spezialfilter Wert kann in jeder Spalte sein *:)*
    Ja super mit der Schleife - wäre mir selber nicht eingefallen danke das ist perfekt, werde es nun an meine Mappe anpassen.
     
    BAUERno365, 8. Februar 2023
    #7
Thema:

spezialfilter Wert kann in jeder Spalte sein

Die Seite wird geladen...
  1. spezialfilter Wert kann in jeder Spalte sein - Similar Threads - spezialfilter Wert Spalte

  2. Pivot Tabelle oder doch nur mit Spezialfilter?

    in Microsoft Excel Hilfe
    Pivot Tabelle oder doch nur mit Spezialfilter?: Hallo Zusammen, ich benötige Euer Schwarmwissen. Bei der unten aufgeführten Tabelle handelt es sich nur um einen kleinen Auszug. Die Bedingung ist ganz einfach: Zum Beispiel: Gesamtsumme der...
  3. Spezialfilter für zusammengehörige Datenblöcke erstellen

    in Microsoft Excel Hilfe
    Spezialfilter für zusammengehörige Datenblöcke erstellen: Hallo zusammen, ich benötige einmal Hilfe für folgendes Thema: Ich habe eine Tabelle mit verschiedenen Indizes, die aber mehrfach vorkommen können Ein Block hat immer die gleiche TN-Nr., den...
  4. Doppelte Werte in neuer Spalte nur einmal ausgeben (ohne Spezialfilter)

    in Microsoft Excel Hilfe
    Doppelte Werte in neuer Spalte nur einmal ausgeben (ohne Spezialfilter): Hallo liebe Gemeinde, ich habe folgendes Problem: In Spalte S können mehrere Rechnungsnummern eingegeben werden von verschiedenen Bestellungen. Oft wird die gleiche Rechnungsnummer eingegeben,...
  5. Spezialfilter/DB-Funktionen: Der überschriftslose Flex-Kriterienbereich mit Excel-Fkt

    in Microsoft Excel Tutorials
    Spezialfilter/DB-Funktionen: Der überschriftslose Flex-Kriterienbereich mit Excel-Fkt: Der Spezialfilter verwendet drei Bereiche: Daten (nötig) Kriterien (nötig) Ausgabe (optional; es kann statt dessen auch am Ort gefiltert werden) Der Kriterienbereich ist der wunde Punkt beim...
  6. Automatisches Aktualisieren vom Spezialfilter

    in Microsoft Excel Hilfe
    Automatisches Aktualisieren vom Spezialfilter: Hallo zusammen! Aktuell erstelle ich eine Excelliste, die einen Spezialfilter beinhaltet. Leider stehe ich nun vor einem Problem, bei dem ich nicht so recht weiter weiß - erschwert dadurch, dass...
  7. Spezialfilter

    in Microsoft Excel Hilfe
    Spezialfilter: Hallo, seit ein paar Tagen versuche ich leider erfolglos einem Problem auf die Schliche zu kommen bzw. zu lösen. Ich habe einen großen Datensatz (ca. 5000 Zeilen und 83 Spalten, nicht in allen...
  8. EXCEL> Autofilter oder Spezialfilter soll mehr Spalten mit Gleichen Wert Filtern

    in Microsoft Excel Hilfe
    EXCEL> Autofilter oder Spezialfilter soll mehr Spalten mit Gleichen Wert Filtern: guten tag Leute > an die Excel_Könner hier möchte ich , bitte eine frage stellen, leider versuchte ich schon alles - um mehr Spalten welche das gleiche Kriterium enthalten zu filtern, doch...
Schlagworte:
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden