Rahmenlinie setzen (VBA)

Martin Asal @, Donnerstag, 18.02.2016, 09:27 (vor 1392 Tagen) @ Pol

Hallo Pol,

ja, das ist einfach: Dafür erstellst du kein allgemeines Modul, sondern eines speziell für das betreffende Arbeitsblatt (Doppelklick im Projektmanager auf die Tabelle). Dort fügst du folgenden Code ein:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zeile As Range
 
If Target.Column = 1 And Target.Value = 1 Then
    Set Zeile = Range("A" & CStr(Target.Row) & ":Q" & CStr(Target.Row))
    Zeile.Borders(xlEdgeTop).Color = RGB(128, 128, 128)
End If
 
End Sub

Wahrscheinlich willst du ja auch, wenn ein anderer Wert als "1" eingetragen wird, dass die Rahmenlinie wieder entfernt wird. Sicherlich wirst du keine Probleme haben, den entsprechenden Else-Zweig zu schreiben.

Martin


gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum