'Video_003) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_003) start


Sub spalten_kopieren()
Dim zwischenvariable As String
Dim offset As Integer
Dim aktuelle_zeile As Integer
offset = 4
For i = 1 To 4 Step 1
  aktuelle_zeile = offset + i
  zwischenvariable = ActiveWorkbook.Worksheets("page_A").Range("H" & aktuelle_zeile).Value
  ActiveWorkbook.Worksheets("page_A").Range("K" & aktuelle_zeile).Value = zwischenvariable
Next i
End Sub

'Video_003) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_003) ende