|
Hallo,
mein jetziges Makro (siehe unten) möchte ich etwas verbessern.
Dieses Makro kopiert den darüber liegenden Inhalt in ein darunterliegendes LEERES Feld. Ich möchte, dass das Makro dieses nur bei den gelben Spalten tut. Das heißt, dass obere x in die jeweils leere gelbe (Farbcode 36) Zelle kopieren. Darunter befinden sich auch orangene Zellen (Farbcode 44). In diese Orangenen Zellen soll nichts kopiert werden. Mit dem derzeitigen Makro fügt er in alle Zellen etwas ein, auch orangene Felder. Es betrifft die Spalten A, B, C und E.
Mein jetziges Makro:
Sub makro()
Dim Bereich As Range, Zelle As Range
Set Bereich = Range("A10:A4000")
For Each Zelle In Bereich.SpecialCells(xlCellTypeBlanks)
Zelle = Zelle.Offset(-1, 0)
Next Zelle
Set Bereich = Range("C1:C4000")
For Each Zelle In Bereich.SpecialCells(xlCellTypeBlanks)
Zelle = Zelle.Offset(-1, 0)
Next Zelle
Set Bereich = Range("B1:B4000")
For Each Zelle In Bereich.SpecialCells(xlCellTypeBlanks)
Zelle = Zelle.Offset(-1, 0)
Next Zelle
Set Bereich = Range("E1:E4000")
For Each Zelle In Bereich.SpecialCells(xlCellTypeBlanks)
Zelle = Zelle.Offset(-1, 0)
Next Zelle
End Sub
Kann mir jemand weiterhelfen? Vielen Dank schonmal!
|