Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Wert von einer Zelle zur anderen in mehreren Tabellen übernehmen

Gruppe

Kopieren

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