antonh
Oct 02, 2013, updated at Oct 11, 2013 (UTC)
view4777
view23
0
Goto Top

VBA Code für eine Roadmap

GermansolvedQuestionVB for ApplicationsDevelopment
Hallo zusammen,

ich benötige für ein Projekt einen Excel Kalender als Roadmap.

Ich werde noch ein Bild einfügen damit man es besser verstehen kann.

Und zwar möchte ich, wenn man einen Namen für das Projekt eingibt und dann die Quartale (Dauer) eingibt z.B.

Test Q1/14 - Q2/15

soll die sich die dahinter befindlichen Feld in einer Farbe färben von Q1/14 - Q2/15!

3070be17357fe749e47ee1caab767dec

Das Bild zeigt wie es fertig aussehen soll.

ich möchte also prüfen welche Werte im Feld (Start) und im Feld (End) stehen und mit hilfe dieser Werte eine fabige Makierung dahinter!

Und jetzt brauch ich bitte Hilfe!
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 218348

Url: https://administrator.de/contentid/218348

Printed on: April 19, 2024 at 21:04 o'clock

23 Comments
Latest comment
Goto Top
Member: MoeSys
MoeSys Oct 02, 2013 at 09:36:37 (UTC)
Goto Top
Hi Anton,

da reicht doch die im Excel integrierte Bedingte Formatierung!!

LG
Moe
Member: colinardo
colinardo Oct 02, 2013 at 10:22:38 (UTC)
Goto Top
Hallo AntonH,
wie MoeSys schon schreibt reicht dafür eine bedingte Formatierung auf Basis einer Formel. Anhand deines Bildes lautet die Formel in der bedingten Formatierung folgendermaßen:
=UND(WERT(RECHTS($C3;2)&TEIL($C3;2;1))<=WERT(RECHTS(E$2;2)&TEIL(E$2;2;1));WERT(RECHTS($D3;2)&TEIL($D3;2;1))>=WERT(RECHTS(E$2;2)&TEIL(E$2;2;1)))
Du markierst also den Bereich wo die Balken erscheinen sollen, wählst dann Bedingte Formatierung > Neue Regel > "Formel zur Ermittlung ..." und fügst die obige Formel ein und setzt du dort noch mit "Formatieren" eine Hintergrundfarbe für die Zelle.

Grüße Uwe
Member: AntonH
AntonH Oct 02, 2013 at 11:02:13 (UTC)
Goto Top
Genau, ich will den bereich nicht makieren müssen. Das soll Excel selber machen ich will bei Start z.B. Q2/14 und Ende z.B. Q3/15 rein schreiben und Excel dann genau diesen Bereich fabig makieren. ich will da nur die zahlen rein schreiben sonst nix!!!
Member: colinardo
colinardo Oct 02, 2013 updated at 11:05:54 (UTC)
Goto Top
da hast du mich falsch verstanden, du legst hier nichts fest sondern Excel formatiert die Zellen entsprechend deiner Eingaben in Spalte C und D... deswegen heißt es ja "bedingte" Formatierung in die Zellen musst du nichts reinschreiben !!!
Member: colinardo
colinardo Oct 02, 2013 at 11:07:42 (UTC)
Goto Top
Hier ein Demo-Dokument zur Veranschaulichung -> Download
Member: AntonH
AntonH Oct 02, 2013 at 11:07:49 (UTC)
Goto Top
Und wo muss ich die bedingte Formatierung hinmachen? Ich hab des grad mal ausprobiert und leider ist nix passiert!
muss ich den gesamt Bereich E bis T Makieren an welches Feld muss ich die Formatierung binden?
Member: AntonH
AntonH Oct 02, 2013 at 11:08:28 (UTC)
Goto Top
Kann ich leider nicht übers firmen netz laden
Member: colinardo
colinardo Oct 02, 2013 at 11:13:51 (UTC)
Goto Top
Zitat von @AntonH:
Kann ich leider nicht übers firmen netz laden

6f231bd05063e7a01aac53f8c7454330
Member: AntonH
AntonH Oct 11, 2013 at 06:56:30 (UTC)
Goto Top
Ich möchte das Thema nochmal neu aufgreifen, da ich irgendwie immer noch nicht zureckt komme.


3070be17357fe749e47ee1caab767dec


Hier ist nochmal das Bild wie es fertig aussehen soll! Ich versuch auch mal das Excel hochzuladen
Member: colinardo
colinardo Oct 11, 2013 updated at 07:37:16 (UTC)
Goto Top
Ich denke ich hab Dir doch alles geliefert, runterladen kannst du das Demo-Dokument doch mal zu Hause wenn du nicht in der Firma bist oder ? Ich denke mehr als das kann man nicht für dich tun ...

Grüße Uwe
Member: AntonH
AntonH Oct 11, 2013 at 07:43:56 (UTC)
Goto Top
Hi Uwe,

ich bin dir sehr dankbar für deine schnell Antwort.
Bei mir tut sich leider gar nix wenn dich den Bereich den du im Bild angegeben hast markiere und dafür die Bedingung eingebe!

Woran kann das liegen?

ich meine es sieht ja alles genau so aus wie im Beispiel??


Kennst du dich auch mit VBA Programmierung aus?
Member: colinardo
colinardo Oct 11, 2013 updated at 07:49:36 (UTC)
Goto Top
Zitat von @AntonH:
ich bin dir sehr dankbar für deine schnell Antwort.
Bei mir tut sich leider gar nix wenn dich den Bereich den du im Bild angegeben hast markiere und dafür die Bedingung
eingebe!

