1. Liebe Forumsgemeinde,

    aufgrund der Bestimmungen, die sich aus der DSGVO ergeben, müssten umfangreiche Anpassungen am Forum vorgenommen werden, die sich für uns nicht wirtschaftlich abbilden lassen. Daher haben wir uns entschlossen, das Forum in seiner aktuellen Form zu archivieren und online bereit zu stellen, jedoch keine Neuanmeldungen oder neuen Kommentare mehr zuzulassen. So ist sichergestellt, dass das gesammelte Wissen nicht verloren geht, und wir die Seite dennoch DSGVO-konform zur Verfügung stellen können.
    Dies wird in den nächsten Tagen umgesetzt.

    Ich danke allen, die sich in den letzten Jahren für Hilfesuchende und auch für das Forum selbst engagiert haben. Ich bin weiterhin für euch erreichbar unter tti(bei)pcwelt.de.
    Dismiss Notice

Excel: Komplettes Sheet mit allen Inhalten und Makros kopieren per Makro?

Discussion in 'Office-Programme' started by sTeFaN1989, Aug 25, 2009.

Thread Status:
Not open for further replies.
  1. sTeFaN1989

    sTeFaN1989 Byte

    Hallo Leute,

    es ist wieder Zeit, dass ich Hilfe brauche :)

    Ich bräuchte einen Makro Code, wömit ich ein komplettes Excelsheet kopieren kann.

    Ich hatte das bisher so, dass man mit

    Code:
    ActiveSheet.Range("A1:K740").Select
    Selection.Copy
    Sheets("Protection (" & sname & ")").Select
    Sheets.Add.Name = "Protection (" & sname + 1 & ")"
    Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    kopiert jedoch werden quasi nur die Zellen kopiert, Makro und Sachen wie Header und Footer fehlen.
    Gibt es einen Möglichkeit wirklich alles zu kopieren, also quasi eine Excelsheet per Makro zu clonen?...ich hoffe es ja...weil das sonst extrem die Arbeit für mich wär :(

    hab leider per Suchfunktion nichts dazu gefunden.....

    Gruß sTeFaN :)
     
    sTeFaN1989, Aug 25, 2009
    #1
  2. Beverly

    Beverly Halbes Megabyte

    Hi Stefan,

    du musst einen anderen Weg gehen und das komplette Tabellenblatt kopieren:

    Code:
        ActiveSheet.Copy after:=Worksheets(Worksheets.Count)
    ActiveSheet.Name = "Protection (" & sname + 1 & ")"
    Die nicht benötigten Zellbereiche kannst du anschließend löschen.
     
    Beverly, Aug 25, 2009
    #2
  3. sTeFaN1989

    sTeFaN1989 Byte

    jaa super...funktioniert wie gewollt :)
     
    sTeFaN1989, Aug 25, 2009
    #3
Thread Status:
Not open for further replies.

Share This Page