Frage stellen

Filter per Makro ausschalten

2.4k Aufrufe
Gefragt in Tabellenkalkulation von
Hallo Spezies!

Ich habe in einer Datei mehre Mappen! Diese Mappen werden zum Teil über Makros gefüllt. Dabei kommt es zu Problemen (überschreiben von Zeilen) wenn ein Filter gesetzt ist.

Um dies zu vermeiden, hätte ich gern ein Makro, dass vor dem Schließen der Datei alle Filter ausschaltet.

Ich hoffe, mir kann schnell jemand helfen!

Danke und Gruß Platin7

8 Antworten

0 Punkte
Beantwortet von hajo_zi Experte (9.1k Punkte)
Halo,

und warum machst Du es nicht in Deinem Makro?
If .FilterMode Then .ShowAllData

Gruß Hajo
0 Punkte
Beantwortet von
Hallo Hajo!

Ich würde das gerne hier einbauen!

Sub Auto_open()
Sheets("Inhalt").Activate
End Sub

Der Befehl muss sich aber auf alle Mappen, ob sie einen Filter haben oder nicht, auswirken.

Wenn ich die Zeile einfach so einbaue, bekomme ich einer Fehlermeldung!

Gruss
Ines
0 Punkte
Beantwortet von hajo_zi Experte (9.1k Punkte)
Hallo Ines,

der wirkt nur inm der Mappe im der der Code ist.
Ich würde es in Dein Makro einbauen, wo Du was in die Zellen schreibst. Bevor Du dies machst würde ich den Autofilter aufheben.

Gruß Hajo
0 Punkte
Beantwortet von
Hi nochmal!

Wo, bzw. wie muss es denn hier aussehen?

Sheets("Zwischenschritt").Select
Range("A3:R3").Select
Selection.Copy

'nächste freie Zeile (hier entsteht nämlich das Überschreibproblem!!!)

With Sheets("Datenerhebung")
.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteFormats
End With
Sheets("Datenerhebung").Select
Application.CutCopyMode = False


Gruß
Ines
0 Punkte
Beantwortet von hajo_zi Experte (9.1k Punkte)
Hallo Ines,

Wih Sheets("Zwischenschritt")
If .FilterMode Then .ShowAllData
.Range("A3:R3").Copy

End With


Gruß Hajo
0 Punkte
Beantwortet von
Wenn ich das so einfüge gibt es mecker!

Der Filter ist in "Datenerhebung" vorhanden! Dort wird dann ja auch eingefügt!

Bitte auf ein Neues!

Ines
0 Punkte
Beantwortet von hajo_zi Experte (9.1k Punkte)
Hallo Ines,

in Deinem Beitrag Stand


Selection.Copy

'nächste freie Zeile (hier entsteht nämlich das Überschreibproblem!!!)

With Sheets("Datenerhebung")


und wo Du das Problem geschildert hast habe ich es hingeschrieben. Nach dem jetzigen Beitrag gehört es nach
With Sheets("Datenerhebung")

Gruß Hajo
0 Punkte
Beantwortet von
Hallo Hajo!

Sorry für die späte Rückmeldung!

Habe es hinbekommen!

Danke!

Gruß

Ines
...