Kopieren in andere Tabellenblätter
04.04.2007 12:40:00
Gisela
ich habe eine Arbeitsmappe mit 52 Tabellenblättern. Wenn in einem Tabellenblatt Änderungen vorgenommen werden, muß ich diese Änderungen auf alle Tabellenblätter übernehmen, die rechts stehen.
Beispiel:
Änderung in TBWoche 24. Dann sollen alle Änderungen in WocheTB25 bis TB52 übernommen werden.
Änderung in TBWoche 33. Dann sollen alle Änderungen in WocheTB34 bis TB52 übernommen werden.
Von einem TB zum anderen, klappts so:
Sub SpaltenÜbertragen()
Dim Blatt1 As Worksheet
Dim Blatt2 As Worksheet
Dim i As Integer
Dim e As Integer
Set Blatt1 = Sheets("Woche")
Set Blatt2 = Sheets("Woche1")
For i = 1 To ActiveSheet.UsedRange.Rows.Count
For e = 1 To ActiveSheet.UsedRange.Columns.Count
Blatt2.Cells(i, e) = Blatt1.Cells(i, e)
Next e
Next i
End Sub
Es gibt sicher eine einfachere Lösung.
Wer kann mir bitte helfen und sagen was ich verändern muß, damit das Makro auf jedem TB funktioniert?
Vielen Dank und liebe Grüße
Gisela
Anzeige