Top-Themen

Aktuelle Themen (A bis Z)

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 Aus einer Excel-Datei pro Teilbestand eigene Exceldateien erzeugen

Mitglied: delcour

delcour (Level 1) - Jetzt verbinden

21.08.2007, aktualisiert 22.08.2007, 8336 Aufrufe, 4 Kommentare

Eine Exceldatei mit einer Tabelle soll zu nach Feldinhalt einer bestimmten Spalte Teiltabellen inklusive Überschrift erzeugen und diese Teiltabellen als separate Exceldateien speichern, wobei im Dateinamen der Feldwert enthalten ist.

Hallo!

Mir liegt eine Exceldatei mit einer Tabelle vor. Die Spalten gehen von A bis BN, die Zeilen bis ca. 4500. Die oberste Zeile enthält die Überschriften. Die Überschrift der Spalte F lautet "Merkmal". Es gibt ca. 70 verschiedene Ausprägungen für "Merkmal" (z.B. 300, 2100, 2500 ...).

Von Hand würde ich jetzt pro Ausprägung für "Merkmal" den Autofilter bemühen, den jeweiligen Teilbestand inklusive Überschrift kopieren, eine neue leeren Exceldatei erzeugen, dort hinein den in der Zwischenablage kopierten Tabellenteil hineinkopieren und die neue Tabelle dann abspeichern mit dem Dateinamen "Serienbrief_" + Merkmalsausprägung + ".xls" (also Serienbrief_0300.xls, Serienbrief_2100.xls usw.).

Diese Art von Arbeit habe ich ein bis zweimal pro Jahr zu erledigen.

Hinsichtlich der Dateiformate habe ich keine Wahl. Es muss Excel sein. Mit Mitteln jenseits von Excel einzelne CSV-Dateien zu erzeugen, wäre für mich kein Problem. Aber ich bin in diesem Fall gebunden.

Die Ausgangstabelle ist schon nach "Merkmal" sortiert. Sofern von den neuen Tabellen bereits welche mit gleichem Dateinamen bestehen sollen diese entweder überschrieben werden oder kann die ganze Aktion mit einer Fehlermeldung abbrechen.

Gibt es eine halbwegs einfache Lösung, das einigermaßen elegant und vor allem automatisiert in einem Rutsch hinzubekommen? Wenn ja, wie ungefähr?

Vielen Dank!

Gruß

Delcour
Mitglied: Cthluhu
21.08.2007 um 17:17 Uhr
Hallo,

Falls du JAVA programmieren kannst, würde ich dir folgendes empfehlen:
1
Das ist eine API um auf Excel Dateien zugreifen zu können.

HTH
Bitte warten ..
Mitglied: miniversum
21.08.2007 um 20:11 Uhr
So auf die Schnelle und ohne richtig ausprobiert zu haben würd ichs so in etwa in vba machen:
01.
Sub Copy2newfile()
02.
    zeile = 2
03.
    Do
04.
        ' Bereich kopieren
05.
        altezeile = zeile + 1
06.
        zeile = zeile + 1
07.
        Merkmal = Range("F" & zeile).Value
08.
        Do While Range("F" & zeile).Value = Merkmal
09.
            zeile = zeile + 1
10.
        Loop
11.
        zeile = zeile - 1
12.
        Range("A" & altezeile & ":BN" & zeile).Copy
13.
        
14.
        ' In neue Datei einfügen
15.
        Workbooks.Add
16.
        ActiveSheet.Paste
17.
        
18.
        'Speichern udn schliessen
19.
        ActiveWorkbook.SaveAs Filename:= _
20.
            "D:\Serienbrief_" & Merkmal & ".xls", _
21.
            FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
22.
            ReadOnlyRecommended:=False, CreateBackup:=False
23.
        ActiveWindow.Close
24.
    Loop While Range("F" & zeile + 1).Value <> ""
25.
End Sub
miniversum
Bitte warten ..
Mitglied: bastla
21.08.2007 um 20:40 Uhr
@miniversum

Schaut gut aus , allerdings soll die Zeile 1 mit den Überschriften auch mit, daher:
01.
Sub Copy2newfile()
02.
    zeile = 2
03.
    aKopf = Range("A1:BN1")
04.
    Do
05.
        ' Bereich kopieren
06.
        altezeile = zeile + 1
07.
        zeile = zeile + 1
08.
        Merkmal = Range("F" & zeile).Value
09.
        Do While Range("F" & zeile).Value = Merkmal
10.
            zeile = zeile + 1
11.
        Loop
12.
        zeile = zeile - 1
13.
        Range("A" & altezeile & ":BN" & zeile).Copy
14.
        
15.
        ' In neue Datei einfügen
