ich möchte die Zellenformatierung aus Tabelle1 in einen Bereich auf Tabelle2 kopieren und gleichzeitig "transponieren".
Folgenden Quellcode habe ich:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Tabelle1.Range("A1:A25").Copy
Tabelle2.Activate
Range("B1").Select ' hier meckert Excel
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Application.EnableEvents = True
End Sub
Der Quellcode funktioniert nur dann, wenn ich Tabelle2.Activate weglasse. Doch ich muss die Formatierung von Tabelle1 auf Tabelle2 kopieren. Hat jemand ´ne Idee, was da falsch ist?
Kann man irgendwie auf "Select" und "activate" verzichten?
Viele Grüße
Mathias