VBA beim anlegen neuer Datei mit kopieren
Stefanglander
Hallo Leute
ich habe ein Code von Hajo in meiner Datei eingebaut.
Es geht um den Kalender der sich beim betreten der Zelle einblendet ( ein super Teil, kann ich nur empfehlen).
Nun lege ich mittels folgendem Code eine neue Mappe an:
Sub Tab2()
Dim strFile As String
'Pfad
strFile = IIf(Right(ThisWorkbook.Path, 1) = "\", ThisWorkbook.Path, ThisWorkbook.Path & "\")
With Application
.ScreenUpdating = False 'Bildschirmaktualisierung aus
.DisplayAlerts = False 'Meldungen aus
With ThisWorkbook.Sheets(29)
strFile = strFile & "Bewerbungsaktivitäten " & .Name & ".xls" 'Pfad + Dateiname
.Copy 'kopieren
End With
With ActiveWorkbook
.SaveAs Filename:=strFile 'speichern
.Close False 'falls gewünscht
End With
.ScreenUpdating = True
.DisplayAlerts = True
End With
End Sub
Mag mir jemand helfen ?
Gruss
Stefan
Anzeige