Option Explicit
Sub Schaltfläche1_BeiKlick()
Dim erfolg As Long
erfolg = verschieben(Selection, -1, -1)
If erfolg = 0 Then MsgBox "Zu kurz verschoben"
End Sub
Function verschieben(bereich As Range, zeile As Long, spalte As Long) As Long
Dim zuweit As Boolean
Dim startzeile As Long
Dim startspalte As Long
startzeile = bereich.Row
startspalte = bereich.Column
zuweit = False
If startzeile + zeile <= 0 Then zuweit = True
If startspalte + spalte <= 0 Then zuweit = True
If zuweit = False Then
bereich.Offset(zeile, spalte).Select
verschieben = 1
Else
verschieben = 0
End If
End Function