Hallo zusammen,
ich bin blutiger Anfänger was VBA betrifft, ihr könnt mir sicher helfen. Für euch ist das vermutlich ein einfaches Problem was ich habe.
In "Sheet1" habe ich in Werte in den Zellen A1:A1600 stehen. Das Makro soll in Sheet1 bei A1 anfangen, den Inhalt kopieren, in C2 einfügen und die Werte die dann in H1:J4 stehen in das "Sheet3" kopieren. Danach soll zurück in Sheet1 gesprungen werden und der Wert A2 genommen werden, usw. usw.
In diesem Script springt er halt immer wieder zur letzten Auswahl.
Vielen Dank schonmal für die Hilfe!
Range("A1").Select
Selection.Copy
Range("C2").Select
ActiveSheet.Paste
Range("H1:J4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("A:C").Select
Columns("A:C").EntireColumn.AutoFit
Range("C13").Select
Sheets("Sheet1").Select
Selection.Offset(1, 0).Select
|