Clever-Excel-Forum

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

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

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

Aber hier ist die Datei die ich eigentlich meine Huh

: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.

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

: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

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

Kaywarri124

Igelbauer

Kaywarri124

Kaywarri124

Kaywarri124

Kaywarri124