ich möchte per vba code aus tabelle1 spalte j1:j10 die werte nach tabelle2 in j1:j20 mit einer leerzeile ohne formeln kopieren.
wäre schön wenn ihr mir helfen könntet
mfg
steffen
Sub kopieren()
Application.ScreenUpdating = False
For i = 1 To 10
Sheets("Tabelle1").Select
Range("J" & i).Select
Selection.Copy
Sheets("Tabelle2").Select
Range("J" & 2 * i - 1).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Next i
Application.ScreenUpdating = True
End Sub
Sub kopieren()
Dim i As Long
Application.ScreenUpdating = False
For i = 1 To 10
Sheets("Tabelle2").Range("J" & 2 * i - 1) = Sheets("Tabelle1").Range("J" & i)
Next i
Application.ScreenUpdating = True
End Sub