ich hatte gestern schon einmal die frage gestellt aber bei der ausführung entsteht ein fehler.
mein problem:
ich möchte eine bestimmte tabelle mittels schaltfläche kopieren und ans ende stellen.
dann möchte ich den namen des tabellenblattes über die eingabe in der zelle "A1" endern.
folgende anweisung habe ich die schaltfläche zu gewiesen:
'Wenn der Name des neuen Blattes erst bei Eingabe in
'Zelle A1 der Kopie vergeben wird:
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
ActiveSheet.Copy After:=Worksheets(Worksheets.Count)
With ActiveSheet
.Name = .Range("A1")
.Shapes("CommandButton1").Delete
End With
Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
ActiveSheet.Name = Range("$A$1")
End Sub
wenn ich nun auf die schaltfläche clicke kommt der fehlerhinweis:
laufzeitfehler '1004':
die copy-methode des worksheet-objektes ist fehlerhaft.
die eigenschaft der schaltfläche TakeFocusOnClick habe ich auf false gesetzt.
vielleicht kann mir ja einer helfen, für die hilfe bedanke ich mich.
gruß
martin