Autor
|
Thema: Schleife Makro,Of2003,VBA, (2262 mal gelesen)
|
lili007 Mitglied Angestellter
Beiträge: 2 Registriert: 14.12.2011 excel2003
|
erstellt am: 14. Dez. 2011 13:08 <-- editieren / zitieren --> Unities abgeben:
Hallo, bin erst Anfänger und habe folgendes Problem, ich hoffe ihr könnt mir helfen. Ich will übers Makro folgendes erstellen lassen: Nimm A3 als i aus Sheet ABC und gehe ins DB wo soll nach diesem Kriterium i alles rausfiltern und ins Mappe XYZ copieren, danach wird meine XYZ,MNL Analyse für Suchkriterium erstellt und das Ergebnis soll zurück ins Mappe ABC paar Spalten weiter wenn i=A3 also ins G3,H3 einfügen und von vorne mit i=i+1 das gleiche wieder so lange bis inicht gleich leere Zelle. Meine Analyse funktioniert bereits als Makro,leider nur aufgezeichnet.Schaffe jedoch umstellung auf wiederholung nicht. Bitte hilfe. lili007 ------------------ lili Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Paulchen Mitglied Bauing./SW-Entwickler
Beiträge: 1227 Registriert: 19.08.2004 Büro: Win10 Enterprise 64bit, Office Professional Plus 2013 - Privat: Linux Mint 15, LibreOffice
|
erstellt am: 14. Dez. 2011 13:28 <-- editieren / zitieren --> Unities abgeben: Nur für lili007
|
startrek Moderator Architekt
Beiträge: 1361 Registriert: 13.02.2003 .
|
erstellt am: 14. Dez. 2011 13:42 <-- editieren / zitieren --> Unities abgeben: Nur für lili007
Zitat: Original erstellt von lili007: ... funktioniert bereits als Makro,leider nur aufgezeichnet.Schaffe jedoch umstellung auf wiederholung nicht.
Hallo & auch erstmal Willkommen. Muss mich Paulchen anschliessen, ich verstehe nur Bahnhof;-) Poste doch einfach mal dein aufgezeichnetes Makro, ich denke wir werden es schaffen, Dir da ein Schleifchen drumzubinden (auch ohne den Rest zu verstehen?) Gruß Nancy Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
lili007 Mitglied Angestellter
Beiträge: 2 Registriert: 14.12.2011 excel2003
|
erstellt am: 14. Dez. 2011 13:44 <-- editieren / zitieren --> Unities abgeben:
Hallo, also ich versuche noch mal, ich habe .xls Datei mit mehrere Mappen : Mappe ABC, DB, XYZ. nun soll mein Makro folgendes Machen,im Mappe ABC Spalte A, Zelle 3 als suchkriterium nehmen, verwenden und im Mappe DB alle Werte mit diesem Kriterium rausfiltern,diese in XYZ kopieren und davon Analyse erstellen(diese habe ich ja bereits als Makro fertig) in meinem Makro siehts folgendes aus: Sheets("db").Select Selection.AutoFilter Field:=16, Criteria1:="=003890880-0000", Operator:= _ xlAnd ich habe es bis jetzt nur so geschafft dass im Makro ein Konkretes Nr. steht, nun denke ich als wiederholung schleife muß er Zelle A3 aus Mappe ABC als i nehmen und filtern, ins XYZ kopieren und auswerten, Ergebnisse zuruck ins Mappe ABC schreiben und von vorne mit i=i+1 anfangen. und so bis zu ende meine Mappe hat ja 65000 zeilen. Danke für schnelle antwort. ------------------ lili Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Paulchen Mitglied Bauing./SW-Entwickler
Beiträge: 1227 Registriert: 19.08.2004 Büro: Win10 Enterprise 64bit, Office Professional Plus 2013 - Privat: Linux Mint 15, LibreOffice
|
erstellt am: 14. Dez. 2011 15:26 <-- editieren / zitieren --> Unities abgeben: Nur für lili007
|
Beverly Mitglied Dipl.-Geologe (Rentner)
Beiträge: 394 Registriert: 11.08.2007
|
erstellt am: 15. Dez. 2011 10:35 <-- editieren / zitieren --> Unities abgeben: Nur für lili007
Hi Lili, versuche einfach mal anstelle von
Code: Criteria1:="=003890880-0000"
dieses in deinen Code einzubauen
Code: Criteria1:="=" & Worksheets("ABC").Range("A3")
------------------ Bis später, Karin Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|