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
|