Daten einfügen mit diesem Code nicht mehr möglich
09.02.2009 09:27:17
Roland
ich habe auf meinem Sheet ein paar buttons , die sollen, wenn ich zB ganz ans Ende der Tabellen scrolle, mitwandern:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
CommandButton1.Top = Range("A2").Top
CommandButton1.Left = ActiveWindow.VisibleRange.Left + 378
CommandButton4.Top = Range("A2").Top
CommandButton4.Left = ActiveWindow.VisibleRange.Left + 450
CommandButton5.Top = Range("A2").Top
CommandButton5.Left = ActiveWindow.VisibleRange.Left + 522
CommandButton6.Top = Range("A2").Top
CommandButton6.Left = ActiveWindow.VisibleRange.Left + 612.75
CommandButton2.Top = Range("A2").Top
CommandButton2.Left = ActiveWindow.VisibleRange.Left + 684
CommandButton3.Top = Range("A2").Top
CommandButton3.Left = ActiveWindow.VisibleRange.Left + 745.5
CommandButton7.Top = Range("A2").Top
CommandButton7.Left = ActiveWindow.VisibleRange.Left + 816.75
End Sub
Das Problem: wenn dieser Code aktiv ist, ist es nicht mehr möglich, daten in das Sheet einzufügen, schreiben ja , aber irgend was kopieren und einfügen geht nicht mehr
Kann ich die Funktion auch irgend wie anders lösen, damit ich in meinem sheet auch wieder Daten einfügen kannn ?
Danke Roland