ich musste einen neuen Thread anlegen, weil der Alte nicht mehr verfügbar war.
Danke für die Version 4.
2 Punkte die ich lösen konnte:
In der CSV Anstelle "," ein ";" setzen weil zum Import in sevDesk ist als Trennzeichen ein Semikolone gefordert.
Im Register "Kunden" das CSV-Erstellungsdatum bei jedem zu exportierenden Datensatz einzutragen.
3 Punkte die ich nicht lösen konnte:
Bitte Firmus hilf mir dabei noch, dann ist alles Perfekt!
Danke!
https://www.herber.de/bbs/user/151887.zip
' In Spalte BN = "Status_Kunden" den Wert "exportieren_BH" mit dem Wert "Bereits_exportiert_BH" ersetzen
KDN.Range("Status_Kunden").Replace What:="exportieren_BH", Replacement:="Bereits_exportiert_BH", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
' Den Range-Bereich für das Kopieren in die CSV-Datei variabelisieren
BlattVname = AusG1.Name
Cells.Select
ActiveWorkbook.Worksheets(BlattVname).Sort.SortFields.Clear
ActiveWorkbook.Worksheets(BlattVname).Sort.SortFields.Add Key:= _
Range("A1:BN1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
' An Stelle "Range("A1:BN1")" habe ich das versucht aber geht nicht
' Range("A1").Select
' Range(Selection, Selection.End(xlToRight)).Select
With ActiveWorkbook.Worksheets(BlattVname).Sort
.SetRange Range("A1:BN6")
' An Stelle ".SetRange Range("A1:BN6")" habe ich das versucht aber geht nicht
' Range("A1").Select
' Range(Selection, Selection.End(xlToRight)).Select
' Range(Selection, Selection.End(xlDown)).Select
'In AusG1 in der Zeile 1 steht ja die Sortierreihenfolge welche aber nicht in die CSV kopiert werden darf.
'An Stelle "AusG1.Copy" habe ich das versucht aber geht nicht
AusG1.Copy
'AusG1.Select
'Range("A2").Select
'Range(Selection, Selection.End(xlToRight)).Select
'Range(Selection, Selection.End(xlDown)).Select
'Selection.Copy