Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
480to484
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ä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

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
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
AW: Änderung
Frank
Hallo Marcl,
wäre wohl sinvoll
Funktionert jetzt natürlich
Danke für deine Hilfe
Gruß
Frank
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige