Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Platin7 vom 30.03.2022, 11:41 Options
Filter per Makro ausschalten
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
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
Antwort 1 von Hajo_Zi vom 30.03.2022, 12:29 Options
Halo,
und warum machst Du es nicht in Deinem Makro?
If .FilterMode Then .ShowAllData
Gruß Hajo
und warum machst Du es nicht in Deinem Makro?
If .FilterMode Then .ShowAllData
Gruß Hajo
Antwort 2 von Platin7 vom 30.03.2022, 14:31 Options
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
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
Antwort 3 von Hajo_Zi vom 30.03.2022, 14:41 Options
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
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
Antwort 4 von Platin7 vom 30.03.2022, 15:31 Options
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
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
Antwort 5 von Hajo_Zi vom 30.03.2022, 15:36 Options
Hallo Ines,
Wih Sheets("Zwischenschritt")
If .FilterMode Then .ShowAllData
.Range("A3:R3").Copy
End With
Gruß Hajo
Wih Sheets("Zwischenschritt")
If .FilterMode Then .ShowAllData
.Range("A3:R3").Copy
End With
Gruß Hajo
Antwort 6 von Platin7 vom 30.03.2022, 16:33 Options
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
Der Filter ist in "Datenerhebung" vorhanden! Dort wird dann ja auch eingefügt!
Bitte auf ein Neues!
Ines
Antwort 7 von Hajo_Zi vom 30.03.2022, 16:40 OptionsLösung
Hallo Ines,
in Deinem Beitrag Stand
und wo Du das Problem geschildert hast habe ich es hingeschrieben. Nach dem jetzigen Beitrag gehört es nach
With Sheets("Datenerhebung")
Gruß Hajo
in Deinem Beitrag Stand
Zitat:
Selection.Copy
'nächste freie Zeile (hier entsteht nämlich das Überschreibproblem!!!)
With Sheets("Datenerhebung")
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
Antwort 8 von Platin7 vom 13.04.2022, 09:06 Options
Hallo Hajo!
Sorry für die späte Rückmeldung!
Habe es hinbekommen!
Danke!
Gruß
Ines
Sorry für die späte Rückmeldung!
Habe es hinbekommen!
Danke!
Gruß
Ines
Ähnliche Themen
Makro
kurtl 10.11.2008 - 77 Hits - 14 Antworten
Makro im Makro deaktivieren ?
korfuweb 02.03.2009 - 179 Hits - 7 Antworten
Problem: Filter mit mehreren Toggle Buttons
JoeDeeFoster 11.03.2009 - 179 Hits - 4 Antworten
Makro
Pietro 13.03.2009 - 197 Hits - 1 Antwort
Excel 2003: Nach Filter Anzeige der Anzahl ohne Doppelzählung
Caparzo 24.03.2010 - 322 Hits - 3 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
