Register einfaerben, wenn...
05.08.2014 15:04:35
MarcR
ich hätte eine Frage bezüglich dem einfaerben eines Registers per Makro.
Das Makro soll alle Worksheets eines Workbooks durchlaufen. Wenn das Makro eine Zelle findet die rot eingefaerbt ist, soll auch das zugehörige Register rot eingefaerbt werden.
Die Zellen in den Tabellenblättern werden allerdings erst durch eine bedingte Formatierung rot eingefärbt, was wahrscheinlich der Knackpunkt an dieser Aufgabe ist.
Mein VBA-Code bisher:
Sub Regcolo()
Dim last_row As Long
Dim last_column As Long
Dim i As Long
Dim j As Long
Dim anzahl_wks As Integer
Dim k As Integer
anzahl_wks = ThisWorkbook.Worksheets.Count
For k = 1 To anzahl_wks
last_row = ThisWorkbook.Worksheets(k).UsedRange.Rows.Count
last_column = ThisWorkbook.Worksheets(k).UsedRange.Columns.Count
For i = 1 To last_row
For j = 1 To last_column
If ThisWorkbook.Worksheets(k).Cells(j, i).Interior.ColorIndex = 3 Then
ThisWorkbook.Worksheets(k).Tab.ColorIndex = 3
End If
Next j
Next i
Next k
End Sub
Für eure Mühen bedanke ich mich bereits im Voraus!Grüße MarcR