Zellen vergleichen und an andere Stelle kopieren
01.11.2007 16:13:00
Ralph
ich mehrere tausend Zeilen an Daten. Die Daten stehen jeweils in den Spalten A bis E. Normalerweise treten einzelne Datensätze in Pärchen auf, also 2 aufeinanderfolgende Zeilen gehören zusammen. Ob sie zusammengehören sieht man an Spalte B, wenn die Werte identisch sind. Es gibt aber leider auch Fälle, bei denen nur ein Datensatz, sprich nur eine Zeile vorhanden ist.
Nun will ich die jeweils 1. Zeile dieser Pärchen, bzw. die einzelnen Datensätze an eine andere Stellen kopieren. Wohin kopiert werden soll, entscheidet bei Pärchen der Wert in Spalte E der betreffenden Zeile i.
Ist der Wert dieser Zelle "-1", dann sollen die Zellen Ai bis Ei in Zelle Gi kopiert werden.
Ist der Wert dieser Zelle "0", dann sollen die Zellen Ai bis Ei in Zelle Mi kopiert werden.
Handelt es sich um einen einzelnen Datensatz, dann sollen dessen Zellen Ai bis Ei in Zelle Si kopiert werden.
Ich habe folgendes Macro (ich verwende Excel 2004 für Macs) geschrieben, aber es funktioniert nicht. Es erscheint folgende Fehlermeldung:
Laufzeitfehler '1004'
Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen
Sub Aufteilung()
i = 1
Do Until IsEmpty(Cells(i + 1, 1))
If Cells(i, 2) = Cells(i + 1, 2) And Cells(i, 5) = -1 Then
Range(Cells(i, 1), Cells(i, 5)).Copy Range(Cells(i, 7))
i = i + 2
Else
If Cells(i, 2) = Cells(i + 1, 2) And Cells(i, 5) = 0 Then
Range(Cells(i, 1), Cells(i, 5)).Copy Range(Cells(i, 13))
i = i + 2
Else
If Cells(i, 2) Cells(i + 1, 2) Then
Range(Cells(i, 1), Cells(i, 5)).Copy Range(Cells(i, 19))
i = i + 1
End If
End If
End If
Loop
End Sub
Was mache ich falsch?
Vielen Dank schonmal vorab für eure Hilfe!
Viele Grüße,
Ralph
Anzeige