ich verwende folgendes in einme Arbeitsblat:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error GoTo 0
With Cells(Windows(1).ScrollRow, Windows(1).ScrollColumn)
CommandButton1.Top = .Top + 10
CommandButton1.Left = .Left + 10
End With
End Sub
Nun möchte ich noch das sich die selectierte Zelle solange sie selectiert ist farbig verändert. _ Sollte hiermite gehen:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 6 'Hintergrund Gelb
End Sub
Wie kann ich diese beiden Funktionen nun aufeinmal verwenden?
Vielen Dank schonmal.