Autofilter, geht das auch anders?

Hallo,
in der Anlage habe ich eine Liste hochgefahren, bei der nun fogendes gemacht werden soll:
Durch anklicken der Initialien (gelb, D4-D6) sollen nur die Zeilen angezeigt werden, deren Initialien in Spalte H erscheinen.
Bsp. : Klicke ich auf HP, sollen nur die Zeilen angezeigt werden, in denen in Spalte H die Initialien "HP" aufgeführt ist. Wenn ich dann wieder auf "alle" klicke, sollen alle Daten wieder auftauchen.
Das Durchklicken durch den Autofilter will ich damit vermeiden.
Weiterhin soll durch einfaches Anklicken auf "sortieren" (H4) die Tabelle nach Spalte I und dann nach Spalte H sortiert werden. (Daten sortieren). Dabei sollen jedoch Daten (Datümer), die in der Vergangenheit liegen, auf das heutige Datum aktualisiert werden.
Ist es dann auch möglich, auf Klick des roten Feldes die Datei zu speichern und zu schließen?
Es wäre der Wahnsinn, wenn mir irgendjemand erfolgreich helfen könnte.
Vielen, vielen, vielen Dank bereits im Voraus.
Alina
https://www.herber.de/bbs/user/50384.xls

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim lx As Long If Intersect(Target, Range("D4:F5,D6")) Is Nothing Then Exit Sub Application.EnableEvents = False Application.ScreenUpdating = False ActiveSheet.Rows.Hidden = False If Target.Cells.Count = 1 Then For lx = 8 To ActiveSheet.Range("H" & _ ActiveSheet.Range("H" & ActiveSheet.Rows.Count).End(xlUp).Row).Row ActiveSheet.Rows(lx).Hidden = InStr(ActiveSheet.Cells(lx, 8), Target.Value) = 0 Next lx End If Application.ScreenUpdating = True Application.EnableEvents = True End Sub

Hi Alina,
Lösche den alten Code und ersetze ihn gemäss oben genanntem Vorgehen mit diesem:


Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lx As Long, ly As Long
If Intersect(Target, Range("D4:F5,D6,H4,H6")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Application.ScreenUpdating = False
ActiveSheet.Rows.Hidden = False
lx = ActiveSheet.Range("J" & ActiveSheet.Rows.Count).End(xlUp).Row
Select Case Target.Address(0, 0)
Case "D4", "E4", "F4", "D5", "E5", "F5"
For ly = 8 To lx
ActiveSheet.Rows(ly).Hidden = InStr(ActiveSheet.Cells(ly, 8), Target.Value) = 0
Next ly
Case "H4:J4"
Call Sortieren(lx)
Case "H6:J6"
Call Sortieren(lx)
Application.EnableEvents = True
ActiveWorkbook.Close SaveChanges:=True
End Select
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
Sub Sortieren(lx As Long)
Dim ly As Long
ActiveSheet.Range("A8:J" & lx).Sort _
Key1:=Range("I8"), Order1:=xlAscending, Key2:=Range("H8"), _
Order2:=xlAscending, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
For ly = lx To 8 Step -1
If ActiveSheet.Cells(ly, 9).Value

GreetZ Renée

Beliebteste Forumthreads (12 Monate)

Autofilter, geht das auch anders?

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread