Kopierfehler
13.09.2005 08:24:29
Eleni
Habe folgenden Code, der mir aus einer riesigen Tabelle ("BM-Datenbank") Daten in andere Tabellen (z.B: "Ölwechsel", "Filter") kopiert. Allerdings sollen die Einträge in den Tabellen "Ölwechsel", "Filter", etc. immer erst ab der 8. Zeile eingetragen werden. Der unten stehende Code macht aber folgendes: Angenommen es gibt 30 Einträge für die Tabelle "Ölwechsel" und 30 für die Tabelle "Filter", dann schreibt er in die Tabelle "Ölwechsel" die 30 Einträge in die Zeilen 8 bis 37 und in der Tabelle "Filter" die 30 Einträge in die Zeilen 38 bis 67. Wo liegt der Fehler? Bin für jeden Vorschlag dankbar.
Ciao, Eleni
Dim j As Range, n As Long
n = 8
'Monatsprogramm Ölwechsel
For Each j In Range("BV3", Cells(Rows.Count, 74).End(xlUp))
If j "" Then
Select Case j.Interior.ColorIndex
Case 3, 6
Sheets("BM-Datenbank").Range("A" & j.Row).Copy Sheets("Ölwechsel").Range("A" & n)
Sheets("BM-Datenbank").Range("J" & j.Row).Copy Sheets("Ölwechsel").Range("B" & n)
Sheets("BM-Datenbank").Range("D" & j.Row).Copy Sheets("Ölwechsel").Range("C" & n)
Sheets("BM-Datenbank").Range("E" & j.Row).Copy Sheets("Ölwechsel").Range("D" & n)
Sheets("BM-Datenbank").Range("BO" & j.Row).Copy Sheets("Ölwechsel").Range("E" & n)
Sheets("BM-Datenbank").Range("BP" & j.Row).Copy Sheets("Ölwechsel").Range("F" & n)
Sheets("BM-Datenbank").Range("BQ" & j.Row).Copy Sheets("Ölwechsel").Range("G" & n)
Sheets("BM-Datenbank").Range("BV" & j.Row).Copy Sheets("Ölwechsel").Range("H" & n)
Sheets("BM-Datenbank").Range("BR" & j.Row).Copy Sheets("Ölwechsel").Range("I" & n)
n = n + 1
End Select
End If
Next j
'Monatsprogramm Filter
For Each j In Range("CJ3", Cells(Rows.Count, 88).End(xlUp))
If j "" Then
Select Case j.Interior.ColorIndex
Case 3, 6
Sheets("BM-Datenbank").Range("A" & j.Row).Copy Sheets("Filter").Range("A" & n)
Sheets("BM-Datenbank").Range("J" & j.Row).Copy Sheets("Filter").Range("B" & n)
Sheets("BM-Datenbank").Range("K" & j.Row).Copy Sheets("Filter").Range("C" & n)
Sheets("BM-Datenbank").Range("C" & j.Row).Copy Sheets("Filter").Range("D" & n)
Sheets("BM-Datenbank").Range("CB" & j.Row).Copy Sheets("Filter").Range("E" & n)
Sheets("BM-Datenbank").Range("CC" & j.Row).Copy Sheets("Filter").Range("F" & n)
Sheets("BM-Datenbank").Range("CD" & j.Row).Copy Sheets("Filter").Range("G" & n)
Sheets("BM-Datenbank").Range("CE" & j.Row).Copy Sheets("Filter").Range("H" & n)
Sheets("BM-Datenbank").Range("CF" & j.Row).Copy Sheets("Filter").Range("I" & n)
Sheets("BM-Datenbank").Range("CJ" & j.Row).Copy Sheets("Filter").Range("J" & n)
n = n + 1
End Select
End If
Next j