Zellüberwachung

Hallo Forum,
ich möchte eine Zelle überwachen und in Abhängigkeit davon eine Formatierung durchführen.
Folgende Situation: In Zelle B29 steht die Formel =SUMME(B21:B28). Wenn die Formel händisch überschrieben wird, sollen die Zellen B21 bis B28 in weißer Schrift und weißem Hintergrund formatiert werden. Ich habe mir dazu folgenden Code gebastelt der aber nicht funktioniert. Kann mir bitte jemand sagen woran dies liegt? Der Code steht in dem Tabellenblatt, wo die "Zellüberwachung" durchgeführt werden soll.

Public Sub Zellüberwachung()
If Range("B29")  "=IF(ISERROR(SUM(R[-8]C:R[-1]C)),"""",SUM(R[-8]C:R[-1]C))" Then
Range("B21:B28").Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("B29").Select
End With
End If
End Sub

Vielen Dank im Voraus für eine Rückmeldung.
Viele Grüße
Ralf

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$29" And Target.Count = 1 Then If Not Target.HasFormula Then With Range("B21:B28") .Interior.Pattern = xlSolid .Interior.PatternColorIndex = 1 .Font.ThemeColor = xlThemeColorDark1 .Font.TintAndShade = 0 .Interior.PatternTintAndShade = 0 End With End If End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$29" And Target.Count = 1 Then If Not Target.HasFormula Then Call Tabellenblatt_entsperren Range("B21:B28").Select With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorDark1 .TintAndShade = 0 .PatternTintAndShade = 0 End With With Selection.Font .ThemeColor = xlThemeColorDark1 .TintAndShade = 0 End With Range("B29").Select Call Tabellenblatt_sperren End If End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$29" And Target.Count = 1 Then If Not Target.HasFormula Then Call Tabellenblatt_entsperren With Range("B21:B28") .Interior.Pattern = xlSolid .Interior.PatternColorIndex = xlAutomatic .Interior.ThemeColor = xlThemeColorDark1 .Interior.TintAndShade = 0 .Interior.PatternTintAndShade = 0 .Font.ThemeColor = xlThemeColorDark1 .Font.TintAndShade = 0 End With Call Tabellenblatt_sperren End If End If End Sub

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread