Code ändern
Hans
mit folgendem Code erstelle ich eine Kopie in einem Vorgegeben Laufwerk und Namen. Das funktioniert auch. Meine Frage, ich möchte das die Kopie nach dem speichern geschlossen wird, die Originaldatei aber geöffnet bleibt.
Geht das ?
Vielen Dank
Sub a()
Dim Zelle As Range
For Each Zelle In Sheets("eingaben").Range("F18:P48,W18:AG48,AN18:AX48,BE18:BO48,BV18:CF48,CM18: _
_
CW48")
If IsNumeric(Application.Match(Zelle.Value, Sheets("Vorgaben").Range("S510:S550"), 0)) Then
Zelle.Value = "Abwesend"
End If
Next
'Activeworkbook.SaveAs (Filename:= pfad_und_ datei -- anpassen!!!)
End Sub
Anzeige