HERBERS Excel-Forum - die Beispiele

Thema: Werte nach Gruppen aufteilen und in gesonderten Dateien speichern

Home

Gruppe

Datei

Problem

Die Werte aus den Spalten A:C sollen je Filiale in gesonderten Arbeitsmappen in dem in Zelle G1 genannten Verzeichnis gespeichert werden.

Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.
StandardModule: Modul1

Sub FilialenSpeichern()
   Dim rng As Range
   Dim col As New Collection
   Dim iRow As Integer
   Dim sFile As String
   Application.ScreenUpdating = False
   iRow = 2
   sFile = Range("G1").Value
   On Error Resume Next
   Do Until IsEmpty(Cells(iRow, 1))
      col.Add Cells(iRow, 1).Value, Cells(iRow, 1).Value
      iRow = iRow + 1
   Loop
   On Error GoTo 0
   Application.DisplayAlerts = False
   For iRow = 1 To col.Count
      Range("A1").CurrentRegion.AutoFilter field:=1, Criteria1:=col(iRow)
      Set rng = Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible)
      Workbooks.Add
      rng.Copy Range("A1")
      ActiveWorkbook.SaveAs sFile & "\" & col(iRow) & ".xls"
      ActiveWorkbook.Close savechanges:=True
   Next iRow
   Application.DisplayAlerts = True
   Application.ScreenUpdating = True
   ActiveSheet.AutoFilterMode = False
   MsgBox "Job erledigt!"
End Sub

Beiträge aus dem Excel-Forum zu den Themen Datei und Speichern

Excel/PDF Datei unter bestimmten Pfad abspeichern aus excel Worddatei nach Wert durchsuchen
VGA Überprüfen/Ausschneiden/Speichern von Werten Split-Funktion beim Einlesen TXT-Datei
Datei löschen mit unterschiedlichen Zahlen im Name Datei löschen mit unterschiedlichen Zhalen im Name
geöffnete Worddatei und Word aus Excel beenden Excel-Datei nicht im Projekt-Explorer
Suche nach jüngster Datei Bereich als Bild speichern.
Mehrere Zellen in mehreren Dateien ersetzen "Speichern unter" mit VBA für eigene Files
Screenshot speichern Datei öffnen mit variablen im Namen
Vergleichen zweier Dateien und aktualisieren Datei langsam durch Formel
Dateien aus Unterordner öffnen Daten import aus txt--Datei
Dropdown Menü weitersetzen und als PDF speichern Dateipfad öffnen mit VBA
Datei-Verknüpfungen Masterdatei erschaffen?
Mehrere Datenblätter als PDF-Datei ausgeben Makro bei Erstellen einer Datei aus einer Vorlage
Zusammenführung aus mehreren Dateien Rechteck per Button in andere Datei einfügen.
Alle Dateien in einem Unterordner öffnen VBA: MsgBox: yes/no. Bei yes andere Datei öffnen
Speichern mit Pfad aus Zelle einer nichtaktiven Ma Mehrere txt Dateien einlesen in ein Programm
VBA Datei als .txt speichern Excel Datei in CSV Datei wandeln mit Extras
aktierten Text in geöffnete Worddatei Spalte in andere Dateien kopieren + zurückkopieren
Aus einer CSV-Datei ein bestimmtes Layout erzeugen Daten ausgew. WS in 2. Datei zusammenführen
Per VBA aktuelle Datei in Autostart-Ordner csv Dateien importieren
Makrodatei als Software hochwertiger gestalten manuelles Speichern bei schreibgeschützter Datei
Daten aus geschlossener Datei in Zieldatei kopiere Speichern mit erhöhten ID Nummern
Dateinamen per VBA vorgeben (Datum: Vormonat) Ordner mit Unterordnern/Dateien kopieren
Auswertung über mehrere Dateien Geschlossene Excel-Datei bearbeiten?
datei öffnen durch vba ohne makroaktivierung Datei öffnet im Entwurfsmodus
Dateinamen der ausgelesenen Datei anzeigen