VBA Code
12.06.2020 20:30:01
Wesch
Ich möchte gerne das meine Excel Vorlage nach dem ausfüllen und speichern wieder leer ist, so das der nächste die Vorlage wieder befüllen kann.
Könnt ihr mir helfen?
Private Sub CommandButton1_Click()
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
sh.Delete
Next
Const Pfad As String = "C:\temp\Test\"
Dim Dateiname As String
Application.DisplayAlerts = False ' Warnmeldung ausschalten
' Zeichnungsnummer_Index+IndexNr_Bestellnummer_Lieferant_WEDatum
' Zeichnungsnummer_Index (H4)
' IndexNr (M4)
' Bestellnummer (C8)
' Lieferant (C6)
' WEDatum (M6)
Dateiname = Range("H4") & "_" & "Index" & "_" & Range("M4") & "_" & Range("C4") & "_" & _
Range("C8") & "_" & Range("C6") & "_" & Range("M6") & ".xlsx"
Debug.Print Pfad & Dateiname
ActiveWorkbook.SaveAs Filename:=Pfad & Dateiname, FileFormat:=xlOpenXMLWorkbook, _
CreateBackup:=False
Application.DisplayAlerts = True ' Warnmeldung einschalten
Range("H4,M4,C4,C8,C6,M6").ClearContents
End Sub