Office: (Office 2010) [VBA] Zeilen einfärben nach Inhalt als selbsterstellender Mappe

Hallo,

ich habe folgendes Problem.

Ich habe Excel Datei, die über einen Button eine vordefinierte Mappe erstellt. In dieser Mappe habe ich im Feld B4 ein Dropdown-Menü.

Unter anderem dieser Wert wird in eine Hauptmappe, je nach Anzahl der erstellten Mappen, untereinander eingetragen (C8:C999).

Nun möchte ich, dass, wenn in der erstellten Untermappe per Dropdown ein Wert geändert wird, in der Hauptmappe der jeweilige Zeilenbereich (Spalte B bis Spalte G) eine andere Füllfarbe erhält.

Später soll diese Farbe noch an eine bestimmte Stelle in der jeweiligen Untermappe übergeben werden...aber erst einmal muss das Hauptproblem beseitigt werden.

Mein Skript bisher:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Range As String

  If ActiveCell.Column = 3 And ActiveCell.Row > 7 Then

          Range = "C" & ActiveCell.Row & ":G" & ActiveCell.Row


         If ActiveCell.Cells = "Geschlossen" Then

            a_Font = 2
            a_bg = 10
         End If

          If ActiveCell.Cells = "Offen" Then
            a_Font = 2
            a_bg = 3
         End If

          If ActiveCell.Cells = "Rückfrage" Then
            a_Font = 1
            a_bg = 44
         End If

         If ActiveCell.Cells = "Bearbeitet" Then
            a_Font = 1
            a_bg = 43
         End If

         If ActiveCell.Cells = "Wartend" Then
            a_Font = 1
            a_bg = 37
         End If

         If ActiveCell.Cells = "optional" Then
            a_Font = 1
            a_bg = 34
         End If


          For i = 2 To 7
                Me.Cells(ActiveCell.Row, i).Select
                With Selection.Interior
                    .ColorIndex = a_bg
                End With
                Selection.Font.ColorIndex = a_Font
          Next i



         row_no = ActiveSheet.Cells(ActiveCell.Row, 2)
         Dim strRowNo As String
         strRoNo = "" & row_no

         With Sheets(strRoNo).Range("A5:S5").Interior
          .ColorIndex = a_bg
           .Pattern = xlSolid
         End With
         Sheets(strRoNo).Range("A5:S5").Font.ColorIndex = a_Font

         Sheets(strRoNo).Tab.ColorIndex = a_bg

         Me.Cells(ActiveCell.Row, 3).Select


  End If

End Sub

Ich habe es sicherheitshalber, um sich mal eine Vorstellung zu machen, hochgeladen.

Grüße
Barti

 

Hallo Barti,

ich habe die Makros deiner Excel-Datei angepasst, sodass bei Änderung der Status-Dowpdownbox in einem Case-Blatt
1) die Farbe der Zeile 5 dieses Blattes sich ändert,
2) ferner die Farbe der dazugehörigen Zeile im Blatt "Übersicht" sich entsprechend ändert.

Darüber hinaus habe ich die Makros im allgem. Codemodul "Modul1" optimiert und das Modul in "modNewSheet" umbenannt.

 

Super vielen lieben Dank!!! Genauso wollte ich es haben. Perfekt :D