Shapes Delete
Heinz
Ich habe mit unteren Makro ein Problem
In Zeile "Sheets(aSh).Shapes("Button 9").Delete"
Wenn ich das Makro einige mal ausführe wird aus Shapes("Button 9")
Shapes("Button 7")
Ich habe keine Erklärung dafür.
Könnte eventuell bitte jemand helfen ?
Gruß
Heinz
Sub cp_wbk()
ActiveSheet.Unprotect Password:="woody-6962"
'Dim Pfad
Dim MyPfad As String
Dim aSh, nSh As String
nSh = ActiveSheet.[F1]
aSh = ActiveSheet.Name
Sheets(aSh).Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = nSh
Sheets(aSh).Shapes("Button 9").Delete
Application.DisplayAlerts = False 'Speichern unter aus
MyPfad = IIf(Right$(ThisWorkbook.Path, 1) = "\", ThisWorkbook.Path, ThisWorkbook.Path & "\")
'Pfad = Application.Path & "\Excel\"
ActiveWorkbook.SaveAs Filename:="Stundenaufzeichnung " & Sheets(nSh).Range("B3") & " - " & _
Format(Range("G1"), "YYYY") & ".xls"
Application.DisplayAlerts = True 'Speichern unter ein
End Sub