Speichern unter...
28.04.2003 18:00:48
Georg
Habe aber in meinem Programm einen Fehler (Laufzeitfehler 1004) und komm nicht drauf.
Private Sub CommandButton3_Click()
Dim vers As Integer
vers = 0
On Error GoTo ERRORHANDLER
ActiveWorkbook.SaveAs Filename:=Range("Name1") & "_" & Range("Name2") & "_" & Range("Datum").Value
Exit Sub
ERRORHANDLER:
vers = vers + 1
ActiveWorkbook.SaveAs Filename:=Range("Name1") & "_" & Range("Name2") & "_" & Range("Datum") & "_" & vers
Resume
End Sub
Anzeige