Thema Datum  Von Nutzer Rating
Antwort
30.06.2019 18:09:11 Ralun
NotSolved
30.06.2019 18:58:53 Gast1050
NotSolved
01.07.2019 14:19:25 Gast44459
NotSolved
01.07.2019 22:41:34 Gast1050
NotSolved
02.07.2019 08:44:52 Ralun
NotSolved
02.07.2019 09:50:27 Werner
NotSolved
02.07.2019 12:11:52 Gast1050
NotSolved
03.07.2019 11:24:34 Ralun
NotSolved
Rot Schleife erstellen und beenden, wenn Zelle leer
 01.07.2019 16:54:49 Werner
NotSolved

Ansicht des Beitrags:
Von:
Werner		 Datum:
01.07.2019 16:54:49		 Views:
534		 Rating:
     
Antwort:
  Ja
Thema:
Schleife erstellen und beenden, wenn Zelle leer

Hallo,

leg dir als erstes in deiner Datei ein zusätzliches Tabellenblatt an und benenne es in "Speichern" um.

Folgendes Makro in ein allgemeines Modul:

Public Sub Kopieren_Speichern()
Dim loLetzte As Long, i As Long, loZähler As Long

Application.ScreenUpdating = False

With Worksheets("Export")
    loLetzte = .Cells(.Rows.Count, "B").End(xlUp).Row
    For i = 2 To loLetzte Step 100
        loZähler = loZähler + 1
        .Range(.Cells(i, "B"), .Cells(i + 99, "BE")).Copy _
        Worksheets("Speichern").Cells(1, "A")
        Worksheets("Speichern").Copy
        ActiveWorkbook.SaveAs ThisWorkbook.Path & "\Datei_fertig_" & loZähler
        ActiveWorkbook.Close
        Worksheets("Speichern").Cells.ClearContents
    Next i
End With
        
End Sub

Die erzeugten Dateien werden im gleichen Verzeichnis abgespeichert wie die "Master Datei".

 

Gruß Werner

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
30.06.2019 18:09:11 Ralun
NotSolved
30.06.2019 18:58:53 Gast1050
NotSolved
01.07.2019 14:19:25 Gast44459
NotSolved
01.07.2019 22:41:34 Gast1050
NotSolved
02.07.2019 08:44:52 Ralun
NotSolved
02.07.2019 09:50:27 Werner
NotSolved
02.07.2019 12:11:52 Gast1050
NotSolved
03.07.2019 11:24:34 Ralun
NotSolved
Rot Schleife erstellen und beenden, wenn Zelle leer
 01.07.2019 16:54:49 Werner
NotSolved