Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.05.2025 16:19:36
20.05.2025 15:34:36
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

CSV-Fehler über Makro

Forumthread: CSV-Fehler über Makro

CSV-Fehler über Makro
29.08.2008 15:22:00
Frederic
Hi Leute,
könnt Ihr mir nen Tip geben, warum Excel, wenn ich "Datei-Speichern unter - CSV-Format" über VBA aus Semikolon ein "komma" macht und das datum mit "/"?
Wenn ichs manuell mache, klappts einwandfrei.
Lass ich den Rekorder mitlaufen, und führ das Makro klappts nicht!!!
WO ist denn hier der Wurm drin? oder packt das Excel nicht?
Tausend Dank vorab.
Frederic
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: CSV-Fehler über Makro
29.08.2008 15:29:17
Frederic
Hi Petra,
danke für deinen Tip, funzt aber auch nicht, ich glaube langsam, dass es Excel über VBA einfach nicht packt...
Trotzdem danke...
Frederic
Anzeige
AW: CSV-Fehler über Makro
29.08.2008 15:30:00
Petra
Hi Frederic
poste mal Deinen Code
AW: CSV-Fehler über Makro
29.08.2008 15:33:29
Petra
Hi Frederic
test mal dies:

Sub TextSpeichern()  'als csv speichern
Dim iRow As Integer, iCol As Integer
Dim sfile As String, sTxt As String
sfile = "c:\temp\test.csv"
Close
Open sfile For Output As #1
For iRow = 1 To Range("A1").CurrentRegion.Rows.count
For iCol = 1 To Range("A1").CurrentRegion.Columns.count
sTxt = sTxt & Cells(iRow, iCol).Text & ";"
Next iCol
Print #1, Left(sTxt, Len(sTxt) - 1)
sTxt = ""
Next iRow
Close
End Sub


Gruß Petra

Anzeige
AW: CSV-Fehler über Makro
29.08.2008 15:34:00
Frederic
Hi petra,
sorry für die Umstände, aber ich seh heut vor lauter Codes schon nichts mehr...:-) wenn man natürlich zu doof ist und Änderungen durchführt, aber den falschen Code laufen lässt, kanns nicht laufen :-)
hier mein Code, der funzt jetzt perfekt:
ActiveWorkbook.Activate
ActiveWorkbook.SaveAs Filename:="\\Archiv01\kasse\rkasap.csv", FileFormat:=xlCSV, _
CreateBackup:=False, local:=True
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
ActiveWorkbook.SaveAs Filename:="R:\TEAM4327\2008-2009\Verbuchungen SAP\RKA" & Sheets(2).Range("a1") & ".csv", FileFormat:=xlCSV, _
CreateBackup:=False, local:=True
Tausend Dank für deine Hilfen...
LG und ein schönes WE.
Frederic
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

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