Hilfe!!Filtern die 2t!! Brauche einen Spezialisten
07.12.2004 17:50:40
Flip
Moin da draussen,
dachte eigentlich ich hätte mein Filterproblem gelöst, war aber nicht der Fall!!
Also folgendes Problem:
Ich möchte Spalte F nach Kriterium B filtern.(später nach Kriterium C,D) Im gefilterten Zustand sollen die Spalten A-F kopiert werden. Dann soll der Autofilter wieder auf "Alle" gesetzt werden und der vorher kopierte Bereich, nur die B, lückenlos in die Spalten V-AA eingefügt werden.
Per Hand funktionoert das alles super. Der Code lautet dann:
Sub Makro4()
Selection.AutoFilter Field:=6, Criteria1:="B"
Range("A1:F7").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Selection.AutoFilter Field:=6
Range("V1").Select
ActiveSheet.Paste
End Sub
Wird das Makro jedoch später nochmals gestartet funktioniert das Zwischenspeichern und einfügen nicht!!!!
Keine Ahnung warum!!
Oben habe ich einen Link zu einer Datei zum testen!!
Alles per Hand zu machen geht nicht, da ich etliche Tabellen habe und diese viel länge als nur die Probetabelle sind!! Ich bräuchte einen Tip zum modifizieren des Codes!!
Ich hoffe es meldet sich ein Spezialist mit Antwort!!
Tausend Dank
Flip