verschiedene Zellinhalte kopieren und in letzte
24.01.2019 11:19:41
Andre
Ich habe mal ein Problem und zwar möchte ich verschiedene Zellinhalte kopieren und ab D12 ohne Werte eingefügt werden.
Es soll immer in der letzten beschriebenen Zelle eingefügt werden.
Ich habe es schon mal mit dem Makrorekorder probiert.
Das ist dabei raus gekommen
Vielen Dank für eure Hilfe schon im voraus
Private Sub CommandButton1_Click()
Range("I4").Select
Selection.Copy
Range("D12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("H4").Select
Application.CutCopyMode = False
Selection.Copy
Range("E12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("H6").Select
Application.CutCopyMode = False
Selection.Copy
Range("F12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("H7").Select
Application.CutCopyMode = False
Selection.Copy
Range("G12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("I6").Select
Application.CutCopyMode = False
Selection.Copy
Range("H12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("I7").Select
Application.CutCopyMode = False
Selection.Copy
Range("I12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B4").Select
End Sub