Gruppe
Allgemein
Problem
In allen Tabellenblättern ab dem 2. Blatt soll der Wert in Zelle A5 gegen den in Zelle A1 getauscht werden.
StandardModule: Modul1
Sub SetValues()
Dim wks As Worksheet
For Each wks In Worksheets
If wks.Index <> 1 Then
wks.Range("A1").Value = wks.Range("A5").Value
End If
Next wks
End Sub