Zeile fett bei Bedingung..
03.01.2018 10:19:07
Nati
sobald in Zeile C "Kauf" drin steht und in D die werte 00 bis 25 stehen, soll die gesamte Zeile in FETTSCHRIFT erscheinen.
Habe schon das Makro..aber wo muss ich es reinpacken`? in das Change Event ? Hat leider nicht geklappt:
Hier das Makro:
Sub ZeileFett()
Dim lRow As Long
lRow = ActiveCell.Row
If Range("C" & lRow).Value = "Kauf" And Then
'Range("D" & lRow).Value = 00 etc...
With Range("B" & lRow & " :" & "IS" & lRow)
.Font.Bold = True
End With
End If
End Sub
Lieben Gruß,
Nati
Anzeige