Makro in allen Blättern einer bestimmten Mappe

Bild

Betrifft: Makro in allen Blättern einer bestimmten Mappe
von: Markus
Geschrieben am: 19.11.2003 21:49:47

Hallo,

ich brauche bitte Eure Hilfe.

Ich habe folgenden Code:


Sub asw()
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
End Sub


Diesen möchte ich gern in allen Blättern einer bestimmten Mappe ausführen.

Wie kann ich das machen?

Der Hintergrund ist der ich möchte nach einem "Monatsabschluss", alle Daten in der Mappen inlusive aller Formeln in absolute Werte umwandeln und damit gegen Änderungen schützen.

Wenn Ihr noch eine andere Idee habt, als das kopieren und einfügen wäre ich Euchg sehr dankbar.

MFG


Markus
Bild


Betrifft: AW: Makro in allen Blättern einer bestimmten Mappe
von: Josef Ehrensberger
Geschrieben am: 19.11.2003 22:16:14

Hallo markus,

probier mal dieses Makro.



Sub FesteWerte()
Dim rng As Range
Dim wksh As Worksheet
Application.ScreenUpdating = False
For Each wksh In ThisWorkbook.Sheets
For Each rng In wksh.UsedRange
rng = rng.Value
Next
Next
Application.ScreenUpdating = True
End Sub


Gruß Sepp


Bild


Betrifft: super klapprt prima, danke Dir
von: Steffen
Geschrieben am: 20.11.2003 16:32:17

Steffen


Bild

Beiträge aus den Excel-Beispielen zum Thema " Makro in allen Blättern einer bestimmten Mappe"