Gruppe
Allgemein
Bereich
Kopieren
Thema
Wert von einer Zelle zur anderen in mehreren Tabellen übernehmen
Problem
In allen Tabellenblättern ab dem 2. Blatt soll der Wert in Zelle A5 gegen den in Zelle A1 getauscht werden.
Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.
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