Thema Datum  Von Nutzer Rating
Antwort
06.12.2019 11:52:38 Dominic
NotSolved
Blau Tabellenblätter in Schleife in neue Arbeitsmappe verschieben und speichern
 07.12.2019 09:28:40 Mase
NotSolved
11.12.2019 11:24:12 Gast6040
Solved
11.12.2019 11:26:50 Gast61554
NotSolved

Ansicht des Beitrags:
Von:
Mase		 Datum:
07.12.2019 09:28:40		 Views:
645		 Rating:
     
Antwort:
  Ja
Thema:
Tabellenblätter in Schleife in neue Arbeitsmappe verschieben und speichern

Hi Dominic,

hatte eben Lust bzw Langeweile ;)

Versuch mal folgendes:

Sub SeperateWorksheets2XLSX()
    Dim wks As Worksheet
    Dim wkbNew As Workbook
    '
    On Error GoTo FinishErr
    '
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    '
    For Each wks In ThisWorkbook.Worksheets
        Set wkbNew = Workbooks.Add
        wks.Copy After:=wkbNew.Worksheets(wkbNew.Worksheets.Count)
        wkbNew.Worksheets(1).Delete
        wkbNew.Close SaveChanges:=True, Filename:=wks.Range("U28").Text
    Next wks
    '
FinishErr:
If Err.Number <> 0 Then
    MsgBox Err.Number & Err.Description, vbCritical, "Autor informiert"
End If
'
Application.DisplayAlerts = True
Application.ScreenUpdating = True
'
Set wks = Nothing: Set wkbNew = Nothing
End Sub

 

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
06.12.2019 11:52:38 Dominic
NotSolved
Blau Tabellenblätter in Schleife in neue Arbeitsmappe verschieben und speichern
 07.12.2019 09:28:40 Mase
NotSolved
11.12.2019 11:24:12 Gast6040
Solved
11.12.2019 11:26:50 Gast61554
NotSolved