Einfügen und STRG+V funktioniert hier nicht mehr
06.12.2008 21:34:12
Joachim
ich habe auf einem sheet ein paar Buttons und möchte damit erreichen, das die Buttons, wenn ich in dem Sheet nach rechts scrolle, und ich auf das sheet klicke, dass sie sich immer innerhalb meines Monitors platzieren, also mitwandern:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
CommandButton1.Top = Range("A2").Top
CommandButton1.Left = ActiveWindow.VisibleRange.Left + 405
CommandButton4.Top = Range("A2").Top
CommandButton4.Left = ActiveWindow.VisibleRange.Left + 479
CommandButton5.Top = Range("A2").Top
CommandButton5.Left = ActiveWindow.VisibleRange.Left + 552
CommandButton6.Top = Range("A2").Top
CommandButton6.Left = ActiveWindow.VisibleRange.Left + 624
CommandButton2.Top = Range("A2").Top
CommandButton2.Left = ActiveWindow.VisibleRange.Left + 698
CommandButton3.Top = Range("A2").Top
CommandButton3.Left = ActiveWindow.VisibleRange.Left + 771
End Sub
Nun habe ich festgestallt, dass wenn der Code aktiv ist, ich auf dem Sheet zwar kopieren kann aber nichts mehr einfügen kann. Ich sehe zwar in der Zwischenablage meine kopierten Daten aber weder mit STRG+V
bzw mit EINFÜGEN lassen sich Daten einfügen. geht nur noch mit tippen.
Kann jemand sehen warum ?
Danke
Joachim