Sub woerter_verbinden()

Dim offset As Integer
Dim aktuelle_zeile As Integer

Dim wort1 As String
Dim wort2 As String
Dim neues_wort As String


offset = 4

For i = 1 To 4 Step 1
  aktuelle_zeile = offset + i
  wort1 = ActiveWorkbook.Worksheets("page_A").Range("H" & aktuelle_zeile).Value
  wort2 = ActiveWorkbook.Worksheets("page_A").Range("I" & aktuelle_zeile).Value
  neues_wort = wort1 & "-" & wort2
  ActiveWorkbook.Worksheets("page_A").Range("K" & aktuelle_zeile).Value = neues_wort
Next i
End Sub