ich würde gerne folgendes Problem mittels VBA lösen:
Durch Doppelklick in eine Zelle wird diese umrandet und 11 Zeilen oberhalb (in der selben Spalte) wird ein fixer Wert eingetragen.
Dies soll für den Bereich B46:Y52 gelten.
Ein weiteres Hindernis ist, dass durch erneutes Doppelklicken sowohl die Umrandung als auch der Wert 11 Zeilen oberhalb wieder verschwinden sollen und anstelle des Wertes wieder die eigentlich Formel dieser Zelle dort steht.
Ich vermute es wäre am einfachsten, wenn zunächst nur die Zelle durch Doppelklick umrandet wird und die Zelle, die sich 11 Zeilen oberhalb befindet, nur bei eben jener Formatierung den Wert, sonst die eingetragene Formel, annimmt.
Meine bisherige Formel zur Umrandung der Zelle, die durch Doppelklick angewählt wird, sieht wie folgt aus:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Not Application.Intersect(Target.EntireColumn, Range("B:Y")) Is Nothing Then
With Target.Resize(1, 1).Borders
If .Item(7).Color = 0 Then
.ColorIndex = 5
.Weight = 4
.Item(11).LineStyle = xlNone
Else
.LineStyle = xlNone
End If
End With
Cancel = True
End If
End Sub
Ich hoffe, ich habe mein Problem nicht zu kompliziert dargestellt und jemand kann mir helfen oder mich zumindest auf die richtige Spur bringen.
Mit den besten Grüßen
Christian