ganz kurze Frage kann ich eine Arbeitsmappe mit einem Knopfdruck schließen und dann gleich wieder neu laden?
Ich möchte gerne auf Knopfdruck die Arbeitsmappe neu starten.
Geht das?
Vielen Dank
marspoki
Sub Neuladen()
Dim Pfad As String
Pfad = ActiveWorkbook.FullName
ActiveWorkbook.Close savechanges:=False 'ggf. auch true, ganz nach Geschmack
Workbooks.Open Pfad
End Sub
Gruß, WolliSub Neuladen()
Dim Pfad$
Application.ScreenUpdating = False
With ActiveWorkbook
Pfad = .FullName
.Saved = True '.Save
.ChangeFileAccess 3
End With
Workbooks.Open Pfad
End Sub
Gruss!Sub Neuladen()
Dim Pfad$
Application.ScreenUpdating = False
With ActiveWorkbook
Pfad = .FullName
.Saved = True '.Save
.ChangeFileAccess 3
End With
Workbooks.Open Pfad
End Sub
Gruss!