VBA Filtern und sortieren

[little76]

Hallo zusammen,

leider habe ich keine VBA Kenntnisse.
Nach längeren suchen hier im Forum und selbsttesten bin ich ein wenig weitergekommen
In meiner angehängten Datei möchte ich im zweiten Tabellenblatt In Zelle B3; B5; B7 und B9 gemäß Eingabe sortieren
In B3 ist es mir durch einen Code den ich hier gefunden habe, gelungen ihn für meine Tabelle anzupassen.
Füge ich jedoch im VBA Editor den gleichen Code für B hinzu erhalte ich eine Fehlermeldung.
Zudem wird die Tabelle nicht gefiltert  wenn ich im Suchfeld einen Namen eingebe den es nicht gibt, sondern die koplette Tabelle weiterhin angezeigt

Im Button ungefilter würde ich den Filter gerne zurücksetzen
Könnt Ihr mir hier bitte behilflich sein?

Später möchte ich mir die Tabelle nach Namen/ Geburtsdatum und Status optional auf/ absteigend filtern.
Mit einem einfachen Makro kann ich aber nur auf oder absteigend sortieren

Hoffe einer von Euch kann mir helfen

Viele Grüße
Andi

[shift-del]

Moin Andi

Fängst du jetzt jeden Tag das selbe Thema neu an?
Damit machst du dir keine Freunde.

[Werner.M]

Hallo Andi,

für das Sortieren würde ich keine Schaltflächen verwenden, sondern das Doppelklick-Event des Tabellenblattes.

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.ScreenUpdating = False

If Target.Row = 15 And Target.Column < 10 Then
   Cancel = True
   ListObjects("Tabelle16").Sort.SortFields.Clear
   ListObjects("Tabelle16").Sort.SortFields _
   .Add Key:=Cells(15, Target.Column), SortOn:= _
   xlSortOnValues, Order:=Range("G12"), DataOption:=xlSortNormal
   With ListObjects("Tabelle16").Sort
       .Header = xlYes
       .MatchCase = False
       .Orientation = xlTopToBottom
       .SortMethod = xlPinYin
       .Apply
   End With
End If
End Sub

Doppelklick in eine Überschrift sortiert die Tabelle nach der doppelt angeklickten Spalte, entsprechend der Auswahl der Optinsfelder.

Gruß Werner

[little76]

Moin Andi

Fängst du jetzt jeden Tag das selbe Thema neu an?
Damit machst du dir keine Freunde.

Hallo,

das habe ich nicht vor, habe nur einen Hinweis bekommen,
dass meine Frage besser zu VBA passt.
Daher heute nochmal erneut das gleiche Thema.
Sofern es nicht klappt, finde ich mich einfach damit ab

Gruß Andi

---

Hallo Werner hab den Code eingefügt und es klappt prima.
Vielen Dank

Gruß Andi

[Klaus-Dieter]

Hallo Andi,

wenigstens hast du ja inzwischen einen Namen bekommen, mit dem man dich ansprechen kann.

Gestern hatte ich schon an einem Lösungsvorschlag gearbeitet, dann hatte ich den letzten Satz in deiner Antwort: 

Danke für Deine Hilfe und den Hinweis

dahingehend interpretiert, dass du nun alleine weiter machen willst.

[little76]

Hallo Klaus,

sorry, so war das garnicht von mir gemeint, ich habe mich nur dafür bedanken wollen,
dass Du mir hilfst und mit dem Hinweis war gemeint, dass Du mich darauf hingewiesen hast,
dass es den Datenschnitt für meine MS- Version nicht gibt

Bin schon die ganze Zeit hier auf der Suche nach Codes und versuche es auf mich anzupassen
Meißt leider mit Fehlermeldungen

Bin hier für jeden Hinweis dankbar und versuche das dann umzusetzen


Gruß
Andi

[Elex]

Hi

Versuch es mal damit.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$B$3" Then
  If Target.Value <> "" Then ListObjects("Tabelle16").Range.AutoFilter Field:=1, Criteria1:=Target.Value, Operator:=xlFilterValues
End If

If Target.Address = "$B$5" Then
  If Target.Value <> "" Then ListObjects("Tabelle16").Range.AutoFilter Field:=3, Criteria1:="=" & Format(Target.Value, "dd.mm.yyyy"), Operator:=xlFilterValues
End If

If Target.Address = "$B$7" Then
  If Target.Value <> "" Then ListObjects("Tabelle16").Range.AutoFilter Field:=8, Criteria1:=Target.Value, Operator:=xlFilterValues
End If

If Target.Address = "$B$9" Then
  If Target.Value <> "" Then ListObjects("Tabelle16").Range.AutoFilter Field:=9, Criteria1:=Target.Value, Operator:=xlFilterValues
End If

End Sub

Gruß Elex

[Klaus-Dieter]

Hallo Andy,

grundsätzlich helfe ich gerne weiter. Allerdings muss ich von dem, was da gemacht wird überzeugt sein. Datenerfassung über ein getrenntes Blatt, ist nicht so meine Arbeitsweise, hier würde ich, wie schon im ersten Beitrag geschrieben, zu einem UserForm tendieren. Zumal dein Lösungsansatz darauf hinaus läuft, auf zwei Blättern die gleichen Daten zu halten.
Was du mit den Blättern für die einzelnen Monate vor hast, ist für mich nicht erkennbar. Also gib mir eine paar Informationen, dann baue ich eine Datei, so wie ich mir so etwas vorstellen kann.

[little76]

Hallo Elex,

habe den Code eingefügt und er funktioniert

Vielen Dank Gruß Andi

---

Hallo Klaus,

vielen Dank für Deine Hilfe,
gerne nehme ich Deinen Vorschlag an über die Userform die Datei anzulegen.
Ich muss Dir recht geben, dass ich im ersten Tabellenblatt das anlege und schreibe,
welches im direkten Anschluß danach im zweiten Tabellenblatt abgelegt wird.

Die einzelnen Monatsblätter werdennur bei Bedarf ausgedruckt. Daher kann es vorkommen,
dass in einem Datensatz nur der Mai September und der Dezember benötigt wird.
Im nächsten jedoch Juli, August, September und der Oktober.
Ich habe jeden Monat extra angelegt, da ich mir nicht anders zu helfen weis
Eindeutiges zum Formular darf und kann ich Dir leider nicht nennen


Grüße Andi