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 nobody48 vom 10.07.2019, 06:47 Options
Makro Autofilter automatisch ausführen, Daten kopieren
Hallo Ihr Spezialisten in diesen Forum,
Habe ein Problem an dem ich einfach nicht richtig weiter komme. Für unsere wöchentliche Qualitätsbesprechungen in der ich auf einer internen Webseiten Qualitätskennzahlen präsentiere, habe ich eine Excel Arbeitsdatei. In diese kopiere ich einen SAP download monatsweise. Wenn die Monatsdaten reinkopiert sind führe ich ein Makro " Pareto" aus, und danach sehe ich im Register Pareto die Häufigkeit der fehlerhaften Bauteile nach Kosten sortiert. Mein Problem nun jetzt habe ich zwar das Bauteil mit dem höchsten Kostenanteil, nicht aber Teilergebnisse der einzelnen Fehlermerkmale (Ausschusscodes) . Nun gehe ich ins Register "Auswertung gesamt " Spalte C11 und aktiviere Autofilter Beispiel Material 888888888 und kopiere dann die selektierten Daten in ein weiteres Register "Teil Analyse" , danach führe ich Makro " Pareto 2 aus und ich habe von dem Bauteil die Teilergebnise der Fehlerarten. Wenn ich jetzt ein anderes Bauteil analysieren soll muss ich diese Prozedur immer händisch machen.
Kann man diesen Vorgang vieleicht automatisieren das ev. ein Makro gestartet wird und man bekommt in Registern die TOP 15 dargestellt.
Habe nun zum besseren Verständnis ein Beispieldatei hochgeladen.
Hier der Link:
http://www.uploadagent.de/files/1184040843/Analyse (Test).xls
Für einen Lösungsvorschlag DANKE im voraus
Reiner
Habe ein Problem an dem ich einfach nicht richtig weiter komme. Für unsere wöchentliche Qualitätsbesprechungen in der ich auf einer internen Webseiten Qualitätskennzahlen präsentiere, habe ich eine Excel Arbeitsdatei. In diese kopiere ich einen SAP download monatsweise. Wenn die Monatsdaten reinkopiert sind führe ich ein Makro " Pareto" aus, und danach sehe ich im Register Pareto die Häufigkeit der fehlerhaften Bauteile nach Kosten sortiert. Mein Problem nun jetzt habe ich zwar das Bauteil mit dem höchsten Kostenanteil, nicht aber Teilergebnisse der einzelnen Fehlermerkmale (Ausschusscodes) . Nun gehe ich ins Register "Auswertung gesamt " Spalte C11 und aktiviere Autofilter Beispiel Material 888888888 und kopiere dann die selektierten Daten in ein weiteres Register "Teil Analyse" , danach führe ich Makro " Pareto 2 aus und ich habe von dem Bauteil die Teilergebnise der Fehlerarten. Wenn ich jetzt ein anderes Bauteil analysieren soll muss ich diese Prozedur immer händisch machen.
Kann man diesen Vorgang vieleicht automatisieren das ev. ein Makro gestartet wird und man bekommt in Registern die TOP 15 dargestellt.
Habe nun zum besseren Verständnis ein Beispieldatei hochgeladen.
Hier der Link:
http://www.uploadagent.de/files/1184040843/Analyse (Test).xls
Für einen Lösungsvorschlag DANKE im voraus
Reiner
Antwort 1 von nobody48 vom 22.07.2019, 10:16 Options
Hallo Spezialisten
habe an meinem Problem weiter probiert, bin nun mir einem Makro "Test" etwas weiter gekommen.
Sub Test()
Sheets("Pareto").Select
Range("A2").Select
Sheets("Auswertung gesamt").Select
Selection.AutoFilter
Range("B11:V11").Select
Selection.AutoFilter
Range("C12").Select
ActiveWindow.SmallScroll Down:=-20000
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=">" & Sheets("Pareto") & Range("A2").Value, Operator:=xlAnd
'ActiveWindow.SmallScroll Down:=-15
Ab Zeile :Selection.AutoFilter Field:=1, Criteria1.......... bekomme ich eine Fehlermeldung, kann mir hier ein Spezialist weiterhelfen???
Hab meine aktuelle Beispieldatei noch einmal hochgeladen
[/url]http://www.netupload.de/img.php/
f0a5827bd67c422b636a5cccb573feb9.xls
Für Eure Hilfe Danke im voraus
Reiner
*Threadedit* 10:24:30
Admininfo: achte bei Links bitte auf unsere Formatierungshilfe oder nutze das SNTool
habe an meinem Problem weiter probiert, bin nun mir einem Makro "Test" etwas weiter gekommen.
Sub Test()
Sheets("Pareto").Select
Range("A2").Select
Sheets("Auswertung gesamt").Select
Selection.AutoFilter
Range("B11:V11").Select
Selection.AutoFilter
Range("C12").Select
ActiveWindow.SmallScroll Down:=-20000
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=">" & Sheets("Pareto") & Range("A2").Value, Operator:=xlAnd
'ActiveWindow.SmallScroll Down:=-15
Ab Zeile :Selection.AutoFilter Field:=1, Criteria1.......... bekomme ich eine Fehlermeldung, kann mir hier ein Spezialist weiterhelfen???
Hab meine aktuelle Beispieldatei noch einmal hochgeladen
[/url]http://www.netupload.de/img.php/
f0a5827bd67c422b636a5cccb573feb9.xls
Für Eure Hilfe Danke im voraus
Reiner
*Threadedit* 10:24:30
Admininfo: achte bei Links bitte auf unsere Formatierungshilfe oder nutze das SNTool
Ähnliche Themen
Autofilter Ergebnis in neue Zelle
fedjo 04.01.2007 - 101 Hits - 2 Antworten
Makro automatisch ausführen
Heinz28 15.03.2007 - 449 Hits - 3 Antworten
autofilter mit vba
SARP 12.08.2007 - 134 Hits - 2 Antworten
kopieren mit Autofilter
Prack 17.10.2007 - 117 Hits - 4 Antworten
Autofilter mit Makro setzen
Susanne2 07.04.2008 - 103 Hits - 1 Antwort
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
