Mein Problem: Ist die aktive Zelle im Bereich E10:AZ200, dann soll die Spalte der aktiven Zelle bis Zeile 9 und die Zeile der aktiven Zelle bis Spalte D farblich formatiert werden.
Hier ein Beispiel falls erforderlich:
https://www.herber.de/bbs/user/12852.xls
Hier noch ein bereits in der Tabelle gespeicherter Code (er zeigt die vertikalen Texte aus Zeile 9 waagrecht in Zeile 8 an), falls der neue Code hier eingebaut werden muss:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [e10:az200]) Is Nothing Then
[e8:az8].ClearContents
Cells(8, Target.Column) = Cells(9, Target.Column)
End If
End Sub
Bedanke mich für die Hilfe.
Servus, Walter