Office: Werte aus bestimmter Spalte nach rechts kopieren

Hallo Zusammen,

ich kenne mich leider nicht wirklich mit VBA aus und kann mir nur immer etwas zusammenschustern.

Ich habe zwei Makros, die zwar funkionieren, aber nicht genau das tun, was sie sollen. Makro 1 tut fast, was es soll. Jedoch bekomme ich es nicht hin, dass er die Werte beim Einfügen immer eine Spalte weiter schiebt, wie im Makro 2. Makro 2 hingegen schiebt weiter, fügt aber die Formeln mit ein. Ich schaffe es einfach nicht, diese beiden zusammenzubringen.

Ich würde mich sehr freuen, wenn jemand hilft *Smilie Vielen Dank vorab!

Makro 1

Sub WerteNachRechtsKopieren()

Range("B3:B9").Select
Selection.Copy
Range("D3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B3").Select
Application.CutCopyMode = False
Selection.Copy
Range("D3").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("B4:B9").Select
Selection.Copy
Range("D4*biggrin.gif*9").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub


Makro 2

Sub ZellenNachRechtsKopieren()
Columns("B:B").Select
Range("B3:B9").Activate
Selection.Copy
Columns("D*biggrin.gif*").Select
Range("D3*biggrin.gif*9").Activate
Selection.Insert Shift:=xlToRight
Application.CutCopyMode = False
End Sub

:)

 

Code:

Select, Activate usw. ist in VBA zu 99,8% nicht notwendig.
Der Cursor ist kein Hund der überall rumgeführt werden muss.
Hinweise zu select usw. Online-Excel.de

 

Oder noch kürzer:

Code:

 

Vielen Dank! Eure Scripts sehen sauberer aus, machen aber leider nicht anderes, als mein Script oben. Es geht darum, dass die Werte 1 in eine neue Spalte kopiert werden und beim nächsten Kopieren die Werte 2 den Platz von Werte 1 einnehmen und die Werte 1 in die Spalte daneben geschoben werden. Also beim zweiten Kopieren wird für die Werte eine neue Spalte kopiert, in die die Werte 2 eingetragen werden.

 

Hallo JJay,

für solche Spezial-Kopierereien, (deren Nutzen ich nicht verstehe), solltest Du uns mehr unterstützen und eine brauchbare Demodatei bereitstellen.
Ich lese lieber Vba-Zeilen an statt Beschreibungszeilen, wobei eine Vorher-/Nachher Ansicht praktisch ist.

Gruß von Luschi
aus klein-Paris