Thema Datum  Von Nutzer Rating
Antwort
Rot Tabellenblatt einzeln als separate Datei speichern
21.12.2022 11:39:15 Karin
NotSolved
21.12.2022 14:31:42 Gast46005
Solved
21.12.2022 15:49:54 Gast87061
NotSolved
21.12.2022 23:29:40 ralf_b
Solved
22.12.2022 12:13:47 Gast60101
NotSolved

Ansicht des Beitrags:
Von:
Karin
Datum:
21.12.2022 11:39:15
Views:
176
Rating: Antwort:
  Ja
Thema:
Tabellenblatt einzeln als separate Datei speichern

Hallo zusammen

Ich bin Anfängerin und habe mir einige Infos im Internet zusammengesucht. Vermutlich ist es nichts Kompliziertes, aber mangels Grundlagenwissen schaffe ich es leider nicht selber.

in einer Datei befinden sich ca. 70 Tabellenblätter mit definiertem Tabellenblattnamen. Dafür habe ich ein Makro hingekriegt, dass die Namen vergibt (hallelujah).

Aufgabe:

jedes Tabellenblatt als Wert und im Ursprungsformat im Zielordner mit Tabellenblattnamen speichern

(nice to have: jedes Tabellenblatt ab 5. Stelle, also die ersten vier Tabellenblätter nicht)

-----

Sub Makro21()
'
' Makro21 Makro
'

 

'
    Dim i As Integer
Application.ScreenUpdating = False
For Each Ws In Worksheets


Sheets(i).Copy
With ActiveSheet

 

    .Sheets.Copy
    .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False

    Application.Run "'Auswertungen Inventuren.xlsm'!TabellenblätterName"

    ActiveWorkbook.SaveAs Filename:= _
        "\\laapdc\UserDataVOL$\MEINNAME\Desktop\Test\Auswertungen einzeln\" _
& "_" & ActiveSheet.Name & ".xls", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
    End With
Next i
Sheets(i).Select
End Sub

----

 

Es würde mich total freuen, wenn mir ein Profi helfen könnte. Dafür schon mal grossen Dank!

Beste Grüsse

Karin

 

 


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 Tabellenblatt einzeln als separate Datei speichern
21.12.2022 11:39:15 Karin
NotSolved
21.12.2022 14:31:42 Gast46005
Solved
21.12.2022 15:49:54 Gast87061
NotSolved
21.12.2022 23:29:40 ralf_b
Solved
22.12.2022 12:13:47 Gast60101
NotSolved