VBA Schleife

[kmeleon]

Habe hier eine scheinbar einfache Schleife, mit der ich eine Aktion in allen Tabellenblättern der Datei ausführen möchte. Leider wird die Aktion nur in dem Blatt ausgeführt, welches gerade aktiv ist. Habe ich da etwas übersehen?

Code:

Sub CopyAsValues()

Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets

Range("A1:B100").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

Next ws

End Sub

 

[Knufu]

Versuche es erstmal mit ThisWorkbook statt ActiveWorkbook.

 

[kmeleon]

Hat leider nicht funktioniert.

 

[KRambo]

Glaube eher dass es daran liegt, dass du das nächste Sheet nicht selektierst. Probier mal

...
For Each ws In ActiveWorkbook.Worksheets
ws.Select
...

 

[kmeleon]

ws.Select hat gefruchtet.

Vielen Dank!

 

[Knufu]

Etwas kürzer

Sub CopyAsValues()
 
Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.Range("A1:B100").Value = Range("A1:B100").Value
   Next ws
End Sub