ich würde gern aus einer Excel mit mehreren Tabellen eine Tabelle einzeln abspeichern und den Name per inputbox abspeichern.
Die Datei soll dort gespeichert werden wo die Excel liegt
Inputbox funktioniert und auch das save makro wenn ich es alleine starte
hab nur Probleme mit der Zusammenführung.
Kannmir wer helfen ?
Ich Danke im Voraus !
Sub ExtraBlatt()
Dim Dateiname As String
Dateiname = InputBox("Bitte den Dateinamen eingeben", _
Space(3) & "Speichern unter ...")
Select Case StrPtr(Dateiname)
Case Is = 0
MsgBox "Die Übersicht wurde nicht gespeichert!"
'ActiveWorkbook.Close
Exit Sub
Case Else
ActiveSheet.Shapes.Range(Array("Button 1")).Select
Selection.Delete
'
Sub Save()
ActiveSheet.Copy
ActiveWorkbook.SaveAs , Filename:="," _
CreateBackup:=False
ActiveWorkbook.Close False
'Exit Sub
End Select
End Sub