Hallo,
ich hoffe , ich habe dich richtig verstanden. Das folgende Makro gehört in ein
Standard-Modul deiner Arbeitsmappe:
Sub kopieren()
Dim dblDaten
Dim lngLetzte As Long
Dim lngZeile As Long
Dim lngPruef As Long
'Bildschirmaktualisierung ausschalten:
Application.ScreenUpdating = False
'Spalte E löschen
Range("E1:E10000").ClearContents
'Letzte Zeile in Spalte I ermitteln
lngLetzte = ActiveSheet.Cells(Rows.Count, 9).End(xlUp).Row
'Daten in Array dblDaten einlesen
dblDaten = ActiveSheet.Range("A1:D10000")
'Zeilen 1 bis 10000 durchlaufen
For lngZeile = 1 To 10000
'Inhalte der einzelnen Zeilen in Spalten I bis L schreiben
For lngPruef = 1 To 4
Cells(1, 8 + lngPruef) = dblDaten(lngZeile, lngPruef)
Next lngPruef
'prüfen, ob Zeilen in Spalten I bis L Null ergeben
For lngPruef = 2 To lngLetzte
If Application.WorksheetFunction.Sum(Range(Cells(lngPruef, 9), Cells(lngPruef, 12))) = 0 Then Cells(lngZeile, 5) = lngPruef
Next lngPruef
Next lngZeile
'Bildschirmaktualisierung einschalten:
Application.ScreenUpdating = True
MsgBox "Kopieren beendet", 64, "ENDE"
End Sub
Das Makro muss aus dem Arbeitsblatt, in dem deine Daten stehen, gestartet werden.
Ich weiß nicht ob, du in den Zeilen I3 ff. noch weitere Formel hinterlegt hast, Die von dir geposteten Formeln in den Spalten I2 bis L2 ergeben in der Summe ja nur Null, wenn alle 4 Zahlen gleich sind. Wenn es nur das ist, kann man das auch anders lösen.
Gruß
M.O.