Excel Visual Basic Codierung auf mehrere Registerblätter anwenden

[Kareno90]

Grüß Gott Ihr Lieben,

ich arbeite in einem Steuerbüro und bin gerade dabei eine gescheite Jahresabschlusstabelle für alle Mitarbeiter zu erstellen. 

Ich habe für die verschiedenen Bereiche jeweils ein Arbeitsblatt erstellt wie z.B.  Lohnabstimmung, Kfz Berechnung etc. 

Jedes Arbeitsblatt hat oben einen Status, wo man per Dropdownmenü den jeweiligen Status auswählen kann. Diese sind "unbearbeitet", "entfällt", "in Bearbeitung" und "erledigt".

Jeder Status wurde mit einer individuellen Farbe belegt. 

Wenn ich z.B. den Status "erledigt" auswähle Färbt sich die Zelle grün. Gleichzeitig auch die Anzeigefarbe des Arbeitsblattes.

Siehe Bild Forum 1

im Visual Basic habe ich folgende Codierung hierfür hinterlegt.

Private Sub Worksheet_Change(ByVal Target As Range)
      If Range("N2").Value = "fertig" Then
        ActiveSheet.Tab.ColorIndex = 10 'green
      ElseIf Range("N2").Value = "unbearbeitet" Then
        ActiveSheet.Tab.ColorIndex = 3 'red
      ElseIf Range("N2").Value = "in Bearbeitung" Then
        ActiveSheet.Tab.ColorIndex = 6 'yellow
      ElseIf Range("N2").Value = "entfällt" Then
        ActiveSheet.Tab.ColorIndex = 1 'grey
      Else
        ActiveSheet.Tab.ColorIndex = 3 'red
 
      End If
End Sub



Jetzt zu meiner Frage. 

Bei einigen Themen, wie z.B. der Berechnung des Eigenverbrauchs Kfz habe ich ein Arbeitsblatt, wo ich die gesamten Daten eingebe und 4 weitere mit jeweils 3 Berechnungen und der Auswertung des ganzen Themas.

Ist es irgendwie möglich, dass wenn ich in dem Arbeitsblatt "Kfz-Erfassung" den Status auf "erledigt" setze, sich gleichzeitig die Farbe des Arbeitsblattes bei allen Kfz Arbeitsblättern auf grün ändert?

Ich habe es bereits probiert, in dem ich den Status gleichsetzen lasse, also mit dem Befehl "='EV Kfz Erfassung'!N2='EV Kfz Erfassung'!N2", ändert er mit den Status und die Farbe Arbeitsblattes wird nicht mit angepasst. 

In der Zeile müssen halt explizit die Wörter "erledigt" etc. stehen, damit der Code greift. 

Gibt es hierfür eine Lösung oder einen anderen Code, damit ich das dementsprechend anpassen kann?

Vielen Dank für jede Hilfe 

[schauan]

Hallöchen,

schreibe doch in den anderen Blättern "fertig" per Code im Worksheet_Change von Deinem Eingabe- und Berechnungsblatt rein. Und schaue, ob Du nun "fertig" oder "erledigst" nimmst ...

[Kareno90]

Vielen Dank für die schnelle Anwtort.

Welchen Befehl muss ich denn eingeben, damit ich auf ein anderes Arbeitsblatt verlinken kann? 

Kannst du vielleicht ein Beispiel erstellen?
Bin leider noch völlig neu in dieser Materie und schon die ganzen Verknüpfungen haben mich viele Nerven gekostet 

[EA1950]

Hallo,

in der beiliegenden Excel-Datei habe ich dir im Codemodul "DieseArbeitsmappe" und in einem allgemeinen Codemodul "Modul3" die entsprechenden Makros eingefügt.

[Kareno90]

Vielen Dank,

das hat mir schon extrem weitergeholfen. 

Wenn jetzt alle den Status "in Bearbeitung" haben und ich Wähle in der Arbeitsmappe "Kfz-Erfassung" den Status "erledigt" aus, dann werden alle, wie gewünscht, in den Status "erledigt" gesetzt.

Möchte ich allerdings wieder den Status "in Bearbeitung" haben und ich wähle diesen aus, dann ändert es diesen nur in der Arbeitsmappe "Kfz-Erfassung". Die anderen bleiben im Status "erledigt".

Ich habe schon bisschen herumprobiert und umgeschrieben aber es will nicht so wirklich, wie ich mir das Wünsche.

Ist diese Funktion überhaupt möglich oder sprengt das sämtliche Rahmen? 

LG

[EA1950]

Hallo,

davon hattest du aber nicht geschrieben in deinem ersten Posting. Deshalb habe ich es auch nicht hineinprogrammiert.
Du müsstest mir schon sagen, für welche Status-Angaben du die zentrale KFZ-Blätter-Einfärbung haben möchtest. Vorher werde ich sicher nicht weiter programmieren.

[Kareno90]

Ok Entschuldigung vielmals, falls ich mich falsch ausgedrückt habe.

Angedacht ist es folgendermaßen:

Wenn ich in der Arbeitsmappe "Kfz-Erfassung" den Status ändere, soll der Status und die Farbe des Status sowie die Färbung der Arbeitsmappe angepasst werden.

Konkret gesagt am Beispiel;


Arbeitsmappe Kfz-Erfassung                                Arbeitsmappe Kfz-Auswertung

1.

Status "in Bearbeitung" - Farbe gelb   ---->          Status "in Bearbeitung" - Farbe gelb
Arbeitsmappe Farbe gelb                       ---->           Arbeitsmappe Farbe gelb

2.

Status auf "erledigt" setzen

Status "erledigt" - Farbe grün                ---->           Status "erledigt" - Farbe grün
Arbeitsmappe Farbe grün                     ---->            Arbeitsmappe Farbe grün

3.

Im Folgejahr

Status auf "offen" setzen - Farbe rot     ---->           Status "offen" - Farbe rot
Arbeitsmappe Farbe rot                       ---->           Arbeitsmappe rot

und wieder siehe 1.

So in etwa soll es funktionieren. 

Sorry nochmal

[EA1950]

Hallo,

1) stimmt es, dass sich die Statusbezeichnungen wieder geändert haben? Ich habe diese in die DropDowns in den Zellen N2 eingefügt und auch entsprechend ins Makro.
2) Ich habe ins Arbeitsblatt "Kfz Erfassung" die zusätzliche Funktionalität eingebaut, dass von dort die anderen KFZ-Blätter zentral umgefärbt und die Status-DropDowns umgestellt werden.
3) Davon unabhängig kann für jedes Arbeitsblatt das Status-DropDown umgestellt werden und somit der Tabulator umgefärbt werden.
4) Ferner habe ich ins Blatt "Kfz Erfassung" den Button "Neues Jahr" eingefügt: Klickt man auf ihn, werden alle Tabulatoren rot eingefärbt und alle Status-DropDowns auf "offen" gestellt.

[Kareno90]

Wow vielen vielen vielen vielen Dank für deine tolle und schnelle Hilfe