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
Moin Andi
Fängst du jetzt jeden Tag das selbe Thema neu an?
Damit machst du dir keine Freunde.
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
(14.07.2019, 12:55)shift-del schrieb: [ -> ]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
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:
Zitat:Danke für Deine Hilfe und den Hinweis
dahingehend interpretiert, dass du nun alleine weiter machen willst.
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
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
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.
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