Live-Forum - Die aktuellen Beiträge
Datum
Titel
08.10.2025 12:36:22
Hinweis für Word auf dem MAC
08.10.2025 12:35:32
Datumsabhängige Einträge in Zellen. Bedingter Formatierung.
08.10.2025 11:44:01
Faktor Uhrzeit hinzu fügen
08.10.2025 06:24:29
VBA - Zeichenkette von rechts kürzen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

SaveAs-Problem mit Datumsformat

Forumthread: 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
Anzeige

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
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige