Thema: Wert von einer Zelle zur anderen in mehreren Tabellen übernehmen

Home

Gruppe

Allgemein

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

Finden und Kopieren	Nur Text in die Zwischenablage kopieren
Kopieren Spalte aus AutofilterTabelle	Daten in "Excel-Datenbank" kopieren
Spalten kopieren	Komplettes Excel Sheet kopieren mit Formaten
Tab. kopieren & neue Daten in Datenbank einfuegen	Inhalte von einer PDF suchen und den Text kopieren
Datensatz kopieren+einfügen - Code verinfachen	VBA- aus anderer Mappe kopieren)mit Kriterium)
Datum abfragen und Werte kopieren	sverweis klappt nicht ( bei runter kopieren)
Bestimmten Bereich anhand Zeilenabgabe kopieren	VBA Suchen, kopieren, einfügen
VBA bestimmte Spalten kopieren	Namen der Tabellen kopieren
Finden und kopieren	Array in Tabelle kopieren, Verlust von Format
VBA: Kopieren nicht vorhandener Werte	Zeile automatisch hoch kopieren
Spalte in andere Dateien kopieren + zurückkopieren	kopieren von Zeilen in ein neues Sheet
VBA - Neues Tabellenblatt soll altes kopieren	Zeilen in anderes Tabellenblatt kopieren
Daten kopieren mit Bedingung	Ordner mit Unterordnern/Dateien kopieren
Gefilterte Tabelle kopieren	Daten aus worksheets kopieren
Kopieren wenn	Daten aus Excel in andere Software kopieren
Kopieren über 2 Dateien?	Formelspalten in viele Tabellenblätter kopieren
2 Dateien Vergleichen und Spalten kopieren?	2 Dateien Vergleichen und Spalten kopieren?
Zeile einfügen, Daten kopieren und transponieren	Probleme beim Kopieren Word Tabelle nach Excel
Sheet aus File kopieren und in zig andere einfügen	Makro Zelleninhalte kopieren und einfügen
String mit Buchstaben & Zahlen suchen und kopieren	Daten zwischen Arbeitsblättern per Makro? kopieren
Format mit VBA kopieren	Makro - Selektieren Kopieren und Einfügen
Automatisches Kopieren von Blättern	kopieren, sheet benennen, automatisch speichern
Suchen und Kopieren mit Schleife	Kopieren und inhalte einfügen Makro
Zelle hochzählen und erhaltenen Wert kopieren	Blatt kopieren
Excel schmiert beim Kopieren ab