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.
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".
Hallöchen,
ich könnte mir vorstellen, Du hast eine bedingte Formatierung dabei
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
allerdings markiert er mir auch alle Zellen obwohl ich gefiltert habe. Einer eine Lösung?
Hi
eigentlich hast du doch schon alles was du brauchst rausgefunden. Nun kombiniere es einfach.
SpecialCells(xlCellTypeVisible)
Interior.Color
Gruß Elex