Hi Forum,
Habe eine Tabelle ("Datenbank") mit sehr vielen Daten, welche ich in verschiedene Tabellenblätter kopieren möchte. Es wird abgefragt ob in Spalte Q (beginnend bei Q3 bis Q65536) ein Wert vorhanden ist und ob diese Zelle gelb oder rot hinterlegt ist. Falls JA, sollen gewisse Werte aus der Tabelle "Datenbank" in die "Tabelle1" (aber erst ab A5) kopiert werden:
"Datenbank" in "Tabelle 1"
Zelle A in Zelle A
Zelle J in Zelle B
Zelle D in Zelle C
Zelle E in Zelle D
Zelle Q in Zelle E
Zelle M in Zelle F
Da ich nicht weiß, ob alle Spalten gefüllt sind, möchte ich das Kopieren so steuern, dass die Einträge in "Tabelle1" immer zeilenweise erfolgen. Das muss irgendwie mit Range("A" & i).Copy gehen. Wie muss aber der Code lauten, dass erst ab Zelle A5 in "Tabelle1" kopiert wird? Unten ist noch mein Ansatz für das Makro. Bin für alle Vorschläge dankbar.
Ciao, Eleni
For Each i In Range("Q3", Cells(Rows.Count, 17).End(xlUp))
'Gelb
If i "" And i.Interior.ColorIndex = 6 Then
Sheets("Datenbank").Range("A" & i).Copy
Sheets("Tabelle1").Range("A" & i).Paste
End If
'Rot
If i "" And i.Interior.ColorIndex = 3 Then
Sheets("Datenbank").Range("A" & i).Copy
Sheets("Tabelle1").Range("A" & i).Paste
End If
Next i