In diesem Beispiel wird die aktive Arbeitsmappe im Standard-Dateiformat gespeichert, falls sie momentan das Dateiformat WK3 aufweist.
If ActiveWorkbook.FileFormat = xlWK3 Then ActiveWorkbook.SaveAs fileFormat:=xlNormal End If