Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
480to484
480to484
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Änderung

Forumthread: Änderung

Änderung
06.09.2004 11:22:22
frank
Hallo Excel-Freunde
Meine Mappe besteht aus ca. 56 Tabellenblättern,
wenn sich nun im Blatt 7 in den Zellen A14:B44 eine Änderung ergibt
sollten sich diese Änderungen auch auf Blatt 7,11,16,21,26,31,36,41,46,51 auswirken
da diese Blätter immer mit dem Blatt 7 identisch sein sollten.
Diese Änderung möchte ich aber über eine Schaltfläche (Makro) durchführen.
Könnt ihr mir hierfür den geeigneten Code angeben.
Gruß
Frank
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Änderung
Marcl
Hallo Frank,
geht das nicht auch mit Verknüpfungen?
Range("A14:B44").Copy
Sheets(Array("11", "16", "21", "26", "31", "36", "41", "46", "51")).Select
Range("A14").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Gruß
Marcl
Anzeige
AW: Änderung
Frank
Hallo Marcl,
funkioniert leider nicht, so wie dieser Code würde es gehen
ist aber aufwendig.

Sub Aenderung()
Range("A14:B44").Select
Selection.Copy
Sheets("MA Frontplatten 2").Select
Sheets("MA Frontplatten 3").Select
ActiveSheet.Paste
Range("A14").Select
End Sub

Gruss Frank
Anzeige
AW: Änderung
Marcl
Hast Du meinen Code nicht ein wenig geändert?
Ich bin davon ausgegangen, dass die Blätter 11, 16, ... lauten.
statt der Zahlen, muss dann da der Blattname rein.
so ungefähr:
Range("A14:B44").Copy
Sheets(Array("MA Frontplatten 2", "MA Frontplatten 3", "MA Frontplatten ?", "MA Frontplatten ?", "MA Frontplatten ?", "MA Frontplatten ?", "MA Frontplatten ?", "MA Frontplatten ?", "MA Frontplatten ?")).Select
Range("A14").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Gruß Marcl
Anzeige
AW: Änderung
Frank
Hallo Marcl,
wäre wohl sinvoll
Funktionert jetzt natürlich
Danke für deine Hilfe
Gruß
Frank
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige