Office: (Office 2016) Filterung von Daten

Hi Tommy,

hier der Code mit entsprechenden Kommentaren:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lngZeile As Long ' Variable für den Schleifen-/Zeilenzähler
    ' Zelladresse der Eingabezelle (in relativer Schreibweise) ist B2
    If Target.Cells(1).Address(False, False) = "B2" Then
        ' alle Zeilen im aktiven Tabellenblatt einblenden
        ActiveSheet.Rows.Hidden = False
        ' Eingabe ist nicht Taste Entf.
        If Target.Cells(1) <> "" Then
            ' Schleife über alle Zeilen von 5 bis zur letzten belegten
            For lngZeile = 5 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
                ' Zeilen ausblenden wenn in laufender Zeile in Spalte B und C und E
                ' der Suchbegriff nicht enthalten ist
                Rows(lngZeile).Hidden = InStr(Cells(lngZeile, 2), Target) = 0 And _
                    InStr(Cells(lngZeile, 3), Target) = 0 And _
                    InStr(Cells(lngZeile, 5), Target) = 0
            Next lngZeile
        End If
    End If
End Sub

Hier der Link zu einer Seite wo du Tutorials und Erklärungen findest. Am meisten aber lernst du, wenn du viel im Forum stöberst und Beispiele selbst nachbaust.

Bis später,
Karin

 

Hab das letzte glaube ich, selbst hinbekommen.

In For lngZeile = 5 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row

habe ich die 5 durch eine 4 ersesetzt.

Oder eine Leerzeile einfügen müsste auch gehen.

 

Ich bin mit dem Code von deiner hochgeladenen Mappe ausgegangen: dort beginnen die Daten ab Zeile 5 (in 4 stehen die Überschriften). Wenn das bei dir anders ist musst du die 5 entsprechend durch deine 1. Daten-Zeile ersetzen.

Bis später,
Karin

 

Hallo Karin

bin ein bisschen am Basteln und Erproben.

Versuche gerade, deinen Code so zu ändern, dass die Schreibweise egal ist.

Also, wenn ich Werkzeugmacher suche, soll es sowohl werk als auch Werk finden.

Dass dabei Datensätze, die in der Anschrift z.B. Neuwerk haben, auch mit aufgelistet werden, weiß ich.

Geht ja nur ums Probieren.

Kannst du mir einen Tipp dazu geben?

Tommy

 

Hi Tommy,

es gibt die Funktion UCase(), welche alles in Großbuchstaben umwandelt bzw. LCase(), welche alles in Kleinbuchstaben umwandelt. Man kann eine davon verwenden, um die Inhalte miteinander zu vergleichen und Groß-/Kleinschreibung dabei unberücksichtigt lassen:

Code:

                Rows(lngZeile).Hidden = InStr([COLOR=#ff0000]UCase([/COLOR]Cells(lngZeile, 2)[COLOR=#ff0000])[/COLOR], [COLOR=#ff0000]UCase([/COLOR]Target)[COLOR=#ff0000])[/COLOR] = 0 And _
                    InStr([COLOR=#ff0000]UCase([/COLOR]Cells(lngZeile, 3)[COLOR=#ff0000])[/COLOR], [COLOR=#ff0000]UCase([/COLOR]Target)[COLOR=#ff0000])[/COLOR] = 0 And _
                    InStr([COLOR=#ff0000]UCase([/COLOR]Cells(lngZeile, 5)[COLOR=#ff0000])[/COLOR],[COLOR=#008000] [/COLOR][COLOR=#ff0000]UCase([/COLOR]Target)[COLOR=#ff0000])[/COLOR] = 0

Bis später,
Karin

 

Diese Funktionen habe ich gefunden und sie mir angesehen.

Wo würde ich sie einbauen?

Tommy

Ein Makro (sagt man so), welches die Datei ohne zu speicher schließt, habe ich schon erstellt und es mit einer Tastenkombination versehen.

 

Den Code habe ich dir doch gepostet - den musst du anstelle des anderen Codes in der Schleife setzen.

Bis später,
Karin

 

Moin Karin,

habe da was gemacht und komme nicht wieder aus dem "Haltemodus" (heißt der so?) raus.


Was ist falsch? Wie komme ich da wieder raus?

Tommy

 

Hi Tommy,

Esc-Taste drücken oder mit dem Cursor die gelb markierte Zeile auf End Sub ziehen.

Bis später,
Karin