Erweitern von einem Makro
28.01.2015 16:02:16
einem
ich habe hier ein Makro, das funktioniert auch genau richtig, jetzt möchte ich nur gerne noch etwas hinzufügen, also es quasi um ein zwei Funktionen erweitern.
Hier der Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If InStr(Target.Address, ":") > 0 Or _
InStr(Target.Address, ";") > 0 Then
Exit Sub
End If
Application.EnableEvents = False
If Target.Column = 14 Then
If LCase(Target.Value) = LCase("Druck+Normung") Then
Target.Offset(0, 1).Value = Date
Range("A" & Target.Row & ":P" & Target.Row).Font.ColorIndex = 10
Else
Target.Offset(0, 1).Value = ""
Range("A" & Target.Row & ":P" & Target.Row).Font.ColorIndex = xlAutomatic
End If
If LCase(Target.Value) = LCase("3D fertig") Then
Target.Offset(0, -12).Value = Date
Else
' Target.Offset(0, -11).Value = ""
End If
End If
If Not Intersect(Target, Range("A" & Target.Row & ":P" & Target.Row)) Is Nothing Then
If Target.Value "" Then
' sbNewLine Target.Row
End If
End If
Application.EnableEvents = True
End Sub
Jetzt würde ich gerne noch, dass wenn ich Druck+Normung eingebe nicht nur die ganze Schrift grün wird, sondern auch, dass alle Felder in der betroffenen Zeile einen grünen Rahmen bekommen. Und außerdem soll die Schrift noch fett sein.
Wie müsste man den Code umschreiben, um das hinzubekommen?
Danke und liebe Grüße
Felix