Woran kann das liegen?
Eventuell fügt dein Excel nach dem bestätigen der Formel, in diese noch zwei Anführungszeichen ein die das Problem verursachen, hatte das auch mal. Also öffne die Formel der bedingten Formatierung erneut und sehe nach ob Excel die Formel so formatiert hat:
="UND(......)"
wenn ja entfernst du die Anführungszeichen, danach sollte es also so aussehen:
=UND(.....)
Kennst du dich auch mit VBA Programmierung aus?
ja, klar damit geht das natürlich auch aber wieso umständlich wenn's so einfach geht.
Das Problem liegt definitiv noch bei dir ...

Grüße Uwe
Member: AntonH
AntonH Oct 11, 2013 at 07:54:52 (UTC)
Goto Top
2d7ffff1c61fe24e3edd54b537e58b24

so hab ich das jetzt gemacht

Und es nochmal aufgemacht und geschaut
Member: AntonH
AntonH Oct 11, 2013 at 07:56:00 (UTC)
Goto Top
2857850fd1ccabedba5852a6e5680351
Member: colinardo
colinardo Oct 11, 2013 updated at 08:01:03 (UTC)
Goto Top
mach mal das "Stop if true" raus .... und starte Excel mal neu...
Member: AntonH
AntonH Oct 11, 2013 at 08:00:09 (UTC)
Goto Top
leider keine veränderung
Member: AntonH
AntonH Oct 11, 2013 at 08:03:54 (UTC)
Goto Top
währe eine VBA lösung nicht doch leichter?

so ein Vergleich:

prüfe solang wie in Zeile zur Spalte A inhalt verfügbar ist.

When Start Wert gleich mit Wert in Zeitleist und Wert in Ende gleich mit Wert in Zeitleiste makiere diesen Bereich?
Member: colinardo
colinardo Oct 11, 2013 at 08:17:05 (UTC)
Goto Top
unverbesserlich ...., ich bau dir dazu was mit VBA...

Grüße Uwe
Member: AntonH
AntonH Oct 11, 2013 at 08:37:04 (UTC)
Goto Top
des wäre klasse! Danke Danke DAnke
Member: colinardo
colinardo Oct 11, 2013 updated at 09:32:07 (UTC)
Goto Top
Füge diesen Code im VBA-Editor in das passende Worksheet ein.
Ich habe jetzt mal angenommen das die angegebenen Quartale in Zeile 3 bis 100 stehen, solltest du mehr benötigen musst du du den Range in Zeile 2 entsprechend anpassen. Auch die angegebenen Quartale in Zeile 2 habe ich mal auf Spalte 5-21 (also 4 Jahre) begrenzt, dies kann in Zeile 7 angepasst werden zusätzlich musst du dann in Zeile 25 die Nummer 21 auch entprechend ändern. Die Farbe die die markierten Zellen erhalten lässt sich in der Sub markiereZelle angeben.
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Range("C3:D20"), Target) Is Nothing Then  
        cellFrom = Cells(Target.Row, 3).Value
        cellTo = Cells(Target.Row, 4).Value
        If cellFrom <> "" And cellTo <> "" Then  
            mark = False
            For i = 5 To 21
                If mark = True Then
                    If LCase(Cells(2, i)) = LCase(cellTo) Then
                        markiereZelle Cells(Target.Row, i)
                        mark = False
                    Else
                        markiereZelle Cells(Target.Row, i)
                    End If
                Else
                    If LCase(Cells(2, i).Value) = LCase(cellFrom) Then
                        mark = True
                        markiereZelle Cells(Target.Row, i)
                    Else
                        clearZelle Cells(Target.Row, i)
                    End If
                End If
            Next
        Else
                clearZelle Range(Cells(Target.Row, 5), Cells(Target.Row, 21))
        End If
    End If
End Sub

Sub markiereZelle(r As Range)
    r.Interior.Color = rgbBlue
End Sub
Sub clearZelle(r As Range)
    r.Interior.Pattern = xlNone
End Sub

Grüße Uwe
Member: AntonH
AntonH Oct 11, 2013 at 09:32:09 (UTC)
Goto Top
ich hoffe du hälst mich nicht für total dumm, aber wenn ich es im VBA Editor bei dem passend Worksheet reinkopiere. und auf Play drücke, soll ich ein Makro auswähl, aber es gibt keins??
Member: colinardo
colinardo Oct 11, 2013 updated at 09:35:20 (UTC)
Goto Top
du brauchst nicht auf play drücken, die formatierung wird automatisch angewendet sobald du eine entsprechende Zelle im Range("C3:D100") im Worksheet änderst !!!
Member: AntonH
AntonH Oct 11, 2013 at 09:35:42 (UTC)
Goto Top
Du bist großartig Uwe!
GermansolvedQuestionVB for ApplicationsDevelopment
Hotly discussed
gleixnerdCheck of ZFW Firewallgleixnerd - 3 CommentsAlexWishaHow to set up and configure a Linux GRE tunnelAlexWisha - 3 CommentsjstrickerWIREGUARD VPN ON UDM PRO BEHIND FRITZBOX - HANDSHAKE DID NOT COMPLETEjstricker - 3 CommentsDaniEnd of Support dates for Office 2016, 2019 Apps und Productivity ServersDani - 1 Comment