Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
544to548
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
544to548
544to548
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Daten in CSV-Datei speichern
11.01.2005 12:12:06
Peter
Hallo Excels,
Ich erhalte in dieser Zeile (Open "C:\Datei" & Date & ".csv" For Output As #1)eine Fehlermeldung.(Laufzeitfehler55,Datei bereits geöffnet).
Das Makro hat aber so schon funktioniert.
Wenn mir jemand helfen könnte ?

Private Sub CommandButton3_Click()
Dim intColumnLast As Integer, j As Integer
Dim i As Long, lngRowLast As Long
Dim strOut As String
Dim datum As Date
datum = Now
intColumnLast = ActiveSheet.UsedRange.Columns.Count
lngRowLast = Cells(Rows.Count, 11).End(xlUp).Row
For i = lngRowLast To 2 Step -1
If Left(Cells(i, 11).Value, 2) = "VV" Then
Open "C:\Datei" & Date & ".csv" For Output As #1
strOut = Cells(i, 1)
For j = 2 To intColumnLast
strOut = strOut & ", " & Cells(i, j)
Next
Print #1, strOut
End If
Next
Close #1
MsgBox "Die Daten wurden erfolgreich als CSV-Datei gespeichert!"
End Sub

Gruss Peter

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten in CSV-Datei speichern
Harald
Hallo Peter,
die Open-Anwqeisung darf nicht innerhalb der For-Next Schleife stehen. So versuchst Du, bei jedem Schleifendurchlauf die Datei zu öffnen.
Abhilfe:
Open "C:\Datei" & Date & ".csv" For Output As #1
For i = lngRowLast To 2 Step -1
If Left(Cells(i, 11).Value, 2) = "VV" Then
Gruß Harald
AW: Daten in CSV-Datei speichern
11.01.2005 12:38:55
Peter
Hi Harald,
besten Dank klappt wieder.
Wahrscheinlich habe ich beim ewigen Probieren die Zeilen vertauscht.
Denn es hat ja schon funktioniert.
Danke und Gruss
Peter
Anzeige

231 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige