Voorwaardelijke opmaak programmeren

[PPSBraun]

Ik zou graag in Tabblad "2" een cel-waarde vet & Cursief willen maken, als in tabblad "1" een corresponderende cel leeg is. Heeft iemand een voorbeeld hoe dit te programmeren. De standaard voorwaardelijke opmaak staat namelijk niet toe, dat er verwezen wordt naar andere tabbladen.

gr
Paul

 

[dirktimm]

Ik zou graag in Tabblad "2" een cel-waarde vet & Cursief willen maken, als in tabblad "1" een corresponderende cel leeg is. Heeft iemand een voorbeeld hoe dit te programmeren. De standaard voorwaardelijke opmaak staat namelijk niet toe, dat er verwezen wordt naar andere tabbladen.

gr
Paul

 

[dirktimm]

Hallo

Volgens mij zou het met onderstaande code moeten lukken.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim x As Range
For Each x In ActiveSheet.Range("A1")
With x
Select Case .Value
Case 0
Sheets("Blad2").Select
Range("A1").Select
Selection.Font.Bold = False
Selection.Font.Italic = False
Case Else
Sheets("Blad2").Select
Range("A1").Select
Selection.Font.Bold = True
Selection.Font.Italic = True
End Select
End With
Next
End Sub

groet

 

[PPSBraun]

Thank you dirktimm

Hallo

Volgens mij zou het met onderstaande code moeten lukken.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim x As Range
For Each x In ActiveSheet.Range("A1")
With x
Select Case .Value
Case 0
Sheets("Blad2").Select
Range("A1").Select
Selection.Font.Bold = False
Selection.Font.Italic = False
Case Else
Sheets("Blad2").Select
Range("A1").Select
Selection.Font.Bold = True
Selection.Font.Italic = True
End Select
End With
Next
End Sub

groet

Oplossing werkt prima!!