Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

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

Frage Microsoft Microsoft Office

Mitglied: EvE15

EvE15 (Level 1) - Jetzt verbinden

05.08.2008, aktualisiert 14:10 Uhr, 11230 Aufrufe, 5 Kommentare

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
Mitglied: 68023
05.08.2008 um 12:08 Uhr
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
Bitte warten ..
Mitglied: EvE15
05.08.2008 um 13:10 Uhr
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:

01.
Sub Makro() 
02.
03.
' Makro Makro 
04.
05.
 
06.
07.
    Selection.AutoFilter 
08.
    Selection.AutoFilter Field:=19, Criteria1:="0001" 
09.
    Cells.Select 
10.
    Selection.Copy 
11.
    Workbooks.Add 
12.
    ActiveSheet.Paste 
13.
    Application.CutCopyMode = False 
14.
    ChDir "C:\Dokumente und Einstellungen\...\...\test" 
15.
    ActiveWorkbook.SaveAs Filename:= _ 
16.
        "C:\Dokumente und Einstellungen\...\...\test\VerNr0001.xls", _ 
17.
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ 
18.
        ReadOnlyRecommended:=False, CreateBackup:=False 
19.
End Sub
Bitte warten ..
Mitglied: 68023
05.08.2008 um 13:19 Uhr
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
Bitte warten ..
Mitglied: EvE15
05.08.2008 um 14:06 Uhr
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
Bitte warten ..
Mitglied: 68023
05.08.2008 um 14:10 Uhr
Hallo Eve,

alles klar! Sorry wollte vorhin anfangen ein bissle Code zu schreiben, da kam was dazwischen.

Okay - viel Erfolg noch!
Nico
Bitte warten ..
Neuester Wissensbeitrag
Ähnliche Inhalte
Microsoft Office
Excel Dateien durchsuchen und Werte einzeln in neue Excel Datei auslesen (1)

Frage von krischanii zum Thema Microsoft Office ...

Entwicklung
gelöst CRV-Datei auslesen und in Excel konvertieren? (15)

Frage von Lisa110 zum Thema Entwicklung ...

VB for Applications
gelöst PDF Datei auslesen und per VBA in Excel schreiben (3)

Frage von Julian8990 zum Thema VB for Applications ...

Heiß diskutierte Inhalte
Windows Userverwaltung
Ausgeschiedene Mitarbeiter im Unternehmen - was tun mit den AD Konten? (22)

Frage von patz223 zum Thema Windows Userverwaltung ...

Viren und Trojaner
Aufgepasst: Neue Ransomware Goldeneye verbreitet sich rasant (20)

Link von Penny.Cilin zum Thema Viren und Trojaner ...

LAN, WAN, Wireless
FritzBox, zwei Server, verschiedene Netze (19)

Frage von DavidGl zum Thema LAN, WAN, Wireless ...

Windows Netzwerk
Windows 10 RDP geht nicht (18)

Frage von Fiasko zum Thema Windows Netzwerk ...