frage zu datum+datei speichern
18.01.2009 15:46:00
Schneider
ich habe zwei probleme mit meinem code
1. ich möchte in eine zelle das heutige Datum + 2 arbeitstage schreiben
wollte dies erst mit der funktion arbeitstag versuchen, allerdings benötige ich das ganze per vba...als ich die funktion dann per makrorecoder aufgezeichnet habe, steht in der zelle allerdings #NAME? obwohl das add-in analysefunktion aktiviert ist
2. ich möchte anschließend eine datei speichern..dies funktioniert auch, nur wenn man beim speichern auf abbrechen klickt, wird eine datei mit dem namen "FALSCH" erzeugt...wie kann ich dies verhindern?
Private Sub CommandButton1_Click()
Dim Datei As String, Text As String
Dim Zeile As Long
Dim HFeld As Integer
Dim zeigen
On Error GoTo Fehler
'Zieldatei festlegen
Datei = "c:\test.kfw"
pfad_nochmal:
Datei = Application.GetSaveAsFilename(Datei, , , "Dateinamen für XML-Datei eingeben")
Close #1
If Dir(Datei) "" Then
frage = MsgBox("Die Datei: " & Chr(13) & _
Datei & Chr(13) & _
"ist bereits vorhanden! " & Chr(13) & _
"Datei überschreiben ?", _
vbYesNo + vbQuestion, "Frage")
If frage vbYes Then GoTo pfad_nochmal
End If
Open Datei For Output As #1 'Zieldatei öffnen
'reinschreiben
Print #1, ""
Close #1 'Zieldatei schließen
MsgBox "Die XML-Datei wurde erstellt. " & Chr(13) & Chr(13) & _
"Speicherort: " & Chr(13) & _
"> " & Datei & "