fortlaufendes speicern
23.01.2006 09:01:32
Axel
ich hätte da mal ein kleines Thema zu lösen.
Folgende Aufgabe:
In einem Rechnungsformular soll nach dem betätigen eines speichern Buttons eine Zelle (z.B. D4) fortlaufend hochgezählt werden. Diese Zahl soll auch im Speichername stehen.
erstmal habe dich das folgendermaßen gelöst:
Private Sub speichern_Click()
Const strPath As String = "C:\excel\" 'Pfad anpassen
Dim strFile As String
strFile = ActiveSheet.Range("B8").Value 'Zelle anpassen
strFile1 = ActiveSheet.Range("Q8").Value
If Dir(strPath) = "" Then
MsgBox "Pfad existiert nicht"
Exit Sub
End If
If Dir(strPath & strFile & strFile1 & ".xls") = "" Then
ActiveWorkbook.SaveAs strPath & strFile & strFile1
Else
MsgBox "Datei existiert bereits"
End If
End Sub
Allerdings ist das nicht wirklich DAS.
Das heißt ich bräuchte da mal etwas Hilfe.
B8 ist hier der Rechnungsname und Q8 die Rechnungsnummer.
Nun brauche ich ein Feld wo nach dem speichern automatisch hochgezählt wird.
Hätte da jemand was? Oder ne Alternative?
Ich bedanke mich schon mal jetzt bei euch...
Gruß aus Meck Pomm - Axel