|
Halo zusammen,
ich habe ein kleines Problem. Ich habe ein Makro aufgezeichnet das mir in einer Jahresauswertung das aktuelle Quartal farblich hervorheben soll und alle anderen Quartale eingegraut. Nun habe ich das Problem das ich mit dem Makro nur im aktuellen Quartal arbeiten kann. Sprich, heute 26.01. = Q1, wird auch nur dieses Quartal hervorgehoben. (siehe Makro)
Sub aktuellesQuartal()
On Error Resume Next
' B-D & W-X grün färben für aktuelles Quartal sonst grau
Sheets("SOP Gmbh").Select
For Zeile = 86 To 3 Step -1
If Int(Format(Date, "Q")) = Sheets("SOP Gmbh").Range("A" & Zeile) Then
Union(Range("B" & Zeile & ":" & "F" & Zeile), Range("H" & _
Zeile, "I" & Zeile), Range("K" & Zeile, "L" & Zeile), Range("N" & _
Zeile, "O" & Zeile), Range("Q" & Zeile, "R" & Zeile), Range("T" & _
Zeile, "U" & Zeile), Range("W" & Zeile, "X" & Zeile)).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
.PatternTintAndShade = 0
End With
'MsgBox Format(Date, "Q")
Else
Union(Range("B" & Zeile & ":" & "F" & Zeile), Range("H" & _
Zeile, "I" & Zeile), Range("K" & Zeile, "L" & Zeile), Range("N" & _
Zeile, "O" & Zeile), Range("Q" & Zeile, "R" & Zeile), Range("T" & _
Zeile, "U" & Zeile), Range("W" & Zeile, "X" & Zeile)).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.499984740745262
.PatternTintAndShade = 0
End With
End If
Ich möchte nun, am besten durch eine InputBox, vorgeben welches Quartal er einfärben soll. Es gibt zwar die Möglichkeit das Computerdatum zurück zu setzen aber da ich keine Admin-Rechte habe müsste ich immer mit der IT Kontakt auf nehmen. Muss ja auch nicht sein.
Hat vllt. einer von euch eine Idee wie die Codezeile heissen muss oder hat vllt. jemand eine bessere, weil einfachere, Lösung?
Für Lösungsvorschläge bin ich sehr Dankbar.
Mit freundlichen Grüßen
Sven G.
|