Export von Zeile nach Zeile CSV.
09.09.2014 13:23:42
Zeile
Ich stehe gerade etwas auf dem Schlau.
Ich möchte eigentlich "nur" die Zeile 1 aus dem Blatt "Daten" in eine .CSV Datei geschrieben haben.
Die Trennung mittels ;, oder etc währe schön. Mit jedem start des Macros soll eine neue Zeile hinzugefügt werden.
Hinweis: Ich weiß nicht ob das wichtig ist. Die Daten aus dem Blatt "Daten" sind mit Sverweise generiert worden.
Sub gringoo()
Dim rngCell As Range
Dim lngFF As Long
lngFF = FreeFile
Open "C:\Temp\csv" & Format(Date, "yyyymmdd") & ".csv" For Append As lngFF
For Each rngCell In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, 23)
If rngCell.Row = 1 And rngCell.Value > 0 Then
Print #lngFF, rngCell.Value
End If
Next rngCell
Close lngFF
End Sub
Dieses Script kommt meinem Anwendungsfall nahe. Es ist nicht meins.
MFG
Sascha