Office: (Office 2007) Doppelte Rahmenlinie unten

Hallo,

ich möchte eine Zelle A2 doppelt unterstreichen (also doppelte Rahmenlinie unten), wenn der Wert in Zelle A1 zum Beispiel 100 beträgt. Wie kann ich das über VBA realisieren.

Gruss

Mirko

:)

 

Halo Mirko,

bei bedingter Formatierung, gibt es keine doppelte Rahmenlinie.

 

Hallo Hajo,

das weiss ich auch. Deshalb wollte ich das Problem über VBA lösen. Komme aber da nicht weiter. Vielleicht kann ja jemand helfen.

Gruss Mirko

 

Hallo Mirko,

ich bin raus. Für alle anderen solltest Du mitteilen ob Eingabe oder Formel.

 

Hallo Mirko,

das könnte so funktionieren

Public Sub Doppelt_Unterstreichen() Dim WkSh   As Worksheet    Set WkSh = ThisWorkbook.Worksheets("Tabelle3") ' den Tabellenblattnamen ggf. anpassen!    If WkSh.Range("A1").Value = 100 Then       With WkSh.Range("A2").Borders(xlEdgeBottom)          .LineStyle = xlDouble          .Weight = xlThin       End With     Else       With WkSh.Range("A2").Borders(xlEdgeBottom)          .LineStyle = xlNone       End With    End If End Sub

Code eingefügt mit Syntaxhighlighter 4.15

Gruß Peter