Sub neue_Daten()
 
  Dim wksKampf As Excel.Worksheet
  Dim wksInitiative As Excel.Worksheet
 
  Set wksKampf = Worksheets("Kampf")
  Set wksInitiative = Worksheets("Initiative")
 
  'Deklaration der Variablen
  Dim i As Long, j As Long
 
  'Durchlaufen der Zellen im Tabellenblatt "Kampf" in Spalte B
  For i = 3 To 100
    'Prüfen, ob die Zelle in Spalte A ein "x" enthält
    If wksKampf.Cells(i, "A") = "x" Then
      'Durchlaufen der Zellen im Tabellenblatt "Initiative" in Spalte E
      For j = 3 To 100
        'Prüfen, ob die Zelle im Tabellenblatt "Kampf" und "Initiative" übereinstimmt
        If wksKampf.Cells(i, "B") = wksInitiative.Cells(j, "E") Then
          'Kopieren der Werte aus den Spalten L bis CF in die Spalten H bis CB im Tabellenblatt "Kampf"
          wksKampf.Range(wksKampf.Cells(i, "H"), wksKampf.Cells(i, "CB")).Value = _
            wksInitiative.Range(wksInitiative.Cells(j, "L"), wksInitiative.Cells(j, "CF")).Value
        End If
      Next j
    End If
  Next i

End Sub