Thema Datum  Von Nutzer Rating
Antwort
Rot Quartalauswahl per Inputbox
 26.01.2017 16:47:50 Sven G.
NotSolved
26.01.2017 22:03:32 Onur
NotSolved
26.01.2017 22:10:23 Onur
NotSolved
27.01.2017 13:02:14 Gast70481
NotSolved
27.01.2017 18:12:12 Onur
NotSolved
27.01.2017 18:37:55 Sven G.
NotSolved
27.01.2017 18:45:36 Onur
NotSolved
30.01.2017 11:33:38 Sven G.
NotSolved

Ansicht des Beitrags:
Von:
Sven G.		 Datum:
26.01.2017 16:47:50		 Views:
1279		 Rating:
     
Antwort:
  Ja
Thema:
Quartalauswahl per Inputbox

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)

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Quartalauswahl per Inputbox
 26.01.2017 16:47:50 Sven G.
NotSolved
26.01.2017 22:03:32 Onur
NotSolved
26.01.2017 22:10:23 Onur
NotSolved
27.01.2017 13:02:14 Gast70481
NotSolved
27.01.2017 18:12:12 Onur
NotSolved
27.01.2017 18:37:55 Sven G.
NotSolved
27.01.2017 18:45:36 Onur
NotSolved
30.01.2017 11:33:38 Sven G.
NotSolved