Rahmenlinie setzen (VBA)

Pol, Mittwoch, 17.02.2016, 20:07 (vor 1391 Tagen)

Ich würde gerne eine automatische Rahmenlinie setzen und zwar immer, wenn in der Spalte A der Wert 1 auftaucht. In diesem Fall soll in der entsprechenden Zeile eine obere Rahmenlinie gesetzt werden, die von Spalte A bis Spalte Q reicht. Am liebsten in einem Grauton.

Das müsste doch mit VBA zu machen sein oder? Kann mir jemand helfen?

Rahmenlinie setzen

Martin Asal @, Donnerstag, 18.02.2016, 09:27 (vor 1390 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

RSS-Feed dieser Diskussion
powered by my little forum