Hallo,
habe mir einen Code zum Speichern erstellt. Nun enthält die Arbeitsmappe aber sehr viele Tabellen, die ich nicht mit gespeichert haben will. (wegen Dateigröße) Kann man das so umbasteln das die nicht benötigten Tabellen nicht mit gespeichert werden und das auch die Makros und Schaltbuttons nicht mit gespeichert werden.
Danke René
Application.DisplayAlerts = False
Sheets("Test_6_bis_9").Visible = True
Sheets("Rechnen").Visible = False
Sheets("Startseite").Visible = False
Dim ArrIndex, iIndex%, sExtension$, iFileFormat%, strFileName$
'Dateinamen aus aktuller Zelle
strFileName = Cells(11, 4).Value
If Dir("C:\Testdaten_ET6_bis_6", vbDirectory) = "" Then
MkDir ("C:\Testdaten_ET6_bis_6")
End If
'Wechselt das aktuelle Laufwerk.
ChDrive "C:"
'Wechselt das aktuelle Verzeichnis oder den aktuellen Ordner
ChDir "C:\Testdaten_ET6_bis_6"
'Datei Version
ArrIndex = Array("xlsx", "xlsm", "xls")
'Extention der Datei
sExtension$ = Right$(strFileName, Len(strFileName) - InStrRev(strFileName, "."))
If Dir("C:\Testdaten_ET6_bis_6\strFileName.xls") = "" Then
'Dialog aufrufen
SaveAs "C:\Testdaten_ET6_bis_6\" & strFileName & "_" & "Geburtsdatum" & "_" & Format(Range("K11"), "dd_mm_yyyy") & "_" & "Testdatum" & "_" & Format(Range("P11"), "dd_mm_yyyy")
showForm2
Else
MsgBox "Diese Patientendatei ist schon vorhanden!"
Exit Sub
End If
Sheets("Startseite").Visible = True
Sheets("Startseite").Activate
Sheets("Startseite").Range("K10").Select
Sheets("Test_6_bis_9").Visible = False
Sheets("Ergebnis_6_bis_9").Visible = False
Application.DisplayAlerts = True
End Sub