16.
        Workbooks.Add
17.
        ActiveSheet.Range("A1:BN1") = aKopf
18.
        ActiveSheet.Range("A2").Select
19.
        ActiveSheet.Paste
20.
        
21.
        'Speichern und schließen
22.
        ActiveWorkbook.SaveAs "D:\Serienbrief_" & Merkmal & ".xls"
23.
        ActiveWindow.Close
24.
    Loop While Range("F" & zeile + 1).Value <> ""
25.
End Sub
Grüße
bastla
Bitte warten ..
Mitglied: delcour
22.08.2007 um 10:23 Uhr
Vielen Dank an Euch!

Mit dem letzten Excelcode hat es hervorragend gekappt. Allerdings fehlt bei der ersten Ausgabedatei die erste Datenzeile (während die geprüfte 2. sowie die letze Ausgabedatei pasen). Mit

zeile = 1

am Anfang wird auch die erste Ausgabedatei richtig, ohne dass es zu verschiebungen bei den folgenden Dateien kommt.

Gruß

Delcour
Bitte warten ..
Ähnliche Inhalte
Microsoft Office

Excel VBA: Automatische Konvertierung von Textdatei (.txt) zu Exceldatei (.xlsx)

gelöst Frage von Booster07Microsoft Office7 Kommentare

Hallo zusammen, ich habe sehr viele Textdateien, die z.B. im Ordner C:\Test\txt\ abgelegt sind. Nun will ich diese Textdateien ...

VB for Applications

VB Skript Excel Datei

gelöst Frage von FragerVB for Applications3 Kommentare

Hallo Zusammen, Ich brauche eure Hilfe. Ich habe eine Datei 1.xlsx nun brauche ich ein Skript, was die Datei ...

Microsoft Office

Excel 2010 schreibgeschützte Datei

Frage von Florian86Microsoft Office

Hallo, kennt jemand das Phänomen Eine Excel Datei ist von einem User geöffnet. Ein zweiter und dritter möchte diese ...

Bibliotheken & Toolkits

Eine beschädigte Excel-Datei

Frage von RasmusMorrsBibliotheken & Toolkits4 Kommentare

Hallo, Leute! Alle meine Excel-Dateien sind beschädigt und einige von ihnen sich nicht mehr öffnen lassen. Ich habe Paar ...

Neue Wissensbeiträge
Humor (lol)
Administrator.de Perlen
Tipp von DerWindowsFreak2 vor 9 StundenHumor (lol)2 Kommentare

Hallo, Heute beim stöbern auf dieser Seite bin auf folgenden Thread aus dem Jahre 2006 gestossen: Was meint ihr? ...

Erkennung und -Abwehr
OpenSSH-Backdoor Malware erkennen
Tipp von Frank vor 1 TagErkennung und -Abwehr

Sicherheitsforscher von Eset haben 21 Malware-Familien untersucht. Die Malware soll Hintertüren via OpenSSH bereitstellen, so dass Angreifer Fernzugriff auf ...

iOS
WatchChat für Whatsapp
Tipp von Criemo vor 4 TageniOS5 Kommentare

Ziemlich coole App für WhatsApp User in Verbindung mit der Apple Watch. Gibts für iOS sowohl als auch für ...

iOS
IOS hat nen Cursor!
Tipp von Criemo vor 4 TageniOS5 Kommentare

Nette Funktion im iOS. iPhone-Mauszeiger aktivieren „Nichts ist nerviger, als bei einem Tippfehler zu versuchen, den iOS-Cursor an die ...

Heiß diskutierte Inhalte
Festplatten, SSD, Raid
SSD zeigt falsche Werte
Frage von karl2014Festplatten, SSD, Raid24 Kommentare

Ich habe ein Problem mit der SSD in meinem Laptop mit Windows 10. Es ist eine 1Tb Platte die ...

Server-Hardware
WS 2016 Essentials Hardware
Frage von ChefknechtServer-Hardware23 Kommentare

Moin welche Hardware würdet ihr empfehlen? Dell Poweredge HP Proliant Fujitsu Ich bin total konfus was nun nötig ist, ...

Ubuntu
Installation freerdp 2.0.0-rc4
Frage von kristovUbuntu20 Kommentare

Hallo, möchte freerdp 2.0.0-rc4 auf linux mint 18.3 installieren, habe aber keine Ahnung, wie das funktioniert. freerdp 1.1 ist ...

Windows Server
Welche Option fürs Windows Server Installations besser
Frage von backitWindows Server20 Kommentare

Hi Zusammen, ich werde unserer AD (SBS 2011) und Exchange 2010 Servern auf neuen physikalischen Server umziehen. ich habe ...