Markierung aktive Zeile ist verschoben
15.09.2022 12:11:03
Gert
ich habe nachfolgenden Code auf dem entsprechenden Worksheet hinterlegt.
Die Umrandung der angeklickten Zeile für den Bereich von 6 Spalten funktioniert unter Office 10 einwandfrei. Jetzt haben wir auf Office 365 umgestellt und nun weicht der Rahmen je weiter man in der Liste nach unten kommt von der tatsächlich aktiven Zeile ab.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("M1") = 1 Then
With ActiveSheet.Shapes("Rectangle 1")
.Top = ActiveCell.Top - 1
.Left = 1
.Width = Columns(7).Left
.Height = ActiveCell.Height + 1
End With
End If
End Sub
https://www.herber.de/bbs/user/155189.xlsm
Hat jemand eine Idee, woran dies liegen kann und wie der Code angepasst werden muss ?
Vielen Dank für die Unterstützung
Gert