Zeilen und Spalten Filtern

[Kaywarri124]

Guten Morgen, ich habe im Internet einen Code Gefunden und nun Stunden damit verbracht den zu meinen Zwecken um zu stellen,

aber es ist mir leider nicht gelungen :22: :22: :22:

Ich Anhang habe ich meine Datei hochgeladen.

Was soll passieren, naja wenn ich im Gelben Feld [K2] mit dem Dropdown was auswähle soll mir in Spalte M nur noch der Begriff gezeigt werden. Sobald K2 wieder leer ist dann soll es zum Ursprung zurückkehren.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rC As Range, lC As Long
    If Target.Column <> 1 Or Target.Count > 1 Then Exit Sub ' Nicht spalte E, mehrere Zellen
    Application.ScreenUpdating = False
        Columns.EntireColumn.Hidden = False
        'Wahl von A1 aus
        For Each rC In Range(Cells(1, 1), Cells(Rows.Count, 2).End(xlUp).Offset(0, -1))
            If rC <> "" Then
                For lC = 1 To Cells(1, Columns.Count).End(xlToLeft).Column - 1
                    rC.Offset(0, lC).EntireColumn.Hidden = Not (rC.Offset(0, lC).EntireColumn.Hidden Or _
                                                             UCase(rC.Offset(0, lC).Text) = UCase(rC.Text))
                Next lC
            End If
        Next rC
    Application.ScreenUpdating = True
End Sub

Ich habe es schon geschafft das er bei Eingabe in [ A2 ] bis M sortiert in dem ich
 For lC = 12 To Cells(1, Columns.Count).End(xlToLeft).Column - 1

So umgeschrieben habe. Nur wie bekomm ich es jetzt noch hin, " [ A2 ] " zu [ K2 ] zu machen und das keine andere Zelle meine Filterung beeinträchtigt.


Vielen vielen dank  schonmal

[Igelbauer]

Hi
offen gestanden steh ich da aufm Schlauch, bzw. versteh nicht was du meinst.
K2 ist nicht gelb und hat auch keinen Dropdown ???
In Spalte M steht gerade mal "ja".
Der Code hat damit überhaupt nichts zu tun.
Zu gut deutsch. "HÄH!"

Gruss Igel

[Kaywarri124]

Ja das wohl wahr.. keine Ahnung was da passiert ist.

Aber hier ist die Datei die ich eigentlich meine :19:


Im Dropdownfeld ist das was in Spalte M - ~  steht. Ich möchte diese Spalten Filtern. Wähle ich Ausbildung 1 aus so soll in Spalte M2 nur noch Ausbildung 1 stehen.

Alles was vor K2 steht beinträchtig zur zeit diese Filterung mit.

[Kaywarri124]

  Also ich bekomms einfach nicht hin....


Ich bin nur so weit gekommen, dass ich die Zelle in dem ich den zu Filternden Begriff von A1 nach A2 bekomme und die Tabelle von B1 nach M2. Aber wenn ich jetzt noch A2 nach K2 bringen will, geht gar nichts mehr.

nen guten Start in die Woche wünsch ich allen

[Kaywarri124]

:22:  Scheint doch schwere zu sein als ich dachte, wenn schon so viele geguckt haben.

Das jetzt mein Code

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rC As Range, lC As Long
    If Target.Column <> 11 Or Target.Count > 1 Then Exit Sub 
         Columns.EntireColumn.Hidden = False
        'Wahl von A1 aus
        For Each rC In Range(Cells(2, 1), Cells(Rows.Count, 2).End(xlUp).Offset(0, -1))
            If rC <> "" Then
                For lC = 12 To Cells(1, Columns.Count).End(xlToLeft).Column - 1
                    rC.Offset(0, lC).EntireColumn.Hidden = Not (rC.Offset(0, lC).EntireColumn.Hidden Or _
                                                             UCase(rC.Offset(0, lC).Text) = UCase(rC.Text))
                Next lC
            End If
        Next rC
    Application.ScreenUpdating = True
End Sub

[Kaywarri124]

Auch wenn es Böse klingt danke für nichts :D:D

So konnte ich immer hin Eurka rufen als ich es dann endlich geschafft habe

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
     Dim rC As Range, lC As Long
     If Target.Column <> 11 Or Target.Count > 1 Then Exit Sub
         Columns.EntireColumn.Hidden = False
         'Wahl von K2 aus
         For Each rC In Range(Cells(2, 11), Cells(Rows.Count, 13).End(xlUp).Offset(0, -1))
             If rC <> "" Then
                 For lC = 2 To Cells(2, Columns.Count).End(xlToLeft).Column - 1
                     rC.Offset(0, lC).EntireColumn.Hidden = Not (rC.Offset(0, lC).EntireColumn.Hidden Or _
                                                              UCase(rC.Offset(0, lC).Text) = UCase(rC.Text))
                 Next lC
             End If
         Next rC
     Application.ScreenUpdating = True
 End Sub