Office: (Office 2007) Arbeitsmappe kopieren und Werte einfügen

Huhu,

ich möchte gerne eine komplette Arbeitsmappe kopieren und gleichzeitig, statt den vielen Formeln, nur die Werte eingefügt haben.
Habt ihr da ein Makro für mich? :)

Viele Grüße
Robbi Rob

 

Hi Robbi,

Code:

Sub Kopieren()
    Dim wkbMappe As Workbook
    Dim wksTab As Worksheet
    ThisWorkbook.Sheets.Copy
    Set wkbMappe = ActiveWorkbook
    With wkbMappe
        For Each wksTab In .Worksheets
            wksTab.Cells.Copy
            wksTab.Range("A1").PasteSpecial Paste:=xlPasteValues
        Next wksTab
    End With
    Set wkbMappe = Nothing
End Sub

Bis später,
Karin

 

Hi Karin,

geil danke!
Bis später? Ja, wer weiß.. ;)
Kann das aber wahrscheinlich erst Mittwoch testen.

Viele Grüße

 

Moin,

das funktioniert soweit schonmal.
Es gibt wohl noch die Möglichkeit, die Mappe dann unter einem anderen Namen automatisch wegzuspeichern? :)

Gruß RobbiRob

 

Hi,

diesen Arbeitsschritt kann man mit dem Makrorekorder aufzeichnen.

Bis später,
Karin