Office: gefilterte Tabelle automatisch aktualisieren

Hallo!

Eine Sortierfunktion in diese Formel einzubauen, dürfte wohl nicht möglich sein.
Aber wenn du aus deinen Nebentabellen "Hilfs"-Nebentabellen machst, dann kannst du diese mit einer Formel sortieren:
http://excelformeln.de/formeln.html?welcher=236

 

Alles klar!Danke!
Das mit deiner Formel geht sowieso nicht mehr, da die Datei anscheinend doch zu groß ist.
Nachdem ich die Hälfte der Tabellen mit der Formel versehen hatte,
hat er mir die Tabelle automatisch gelöscht.
Ein Glück hatte ich mir vorher eine Sicherheitskopie gemacht, sonst hätte ich echte Probleme gehabt.

Also bin ich wieder am Anfang!
Wenn du noch Ideen hast, wie man dennoch die (Neben)Tabellen zum automatischen Aktualisieren bringen kann, immer raus damit! :mrgreen:

MFG
adpar

 

Hallo!

Dann eben doch per VBA-automatisiertem Spezialfilter?

Code:

Private Sub Worksheet_Activate()
Range("A1") = "Nummer"
Range("A2") = "*TLM-DE*"
Range("3:65536").Clear
Tabelle1.UsedRange.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A1:A2"), CopyToRange:=Range("A3"), Unique:=False
End Sub

Filtert die Liste aus Tabelle1 nach der Überschrift "Nummer" und dem Wert "TLM-DE" in ein neues Blatt, in dessen Modul dieser Code gehört. Er aktualisiert sich immer dann, wenn dieses Blatt aufgerufen wird.

 

Hay Schatzi!
Du bist echt der Beste!
Ich mach nur immer irgendwas falsch :!: :?:
Das Makro funktioniert zwar, aber er gibt mir nur die Überschrift zurück:



So sieht der Code im Moment aus:

Ich hab alles zur Seite geändert, aber anscheind fehlt mir noch etwas!

MFG
adpar

 

Hallo!

Versuch mal

Tabelle40.UsedRange...
oder aber
Sheets("Namensortierung").UsedRange...

 

Hay schatzi!
Ich habe jetzt das Makro umgeändert, aber irgendwie komme ich nicht auf den Hauptfehler.
Die formel sieht nun so aus:

Aber zurück gibt er mir nur das:



Ich weiß einfach nicht weiter!
Bitte, hilf mir!!

MFG
adpar

 

Hay!
Ich habe nochmal den Code umgeändert, in der Hoffnung das er dann funktioniert.
allerdings sagt er mir immer "Laufzeitfehler 1004".es muss also noch irgendwas an dieser Zeile geändert werden:

Wär lieb, wenn du ihn dir mal anschaust, und mir dann Bescheid gibst was da noch falsch ist.

MFG
adpar

 

Hallo!

Die Filteraktion läuft bei mir fehlerfrei., wenn ich den Rechtschreibfehler in I1 korrigiere...
Deine Sortierung erschließt sich mir allerdings nicht ganz:

Selection.Sort Key1:=Range("I2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Warum soll nach I2 sortiert werden?

 

Hallo!
Das hatte er mir so vorgegeben, als ich auf sortieren gegangen bin.

Ich hab wieder von vorn angefangen und ein neues Makro gemacht, das auch ganz gut funktioniert. ich schätze aber mal das das fast das gleiche ist:

das Einzige das nicht so richtig geht ist die sortierung, da mehr als ein Wert in der Zelle steht und er immer den ersten Wert zum sortieren benutzt.Kann man ihm irgendwie sagen das er nur bestimmte Werte zum sortieren benutzen soll, oder das Marko so umändern, dass er nur die relevanten Daten aus der Zelle mit rüber holt?

Hier nochmal die Tabelle wie er sie mir im Moment gibt mit dem makro:



Viel Grüße

Adpar

 

Hallo!

Teste mal dies (der Rekorder zeichnet immer viel unsinniges Zeug auf):

Code:

Private Sub Worksheet_Activate()
'Die Suchkriterien werden eingetragen:
Range("I1"). = "Kartennummer"
Range("I2"). = "*SD7-DE*"
'Der Spezialfilter wird angewendet:
Sheets("Namensortierung").Columns("A:O").AdvancedFilter Action:=xlFilterCopy _
, CriteriaRange:=Range("I1:I2"), CopyToRange:=Columns("A:F"), Unique:= False
'Die unzutreffenden Einträge aus Spalte C werden gelöscht:
Dim Arr, i As Long, j As Long
For i = 2 To UsedRange.Rows.Count
Arr = Split(Cells(i, 3), Chr(10))
For j = 0 To UBound(Arr)
If InStr(Arr(j), "SD7-DE") = 1 Then Exit For
Next j
Cells(i, 3) = Arr(j)
Next i
'Die Spalten A:F werden nach Spalte C sortiert:
Range("A:F").Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

 

Bei dem Makro sagt er mir was von einem Laufzeitfehler 9, damit kann ich gar nichts anfangen:




MFG
Adpar

 

Hallo!

Bei mir läuft der Code wunderbar...
Hast du an den Rechtschreibfehler gedacht?
"Kartennummer"

PS: Du kannst einen Code schrittweise ausführen, indem du im Editor den Cursor in den Code setzt und dich dann durch drücken von F8 durch die einzelnen Zeilen hangelst.
Dabei lassen sich eventuelle Fehler noch besser erkennen.

 

den Rechtschreibfehler hab ich verbessert, aber er sagt mir immer noch das gleiche mit dem Laufzeitfehler 9 und er markiert mir immer die gleiche Zeile:

auch bei F8 sagt er mir das gleiche!Scheint also das Einzige zu sein das ihn stört.
Vielleicht liegt es daran, dass ich das Office 2000 noch verwende?!

MFG
adpar

 

Hallo!

Mit Office2000 hat das wohl nichts zu tun.
Bei mir kommt dieser Fehler dann, wenn KEIN passender Datensatz gefunden wurde.
Das lässt sich aber abfangen:

Code:

...
Dim Arr, i As Long, j As Long
On Error Resume Next
For i = 2 To UsedRange.Rows.Count
...

 

hay!
Ich schätze mal ich muss den Code in die Fehlerhafte Zeile eintragen,also so:

Nur dann sagt er mir etwas von einem
"Fehler beim kompilieren,
Mehrfachdeklaration im aktuellen Gültigkeitsbereich"
und markiert mir das oben rot markierte.

MFG
adpar