09.11.2018, 16:31
Seiten: 1 2
09.11.2018, 19:21
Hallo jovo,
mit dem Parameter Local:=True sollte es gehen. DatumZeit ist auch drin:
mit dem Parameter Local:=True sollte es gehen. DatumZeit ist auch drin:
Sub CSVerzeugen()Gruß Uwe
With ActiveSheet.Range("$A$1").CurrentRegion
.AutoFilter Field:=10, Criteria1:="<>"
.Copy
End With
With Workbooks.Add(xlWBATWorksheet)
.Sheets(1).Cells(1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
.SaveAs Filename:="O:\Technik\IMPORTE\importdatei" & Format(Now, "yyyymmddhhnn") & ".csv", _
FileFormat:=xlCSV, CreateBackup:=False, Local:=True
.Close False
End With
ActiveSheet.Range("$A$1").CurrentRegion.AutoFilter Field:=10
End Sub
12.11.2018, 10:51
Hallo,
ich habe Dir einmal eine VBA Lösung hoch geladen.
Makro starten und es entsteht eine Csv-Datei im gleichen Verzeichniss.
Den Filenamen kannst Du auch anpassen bzw. dynamisch erzeugen.
Falls die Länge (Anzahlen der Zeilen) anders bestimmt werden sollen musst Du Dich halt noch einmal melden.
ich habe Dir einmal eine VBA Lösung hoch geladen.
Makro starten und es entsteht eine Csv-Datei im gleichen Verzeichniss.
Den Filenamen kannst Du auch anpassen bzw. dynamisch erzeugen.
Falls die Länge (Anzahlen der Zeilen) anders bestimmt werden sollen musst Du Dich halt noch einmal melden.
Seiten: 1 2