AW: Copy und Paste nach Zahlen Vorgabe aus Zellen
15.05.2016 16:12:51
Sdravi
hy,
Private Sub CommandButton1_Click()
' Kopieren2 Makro
Range("D" & Range("J1") & ":H" & Range("K1")).Select
Selection.Copy
Sheets("Tabelle2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Private Sub CommandButton2_Click()
' Kopieren2 Makro
Range("D" & Range("J3") & ":H" & Range("K3")).Select
Selection.Copy
Sheets("Tabelle3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Private Sub CommandButton3_Click()
' Kopieren2 Makro
Range("D" & Range("J5") & ":H" & Range("K5")).Select
Selection.Copy
Sheets("Tabelle4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
hab etwas aufgezeichnet und bissl verändert jetzt funct der obere Code fast so wie ich es brauche.
wie muss ich den Code verändern das er immer in die Jeweilgen Tabellen ab Zeile 2 die Werte einfügt?