Fehler beim Blatt verschieben & speichern
09.03.2016 10:37:38
schmeli
kann mir mal einer auf die Sprünge helfen, ich find den Fehler nicht.
Also mit folgendem Code verschiebe ich einen Tabellenblatt und Speicher es dann ab. Es funktioniert einwandfrei, aber eine Fehlermeldung mit Automatisierungsfehler taucht auf.
Findet jemand den Fehler?
Wenn ich nun statt ".Move" nur ".Copy" nehme kommt die Meldung nicht.
Private Sub cmd_shift_Click()
Dim rngRange As Range
Dim neuName As String
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Range("G1").Value = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5)
Range("D1").Value = "test_" & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5)
Set rngRange = Worksheets("bbb").Range("G1") '
neuName = "test_" & rngRange.Value
Worksheets("bbb").Select
Worksheets("bbb").Move ' Wenn hier Copy steht, kommt keine Fehlermeldung
ActiveWorkbook.SaveAs Filename:=neuName & ".xlsm", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Danke!