Hallo Leute,
ich schreibe ein kleines Tool, bei welchem die Werte die untereinanderstehen in Zukunft nebeneinander stehen sollen.
Meine Lösung sieht wie folgt aus:
Range("A2:A51").Select
Selection.Copy
Range("C1:AZ1").PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Columns("A:A").Select
Selection.ClearContents
Im (F8) Debugger-Modus läuft es einwandfrei, jedoch im normalen Modus läuft es nicht.
Für Anregungen wäre ich dankbar.
bis dann
michael