Hallo Herr Herber und alle User,

ich habe eine Tabelle, in der ich viel scrollen muss. In die habe ich einen Button reingesetzt, in der Form von

Sub Schaltfläche()
'
' Schaltfläche Makro
'

'
ActiveSheet.Buttons.Add(915, 1110.5, 229, 34).Select
Selection.OnAction = "Kopieren"
Selection.Characters.Text = "Bewerbung schreiben"
With Selection.Characters(Start:=1, Length:=23).Font
.Name = "Arial1"
.FontStyle = "Standard"
.Size = 16
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
' .ShowModal = False ' fixieren? Fehler !
' .Placement = xlFreeFloating ' fixieren? Fehler !
End With

' ActiveSheet.Shapes("CommandButton1").Select
' With Selection
' .Placement = xlFreeFloating ' Button fixieren 'in der Form funkts auch nicht !
' .PrintObject = True
' End With
' Range("H67").Select
End Sub


der nicht mit gescrollt werden soll. Wie kann ich den per VBA fixieren ???

LG,

Rüdiger Repp