Tabellenreiter färben wenn farbige Zelle

Hallo zusammen,
ich habe noch ein Anliegen und hoffe auf eure Hilfe.
Vor ein paar Wochen hatte ich versucht, in einer bestehenden Tabelle die insgesamt drei Arbeitsblätter beinhaltet die ersten zwei Tabellenreiter mit der gleichen Farbe zu färben, die in Spalte C oder F vorkommt (rot oder grün).
Mit meinem vorhandenen Quellcode wird allerdings nur die Spalte C ausgewertet:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Application.CountIf(Sh.Range("C9:C100"), " 0 Then
Sh.Tab.ColorIndex = 3
Else
Sh.Tab.ColorIndex = 4
End If
End Sub

Wenn ich versuche die Spalte F hinzuzufügen, gibt es ein Laufzeitfehler 13 (Typen unverträglich):

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Application.CountIf(Sh.Range("C9:C100,F9:F100"), " 0 Then
Sh.Tab.ColorIndex = 3
Else
Sh.Tab.ColorIndex = 4
End If
End Sub

Was ist hier falsch?
Vielen Dank. :-)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Sh.Name = "Tabelle1" Or Sh.Name = "Tabelle2" Then If Application.CountIf(Sh.Range("C9:C100"), " 0 _ Or Application.CountIf(Sh.Range("F9:F100"), " 0 Then Sh.Tab.ColorIndex = 3 Else Sh.Tab.ColorIndex = 4 End If End If End Sub

Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.Ich baue keine Datei nach.
Sollte die Datei verlinkt werden?
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
änderrn.
Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
Du willst also Prüffen Ob Spalte C oder F Rot ist?
Falls ja willst Du unten eine Tabellenbezeichnung Rot machen? Welche Deiner 100 Tabellenbezeichgnungen soll Rot gemnacht werden?
Grußformel

Option Explicit Sub FarbeRegister() Dim Loletzte As Long Dim RaZelle As Range Loletzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row For Each RaZelle In Range("C9:C" & Loletzte) If RaZelle.DisplayFormat.Interior.Color = 255 Or _ RaZelle.Offset(0, 3).DisplayFormat.Interior.Color = 255 Then ActiveSheet.Tab.Color = 255 Exit For Else ActiveSheet.Tab.ColorIndex = xlAutomatic End If Next RaZelle End Sub

Beliebteste Forumthreads (12 Monate)

Tabellenreiter färben wenn farbige Zelle

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

179 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabellenreiter färben wenn farbige Zelle

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

179 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread