Thema Datum  Von Nutzer Rating
Antwort
Rot Datei mit Formeln und Spaltenformat in neue Dateien splitten
01.08.2016 11:18:31 CatharinaLeonida
NotSolved
01.08.2016 11:19:40 CatharinaLeonida
NotSolved
01.08.2016 11:21:18 Markus
NotSolved
01.08.2016 11:26:11 Gast72714
NotSolved
01.08.2016 11:40:33 Gast994
NotSolved
01.08.2016 11:56:20 Gast46184
NotSolved

Ansicht des Beitrags:
Von:
CatharinaLeonida
Datum:
01.08.2016 11:18:31
Views:
1081
Rating: Antwort:
  Ja
Thema:
Datei mit Formeln und Spaltenformat in neue Dateien splitten
Liebe Leser, obwohl ich ein totaler VBA-Anfänger bin, muss ich einen Code generieren, um ein Datenblatt nach einem Wert in Spalte E in neue Dateien aufzusplitten. Bis jetzt läuft das Makro durch und die Dateien werden auch richtig abgespeichert, allerdings befindet sich in dem ursprünglichen Datenblatt eine Formel, die mit übertragen werden muss und auch die Formatierung der Spalten sollte übernommen werden, was aber bis jetzt noch nicht funktioniert. Bis jetzt sieht mein Code folgendermaßen aus: Sub SeparierenInMappe() Dim v, D As Object, wb As Workbook Application.ScreenUpdating = False Set D = CreateObject("scripting.dictionary") With Tabelle1 If .AutoFilterMode Then .AutoFilterMode = False With .Range("A1:R50").CurrentRegion For Each v In .Columns(5).Offset(1).Value If v <> "" Then D(v) = 0 Next For Each v In D.Keys Set wb = Workbooks.Add(xlWBATWorksheet) .AutoFilter 5, v .Copy wb.Sheets(1).Cells(1) With wb.Sheets(1) .Name = v .PageSetup.FitToPagesTall = 1 .PageSetup.FitToPagesWide = 1 .Cells.Font.Name = "Calibri" .Cells.Font.Size = 11 .UsedRange.EntireColumn.AutoFit End With wb.SaveAs .Parent.Parent.Path & "\FK Tools" & "\" & v & ".xlsx", xlOpenXMLWorkbook wb.Close False Next .AutoFilter End With End With MsgBox "Finished!" End Sub An welcher Stelle muss ich was einfügen, damit sowohl die Formeln übernommen werden, als auch das Format der ursprünglichen Tabelle? Freue mich über schnelle Antworten! :) Grüße CatharinaLeonida

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
Rot Datei mit Formeln und Spaltenformat in neue Dateien splitten
01.08.2016 11:18:31 CatharinaLeonida
NotSolved
01.08.2016 11:19:40 CatharinaLeonida
NotSolved
01.08.2016 11:21:18 Markus
NotSolved
01.08.2016 11:26:11 Gast72714
NotSolved
01.08.2016 11:40:33 Gast994
NotSolved
01.08.2016 11:56:20 Gast46184
NotSolved