Speicherproblem
28.04.2007 01:32:01
Frank-K
ich bräuchte euren Rat bei einem Problem wo ich nicht mehr weiterkomme.
Ich habe in einer Rechnungsvorlage vor die erstellten Rechnungen zu sortieren und habe mir dazu 3 Schaltflächen erstellt mit den Namen Offen, Bezahlt und Mahnung
Dann habe ich mir einen Ordner Rechnungen angelegt und in diesem für jede Schaltfläche einen Unterordner.
Das ganze soll so funktionieren:
- Eine neue Rechnung wird erstellt und soll im Unterordner Offen gespeichert werden. Dazu geht eine InputBox auf in die der Dateiname eingegeben werden kann und die Rechnung dann darunter gespeichert wird (Code siehe unten).
- Wenn der Kunde bezahlt hat kann ich die Rechnung im Ordner Offen auswählen und dann soll diese nach Betätigen der Schaltfläche Bezahlt in den Unterordner Bezahlt verschoben werden und aus dem Ordner Offen gelöscht werden.
- Wenn der Kunde nicht zahlt, so das gemahnt werden muss soll das ganze über die Schaltfläche Mahnungso wie oben passieren, also Datei soll in den Ordner Mahnung verschoben werden und aus dem Ordner Offen gelöscht werden.
Code für Speichern der neuen Rechnung im Ordner Offen
Sub Offen()
Dim sInput As String
sInput = InputBox("Dateiname eingeben:", "Pfad")
If sInput = "" Then
MsgBox "Kein Speichername eingegeben!", vbExclamation, "Info"
sInput = InputBox("Dateiname eingeben:", "Pfad")
Else
'Hier deine Prozedur bzw. dein Speichern eintragen z.B
ActiveWorkbook.SaveAs ("C:\Dokumente und Einstellungen\fkisbiro\Eigene Dateien\Rechnungen\ _
_
Offen\" & sInput)
End If
End Sub
Mit dem ganzem komme ich nicht mehr weiter, auch ein Googeln und die Forumssuche hat mir leider nicht weitergeholfen.
Für Eure Hilfe schon mal im Voraus ein Dankeschön.
Frank