Makros auf anderem Datenblatt ausführen

Question

Ich will ein Makros ausführen auf einem anderen tabellenblatt. Ich will die Zellenformat auf einem zweiten erweitern. Beispiel wenn die Zeile x nach y einen rahmen hat soll dies auf dem tabellenblatt 2 ebenfalls geschrieben werden.

hab da mal etwas geschrieben was auch auf einem Tabellenblatt läuft aber ich nicht wei´ß wie ich als ziel eine anderes tabellenblatt angeben kann.

hier mein code

Sub Makro3()
'
' Makro3 Makro
' Makro am 26.04.2012 von xxxxx aufgezeichnet
'
'--- Zellbereiche zuweisen
Set Quelle = Range("d17:h17")
Set Ziel = Range("d21:h21")
ReDim arrSF(1 To Ziel.Rows.Count, 1 To Ziel.Columns.Count)

'--- Formate kopieren
Quelle.Copy
Ziel.PasteSpecial xlPasteFormats
Application.CutCopyMode = False
'


End Sub


p.s. Ich hab keine erfahrungen mit Makros

Answer 1

Hallo,

da reicht schon folgender Einzeiler

Option Explicit

Sub uebertragen()
Worksheets("Tabelle1").Range("D17:H17").Copy Worksheets("Tabelle2").Range("D2")
End Sub

Gruß
Rainer

Answer 2

Das hat funktioniert.
jedoch wäre es noch gut wenn ich das ziel auf tabelle 2 nicht horizontal sondern vertikal angeben könnte von a1:J1 nach tabelle 2 a1-a10 als beispiel

Answer 3

Hallo,
dann vielleicht so:

Sub Makro1()
Application.ScreenUpdating = False
Worksheets("Tabelle1").Range("A1:J1").Copy
Sheets("Tabelle2").Range("A1").PasteSpecial , SkipBlanks _
:=False, Transpose:=True
Application.ScreenUpdating = True
End Sub

Gruß
fedjo