|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Datei nach Variablen filtern und Ergebnis in eine extra Datei speichern |
29.09.2021 15:46:26 |
Simone |
|
|
|
29.09.2021 17:56:58 |
Nobody |
|
|
|
30.09.2021 09:32:35 |
Gast81167 |
|
|
|
30.09.2021 13:21:05 |
Nobody |
|
|
|
01.10.2021 08:19:57 |
Gast82441 |
|
|
Von:
Simone |
Datum:
29.09.2021 15:46:26 |
Views:
711 |
Rating:
|
Antwort:
|
Thema:
Datei nach Variablen filtern und Ergebnis in eine extra Datei speichern |
|
Hallo liebes Forum,
ich bin hier neu, und würde mich freuen, wenn mir aus diesem Forum jemand bei meinem Problem helfen kann.
Mit VBA habe ich leider nur rudimentäre Erfahrungen indem ich Recorder in Anspruch nehme.
Hier meine "Aufgabe":
Ich habe eine Datei mit ganz vielen Spalten und Zeilen. Pro Personalnummer gibt es mehrere Zeilen. Die Pers.-Nr. steht
in der Spalte A. Das Ergebnis soll eine extra Datei pro gefilterter Personalnummer mit dem Dateinamen der Personalnummer sein.
Hier mein Versuch:
Sub Makro2()
|
| ' |
| ' Makro2 Makro |
| ' |
| |
| ' |
| Rows("1:1").Select |
| Selection.AutoFilter |
| ActiveSheet.Range("$A$1:$AS$2332").AutoFilter Field:=7, Criteria1:= _ |
| "xxxx" |
| Selection.SpecialCells(xlCellTypeVisible).Select |
| Range("A1:AS2332").Select |
| Selection.Copy |
| Workbooks.Add |
| ActiveSheet.Paste |
| ActiveWorkbook.SaveAs Filename:="C:\Users\*\Desktop\Test\" & Range("g2") |
|
End Sub
Soweit alles gut. Jetzt muss aber eine Schleife für die nächste Personalnummer erfolgen. Und da verlässt mich der Recorder.
Ich hoffe, dass ich mein Problem verständlich darstellen konnte und freue mich über Lösungsvorschläge.
Meine Office-Version: 2102 / Betriebssystem: 64-Bit
Bei Rückfragen meldet Euch auch sehr gerne.
Vielen Dank im Voraus und schöne Grüße
|
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Datei nach Variablen filtern und Ergebnis in eine extra Datei speichern |
29.09.2021 15:46:26 |
Simone |
|
|
|
29.09.2021 17:56:58 |
Nobody |
|
|
|
30.09.2021 09:32:35 |
Gast81167 |
|
|
|
30.09.2021 13:21:05 |
Nobody |
|
|
|
01.10.2021 08:19:57 |
Gast82441 |
|
|