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
Leider wird das Modul und der Code aus dem Tabellenblatt nicht mit übernommen.Mag mir jemand helfen ?
Gruss
Stefan