In neue Datei speichern
23.02.2009 21:32:58
Patrik
Habe diesen Code im Forum gefunden welchen ich gerne anwenden möchte.
Eine neue Datei mit +1 wird angelegt.
Nun, meine Frage:
Falls die Datei von Anfang an nicht das richtige Format hat, wollte ich erreichen, dass nichts geschieht oder noch besser, dass eine Meldung kommt.
Habe es mit dem abgeänderten Code unter versucht, bekomme aber leider einen Fehler.
Private Sub CommandButton1_Click()
Dim DateiAlt As String
Dim DateiNeu As String
Dim Nr As Integer
DateiAlt = ActiveWorkbook.Name
Nr = CInt(Mid$(DateiAlt, 7, 2)) + 1 Then
DateiNeu = Left$(DateiAlt, 6) & Format(Nr, "00") & ".xls"
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & DateiNeu
End Sub
Mein abgeänderter Code:
Private Sub CommandButton1_Click()
Dim DateiAlt As String
Dim DateiNeu As String
Dim Nr As Integer
DateiAlt = ActiveWorkbook.Name
If Nr = CInt(Mid$(DateiAlt, 7, 2)) + 1 Then
DateiNeu = Left$(DateiAlt, 6) & Format(Nr, "00") & ".xls"
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & DateiNeu
Else
End If
Exit Sub
Könnte mir jemand dabei helfen?
Gruss
Patrik
Anzeige