Diagonale Rahmenlinien mit Hilfe von VBA
22.12.2016 08:23:13
Michael
Ich versuche mal, mein Problem zu schildern ...
In manchen Zellen meiner Excel-Tabelle kann "ja" oder "nein" stehen. Nun hätte ich gerne, dass - wenn zB in der Zelle C6 das Wort "ja" steht - die Zelle A6 diagonale Rahmenlinien bekommt [allgemein und anders formuliert: Die Zelle soll diagonal gestrichen werden, wenn die Zeile in der selben Zeile, aber zwei Spalten weiter das Wort "ja" enthält.]. Über eine bedingte Formatierung ist dies nicht machbar ... aber über VBA sollte es klappen.
Derzeit bin ich so weit ... bei der 'Adressierung' habe ich allerdings grobe Schwierigkeiten.
Ich hoffe, dass nicht mehr allzuviel fehlt. Kann mir bitte jemand weiterhelfen?
Danke schon mal ...
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Offset(0, 2) = "ja" Then
With Target
With .Borders(xlDiagonalUp)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
With .Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
End With
Else
With Target
.Borders(xlDiagonalUp).LineStyle = xlNone
.Borders(xlDiagonalDown).LineStyle = xlNone
End With
End If
End Sub