Thema Datum  Von Nutzer Rating
Antwort
Rot Ampelfarbe einer Ampel auf andere übernehmen
 13.02.2017 11:41:36 Lisa
NotSolved
13.02.2017 15:47:11 BigBen
NotSolved

Ansicht des Beitrags:
Von:
Lisa		 Datum:
13.02.2017 11:41:36		 Views:
1208		 Rating:
     
Antwort:
  Ja
Thema:
Ampelfarbe einer Ampel auf andere übernehmen
Hallo liebes Forum, momentan bin ich noch VBA-Neuling und bin auch noch kein Programmierexperte. Ich bin im Projektmanagement und ein Standort möchte den Steckbrief abwandeln und ich habe von meinem Vorgänger einen Code vor mir liegen. Mein Excelfile besteht immer aus einem Projektsteckbrief und je nach Länge des Projekts aus verschieden vielen Statusberichten. Auf jedem Statusbericht ist eine Ampel bspw. im Mai 2016 ist das Projekt auf grün und ich färbe die Ampel im Statusbericht Mai auf grün, es soll dann automatisch die Ampel auf dem Projektsteckbrief sich mitverändern. Aktualisiere ich im Juni dann den Status und ändere im Juni-Tabellenblatt die Ampelfarbe, soll sich diese im Projektsteckbrief ändern. Hier der Code für die Ampel auf den Statusberichten: Sub Ampel_gruen() ' ' Makro_gruen Makro ' Schaltet Ampel auf grün ' ActiveSheet.Shapes("Grün").Select Selection.ShapeRange.Fill.ForeColor.SchemeColor = 11 Selection.ShapeRange.Fill.Visible = msoTrue Selection.ShapeRange.Fill.Solid ActiveSheet.Shapes("Gelb").Select Selection.ShapeRange.Fill.ForeColor.SchemeColor = 9 Selection.ShapeRange.Fill.Visible = msoTrue Selection.ShapeRange.Fill.Solid ActiveSheet.Shapes("Rot").Select Selection.ShapeRange.Fill.ForeColor.SchemeColor = 9 Selection.ShapeRange.Fill.Visible = msoTrue Selection.ShapeRange.Fill.Solid Range("A1:A24").Select ActiveSheet.Tab.ColorIndex = 4 Call Ampel_PS_gruen End Sub Hier der Aufruf des Makros für die Projektsteckbriefseite, diese soll immer aktualisiert werden, wenn ich das Makro aufrufe, wenn ich im Statusbericht etwas aktualisiere. Hier tut sich aber nichts. Sub Ampel_PS_gruen() ' ' Makro_gruen Makro ' Schaltet Ampel auf grün ' ActiveSheet.Shapes("1gruen").Fill.ForeColor.SchemeColor = 11 ActiveSheet.Shapes("1gelb").Fill.ForeColor.SchemeColor = 9 ActiveSheet.Shapes("1rot").Fill.ForeColor.SchemeColor = 9 End Sub Vielen Dank für eure Hilfe! Lisa

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:



  • 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 Ampelfarbe einer Ampel auf andere übernehmen
 13.02.2017 11:41:36 Lisa
NotSolved
13.02.2017 15:47:11 BigBen
NotSolved