Kopierte Zellen markieren

[elamigo]

hey zusammen,

ich habe eine Tabelle aus der ich mit folgendem Makro erfolgreich ein gefilterten Bereich in eine Vorlage kopiere. 

Code:

Sub Makro2()
'
' Makro2 Makro

   Range("A6:AJ1500").SpecialCells(xlCellTypeVisible).Copy
   Workbooks.Open Filename:= _
       "S:\XXXXXXXXXXXXXXXXXX\XXXXXXXXXXXXXXXXX\Vorlage.xlsm"
   Range("a6").Select
   ActiveSheet.Paste
End Sub

Nun würde ich gerne in der "Master Tabelle" die Datensätze welche geschickt wurden farblich markieren. Am besten erst nachdem diese kopiert wurden.

[elamigo]

aktuell möchte ich einfach per makro die gefilterten Zellen farblich markieren, habe dazu dieses Makro aus dem recorder, allerdings färbt er mir die Zellen nur für einen Bruchteil einer Sekunde und macht die Zellen dann wieder wie vorher 

Code:

Sub Makro3()
'
' Makro3 Makro
'

'

   Range("a6:A1155").Select
   With Selection.Interior
       .PatternColorIndex = xlAutomatic
       .ThemeColor = xlThemeColorAccent2
       .TintAndShade = 0.599993896298105
       .PatternTintAndShade = 0
   End With
     
End Sub

Wenn ich mit Einzelschritten durch den Code gehe färbe ".TintandShade" die Zellen Rot aber im nächsten Schritt wird es einfach entfernt. Wenn ich ".PatternTintandShade" lösche passiert das gleiche und er macht nach dem Makro die Zellen wieder "neutral".

[schauan]

Hallöchen,

ich könnte mir vorstellen, Du hast eine bedingte Formatierung dabei

[elamigo]

Hi Andre,

nicht ganz, ich hab aber raus gefunden das man für färben lieber dieses Code nehmen soll, dieser geht ohne Probleme. 

Code:

Range("A6:A1155").Interior.Color = vbRed

[elamigo]

allerdings markiert er mir auch alle Zellen obwohl ich gefiltert habe. Einer eine Lösung?

[Elex]

Hi

eigentlich hast du doch schon alles was du brauchst rausgefunden. Nun kombiniere es einfach.

SpecialCells(xlCellTypeVisible)
Interior.Color

Gruß Elex

[elamigo]

Jap danke! klappt!