Microsoft Excel

Herbers Excel/VBA-Archiv

Änderung

Betrifft: Änderung von: frank
Geschrieben am: 06.09.2004 11:22:22

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

  


Betrifft: AW: Änderung von: Marcl
Geschrieben am: 06.09.2004 11:34:56

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


  


Betrifft: AW: Änderung von: Frank
Geschrieben am: 06.09.2004 11:53:06

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


  


Betrifft: AW: Änderung von: Marcl
Geschrieben am: 06.09.2004 12:18:52

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


  


Betrifft: AW: Änderung von: Frank
Geschrieben am: 06.09.2004 13:04:49

Hallo Marcl,

wäre wohl sinvoll

Funktionert jetzt natürlich

Danke für deine Hilfe

Gruß
Frank