Farbenzauber
31.01.2016 08:45:08
Aston
Guten Morgen zusammen
ich hätte zwei Fragen:
1. Folgendender Code macht mir "Sorgen":
Sub farbe_db()
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorLight2
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
Selection.Locked = True
farbe_aktivezelle = ActiveCell.Interior.TintAndShade
End Sub
in farbe_aktivezelle steht aber leider "0.399945066682943" und zeigt auch nicht die gewünschte Farbe an. beim Kopieren einer "richtig gefärbten Zelle" klappt es.. :-(
was mache ich falsch?
LG und Merci für einen Tip.
2. Habt ihr mir einen "Buch"tip für VBA mit outlook... es ist schwer ohne Markorecorder sich das anzueignen...
PS.: 1467273 Merci Mumpel.. es funzt!!!
Anzeige