Ich suche einen Code, der wenn im Bereich A3-C1000000 ein Wert eingegeben wird (Zahl/Text), dann automatisch in dem Bereich der jeweiligen Zeile (A3-J1000000) in dem ein Wert eingegeben wurde, der Rahmen gezeichnet wird. Das Ganze dynamisch, d.h. wenn der Zellenwert geändert wird, den Rahmen zeichnen, z.B.:
In Zelle A305 (oder B305, oder C305) wird ein Wert eingegeben, dann werden die Rahmen der Zellen des Bereichs A305-J305 gezeichnet.
Ich glaube, die Prozedur muss im entsprechenden Tabellenblatt hinterlegt werden und irgend was mit "(ByVal Target As Range)" sein. Es muss erkannt werden, wenn eine Zelle den Wert ändert oder irgend so was.
Ich habe folgenden Code aus dem Internet kopiert, der funktioniert jedoch nicht dynamisch.
Option Explicit
Option Private Module
Sub Rahmen()
Dim rngBereich As Range, rngText As Range, rngZelle As Range
Set rngBereich = Intersect(ActiveSheet.UsedRange, Range("A:J"))
rngBereich.Borders.LineStyle = xlNone
Set rngText = Nothing
On Error Resume Next
Set rngText = rngBereich.SpecialCells(xlCellTypeConstants, xlTextValues)
On Error GoTo 0
If rngText Is Nothing Then Exit Sub
For Each rngZelle In rngText
With rngZelle.Borders
.LineStyle = xlContinuous
.ColorIndex = 15
.Weight = xlThin
End With
Next
End Sub
MerciMit freundlichem Gruss
Peter