Werte aus einer Excel Datei auslesen und in verschiedenen Excel Dateien speichern

Hallo Zusammen,

habe ein kleines Problem, und bin gerade etwas ratlos...
Habe eine .xls Datei, mit über 8000 Zeilen, welche Informationen in der Art wie Name, Adresse, Firma, Garage, etc. sowie eine Vertreternummer enthalten.
Der einzigste Wert, welcher mehrmals vorkommt, ist die Vertreternummer.

Ziel wäre es jetzt, die Vertreternummer auszulesen, und diese in einer neuen *.xls zu speichern, mitsamt den Informationen zu dieser Vertreternummer.
Dies erfolgt momentan halt über die Filterfunktion, quasi die Nummer anzeigen, Tabellenblatt kopieren, in neue Datei einfügen, und speichern.

Dieser Vorgang sollte sich doch rein theoretisch automatisieren lassen oder?

Für Anregungen oder einen einen Lösungsvorschlag schonmal besten Dank, wäre super, wenn jemand helfen könnte.

Grüessli aus der Schweiz, Eve

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 93639

Url: https://administrator.de/forum/werte-aus-einer-excel-datei-auslesen-und-in-verschiedenen-excel-dateien-speichern-93639.html

Ausgedruckt am: 29.04.2025 um 04:04 Uhr

5 Kommentare

Neuester Kommentar

Hallo,

da die Tabelle nicht vorliegt nur das theoretische Konstrukt:

Ein VBA-Makro, dass Zeilenweise die Daten ausliest und in eine neue Date schreibt.
Vielleicht lässt sich das sogar per Makro AUFZEICHNEN ohne Programmierung hinbekommen.

Nico

Hi Nico,

erstmal Danke für die Anregung, funtkioniert auch an sich, aber da ich so gut wie keine Ahnung von VB habe, liegt halt nicht in meinem Arbeitsbereich, stellt sich mir die Frage, wie ich dem Makro nachdem es nun an sich erstellt ist, klar mache, dass es halt die anderen Vertreternummern auch ausliest, und halt dann auch beim Speichern dementsprechend den Dateinamen ändert und weiterführt....

Eve

P.S.: Das Ganze sieht nach der Aufzeichnung nun folgendermassen aus:

Sub Makro()
'  
' Makro Makro  
'  

'  
    Selection.AutoFilter
    Selection.AutoFilter Field:=19, Criteria1:="0001"  
    Cells.Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ChDir "C:\Dokumente und Einstellungen\...\...\test"  
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Dokumente und Einstellungen\...\...\test\VerNr0001.xls", _  
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _  
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Hallo Eve,

Variante 1:
Du bringst dem Makro noch mit der Aufzeichnungsfunktion bei, dass es immer eine Zeile tiefer gehen soll, legst eine Tastenkombination fest und drückst 8000x deine Tastenkombination.

Variante 2:
Liegen die Zeilen ausnahmslos direkt hintereinander und könntest direkt so "abgevespert" werden? Dann böte sich eine FOR-Schleife an.

Als erste Orientierung vielleicht das hier: http://de.wikibooks.org/wiki/VBA_in_Excel_-_Grundlagen:_Schleifen#For-E ...

Gruß
Nico

Hi Nico,

ja, nochmal Danke;) bin jetzt einfach hingegangen, und hab das Makro quasi mit einer weiteren Vertreternummer aufgezeichnet, dann rein ins Dreamweaver, und einfach die einzelnen Vertreternummern nacheinander reinkopiert...ist zwar nicht die eleganteste Lösung, aber für den Moment sollte es reichen und hat eine Menge Zeit gespart;)

Also besten Dank.

Grüsse Eve