Makro IF Funktion
15.12.2016 15:29:48
Stefan
Liebe Experten,
ich speichere eine Datei mit folgendem Befehl:
Sub Speichern_unter_Korrektur_Upload()
Dim Pfad$, Datei$, Filter$
Pfad = ThisWorkbook.Path
Datei = ActiveSheet.Range("XFD1")
Filter = "Text(*.txt), *.txt"
ActiveWorkbook.SaveAs Filename:=Application.GetSaveAsFilename(Datei, Filter), FileFormat:= _
xlText, CreateBackup:=False, Local:=True
End Sub
Jetzt würde ich gerne eine If Funktion einfügen, die definiert:
Wenn der User beim Speichern unter Dialog auf abbrechen drückt, dann sollen Folgendes ausgeführt werden:
ActiveWorkbook.Close:
Sheets("Adjustment upload").Select:
Selection.AutoFilter:
Sheets("Info").Select:
ActiveWorkbook.Save
Wenn er speichert, soll nichts weiter passieren.
Ich denke mir, dass das mit einer IF Funktion irgendwie möglich sein sollte. Ich weiß nur nicht, wie man eine Routine definiert, wenn eine Funktion abgebrochen wird.
Hat jemand eine Idee ?
LG Stefan