Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 15:27:20
Excel öffnet nach Auswahl einer Excel diese leer
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
456to460
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
456to460
456to460
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

SaveAs-Problem mit Datumsformat

SaveAs-Problem mit Datumsformat
21.07.2004 10:33:57
franz
Hi Leute,
mit einem Makro will ich mir eine Datei als *.txt abspeichern um diese in unser Finanzbuchhaltungsprogramm einzuspielen.
Das abspeichern klappt auch, nur wir das Datum im Format tt/mm abgespeichert, ich bräuchte jedoch tt.mm - also statt dem / einen .
Wie kann ich das umstellen?
Code:
ActiveWorkbook.SaveAs Filename:= "\\3Server\Spesen\" & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & ".txt", FileFormat:=xlCSV, CreateBackup:=False

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: SaveAs-Problem mit Datumsformat
sergiesam
Hi
versuch das:
ActiveWorkbook.SaveAs Filename:="C:\Test" & format(now(), "hh"".""mm") & ".txt
Sam
AW: SaveAs-Problem mit Datumsformat
franz
In der Datei selbst habe ich das Problem mit dem Datum. Im Dateiname habe ich kein Datum.
AW: SaveAs-Problem mit Datumsformat
Uduuh
Hallo,
du musst die Datei mit der Print#-Methode schreiben. Da hast du die Möglichkeit der genauen Formatierung.
Mal als Ansatz:

Sub SaveAsTxt()
Dim strSep As String, strDat As String, _
iCol As Byte, iRow As Integer, _
iR As Integer, iC As Byte, strTxt As String, _
strMldg As String, strTmp As String
If ActiveSheet Is Nothing Then Exit Sub
With ActiveSheet.UsedRange
iRow = .Rows.Count
iCol = .Columns.Count
End With
strSep = InputBox("Trennzeichen?")
If strSep = "" Then Exit Sub
strSep = Left(Trim(strSep), 1)
DateiName:
strDat = InputBox("Dateiname?", "DateiName", ThisWorkbook.Path & "\")
If strDat = "" Then Exit Sub
If InStr(strDat, ":\") = 0 Then
strDat = ThisWorkbook.Path & "\" & strDat
End If
If Dir(strDat) <> "" Then
strMldg = MsgBox("Datei bereits vorhanden. Überschreiben?", vbYesNo)
If strMldg = vbNo Then GoTo DateiName
End If
On Error GoTo DateiFehler
Open strDat For Output As #1
For iR = 1 To iRow
strTxt = ""
For iC = 1 To iCol
strTmp = Cells(iR, iC)
If IsDate(strTmp) Then strTmp = Format(strTmp, "DD.MM.YYYY")
strTxt = strTxt & strTmp & strSep
Next iC
strTxt = Left(strTxt, Len(strTxt) - 1)
Print #1, strTxt
Next iR
Close #1
MsgBox ("Die Datei " & strDat & " wurde angelegt.")
Exit Sub
DateiFehler:
MsgBox ("Fehler in Dateinamen!")
Resume DateiName
End Sub

Gruß aus'm Pott
Udo
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige