Exceldatei zeilenweise abspeichern

Hallo Leute!
Ich verzweifel an einem Problem: Ich habe eine Excel-Datei mit mehreren Tausend Zeilen. Ausschnittsweise hier als Upload:
https://www.herber.de/bbs/user/159895.xls

Ich möchte daraus einige Hundert Mails automatisiert versenden. In jeder Mail sollen als Anhang die dem Markt zugeordneten Zeilen zwischen den schwarzen Balken angehängt sein. Welcher Markt welche Zeilen bekommt, wird über die R-ON in Spalte E definiert.
Heißt:
Markt 1 "Bersiznski" gehört zu R-ON 10345 und soll als Excel Anhang die Zeilen 1 (Überschrift) sowie 2-8 erhalten.
Markt 2 "Tietz" gehört zu R-ON 10351 und soll als Excel Anhang die Zeilen 1 (Überschrift) sowie 10-14 erhalten.
...
Das geht so weiter bis zu Markt 200 circa.

Wie bekomme ich per Formel/Power Automate/Access oder VBA-Skript es so hin, dass aus dieser einzelnen Riesen-Datei mir viele kleine Dateien irgendwo abgelegt werden, sodass ich diese dann per Serienmail automatisiert an die jeweiligen Empfänger versenden kann? Ich bin Excel-Neuling und VBA-mäßig null versiert.
Habe mich mit Power Automate daran versucht, aber es scheitert daran, es als Excel Anhang und nicht als Text in einer Mail darzustellen (zu unleserlich).

Danke für jede Hilfe! :)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

dim Zelle1 as range dim Zelle2 as range dim wb as workbook with sheets ("Marktliste") set Zelle2 = .cells(1, 5) .usedrange.Sort Key1:=Zelle2, order1:=xlascending, header:=xlyes do set Zelle1 = Zelle2.Offset(1, 0) if Zelle1.value = "" then exit do Set Zelle2 = Zelle1.Entirecolumn.Find(what:=Zelle1.value, lookat:=xlwhole, lookin:=xlvalues, searchdirection:=xlprevious) set wb = workbooks.add(xlWBATWorksheet) .Rows(1).Copy Destination:=wb.Sheets(1).Cells(1, 1) Range(Zelle1, Zelle2).EntireRow.Copy Destination:=wb.Sheets(1).Cells(2, 1) wb.Saveas Thisworkbook.Path & "\" & Zelle1.value, xlOpenXMLWorkbook wb.close loop end with

Sub EinzelnSpeichernV2() Dim Zelle1 As Range Dim Zelle2 As Range Dim wb As Workbook With Sheets("Marktliste") Set Zelle2 = .Cells(1, 5) .UsedRange.Sort Key1:=Zelle2, order1:=xlAscending, Header:=xlYes Do Set Zelle1 = Zelle2.Offset(1, 0) If Zelle1.Value = "" Then Exit Do Set Zelle2 = Zelle1.EntireColumn.Find(what:=Zelle1.Value, lookat:=xlWhole, LookIn:=xlValues, searchdirection:=xlPrevious) Set wb = Workbooks.Add(xlWBATWorksheet) .Range("1:2").Copy Destination:=wb.Sheets(1).Cells(1, 1) Range(Zelle1, Zelle2).EntireRow.Copy Destination:=wb.Sheets(1).Cells(2, 1) wb.SaveAs ThisWorkbook.Path & "\" & Zelle1.Value, xlOpenXMLWorkbook wb.Close Loop End With End Sub

wenn du bei VBA gar nichts blickst, dann solltest du vielleicht vorerst noch abstand davon nehmen, dieses im beruflichen Umfeld zu nutzen.
Bedenke, wenn du dir Makros aus dem Internet kopierst, du für deinen Kunden/Auftraggeber der Ersteller und damit der Verantwortliche bist, dass alles korrekt funktioniert. Von daher empfehle ich, im beruflichen Umfeld nur die Sachen zu verwenden, die man versteht im im Bedarfsfall auch selber warten kann.

denn eigentlich ist das Problem doch ganz einfach:
wenn die Überschrift, die du kopierst, zwei Zeilen hat, dann dürfen die weiteren Daten nicht in Zeile 2 eingefügt werden, sondern in in Zeile 3, weil du dir ja sonst die zweite Zeile der Überschrift überschreibst.
das kopieren und Einfügen der Daten passiert in dieser Zeile, und daher muss man hier als Zielzelle für das Einfügen die Zelle A3 angeben und nicht A2:
Range(Zelle1, Zelle2).EntireRow.Copy Destination:=wb.Sheets(1).Cells(3, 1)
und auch der Startpunkt für Zelle2 muss dann auf Zeile 2 gesetzt werden, also eine Zeile überhalb der eigentlichen Daten:
Set Zelle2 = .Cells(2, 5)

weitere Fehler konnte ich in meinem Code nicht entdecken.
Da müsstest du uns schonmal deinen Code mit deinen Daten zeigen, mit dem die Fehler passieren.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Exceldatei zeilenweise abspeichern

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

245 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Exceldatei zeilenweise abspeichern

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

245 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread