Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1004to1008
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
Inhaltsverzeichnis

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

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
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

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige