Guten Morgen zusammen,
am frühen Morgen macht VBA mal wieder nicht das, was ich möchte.
Folgendes Problem:
Ich habe ein Makro in einem Arbeitsblatt aufgezeichnet und möchte nun, dass dieses Makro in allen Arbeitsblättern ausgeführt wird. (Die Anzahl der Arbeitsblätter sind in mehreren Dateien verschieden).
Das Makro tut folgendes:
Es kopiert von dem ersten Arbeitsblatt ("Tabelle1") die Zeile 1. Diese soll in jedem Arbeitsblatt (z.B: Arbeitsblatt "AAA") in Spalte A transponiert eingefügt werden. Da aber schon Informationen in Spate A stehen muss vorher in jedem Arbeitsblatt die Spate A neu eingefügt werden.
Im zweiten Teil des Makros sollen neben jede Spalte in der Informationen stehen eine leere Spalte eingefügt werden. Die Anzahl der Spalten mit Informationen ist in den einzelnen Arbeitsblättern unterschiedlich.
Hier mein Makro:
Sheets("AAA").Select
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
Sheets("Tabelle1").Select
Rows("1:1").Select
Selection.Copy
Diese Schritte soll er in jedem Arbeitsblatt ausführen:
Sheets("AAA").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Range("A:A,B:B,C:C,D:D,E:E,F:F,G:G,H:H,I:I").Select
Range("I1").Activate
Application.CutCopyMode = False
Selection.Insert Shift:=xlToRight
Kann mit jemand helfen?!!!
Herzlichen Dank!
Basti