Hallo Allemiteinander,
Weiss jemand, ob, und falls ja, dann wie man Excel Reihen in Dateien aufsplitten kann. Beispielsweise habe ich
Feld1 Feld2 Feld3
Reihe1 Feld1.1 Feld1.2 Feld1.3
Reihe2 Feld2.1 Feld2.2 Feld2.3
Daraus sollen zwei Dateien Entstehen, quasi wie bei der Eizellentrennung:
Datei1 mit Inhalt Feld1.1 Feld1.2 Feld1.3
und eine
Datei2 mit Inhalt Feld2.1 Feld2.2 Feld2.3
Hat jemand eine Idee, außer manuell Copy&:stuck_out_tongue_winking_eye:aste?
Hallo,
Excel Reihen
gibt es nicht, Zeilen oder Spalten.
In dem Fall egal. Mein Vorschlag, speichere die Datei zweimal unter anderem Namen.
Dann machst Du eine auf und loeschst in den Zellen was zuviel ist. Dann machst Du die zweite auf und loeschst das andere was zuviel ist.
Die Methode ist besser als Copy, weil alle Formate und Zellengroessen mitgenommen werden.
Dann guckst Du nach, ob Du nicht in der falschen Datei rumgeloescht hast und es nun zu spaet ist. grins, hab ich schon geschafft.
Gruss Helmut
Hallo Zera,
hier eine Makro-Lösung, um die Datenzeilen des aktiven Tabellenblatts in separate Dateien zu übertragen.
Gruß
Franz
Sub Make\_Rows\_to\_Files()
Dim wks As Worksheet
Dim wksMuster As Worksheet
Dim Zeile As Long
Dim wbNeu As Workbook, wksNeu As Worksheet, lngFormat As Long
Dim strDateiName As String
Set wks = ActiveSheet
Application.ScreenUpdating = False
'Blatt mit allen Daten als Muster kopieren, Daten und Formate lsöchen
wks.Copy
Set wksMuster = ActiveWorkbook.Worksheets(1)
wksMuster.Name = "Tab1" 'Tabellenname der Blätter mit jeweils einer kopierten Zeile
wksMuster.UsedRange.Clear
'Zeilenweise Quelldaten abarbeiten
With wks
'1 in nächster Zeile anpassen, wenn Kopieren in anderer Zeile starten soll
For Zeile = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
wksMuster.Copy
Set wbNeu = ActiveWorkbook
Set wksNeu = wbNeu.Worksheets(1)
wks.Rows(Zeile).Copy wksNeu.Rows(1)
'hier könnte dann ggf. noch jede gespeichert werden, falls \_
gewünscht und Datei-Name automatisch generiert werden kann
lngFormat = wks.Parent.FileFormat
If Not (lngFormat = 56 Or lngFormat
Hallo Zera,
hier eine Makro-Lösung, um die Datenzeilen des aktiven
Tabellenblatts in separate Dateien zu übertragen.
Sieht gut aus aber wo genau füge ich das ein?
Gruß
Hallo Zera,
das Makro kannst du im VBA-Editor
entweder in ein allgemeines Modul deiner persönlichen Makroarbeitsmappe einfügen -dann steht es dir bei allen Dateien zur Verfügung
oder du fügst es in der Datei in der du es anwenden möchtest in einem allgemeinen Modul ein.
Die 2. Variante ist dann sinnvoll, wenn du deine Datei an andere Personen verteilen möchtest und diese auch von der Makrofunktion profitieren sollen.
Gruss
Franz