VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Wert von einer Zelle zur anderen in mehreren Tabellen übernehmen

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Kopieren