Export der angezeigten (formatierten) Werte
18.09.2007 15:17:00
chzumbrunnen
Ich muss eine Excelliste in eine CSV-Datei exportieren.
Dies funktioniert mit dem angegebenen Code, den ich nicht mehr genau durchschaue soweit tadellos.
Das Problem ist, dass in der Excelzelle z. Bsp. 119.- steht (benutzerdefiniertes Format), der tatsächliche Wert aufgrund vorheriger Rechenoperationen aber z. Bsp. 118.932 ist.
Nun sollte nicht der tatsächliche Wert, sondern der angezeigte Wert, im Beispiel also 119 oder '119.-' in die CSV Datei exportiert werden. Wie kann ich das anstellen?
Datei = Range("B7").Value & Range("B6").Value // hier wird Pfad und Dateiname zusammengesetzt
Exportdatei = FreeFile
On Error GoTo fehler1
Open Datei For Output As #Exportdatei
z = 1
While WorksheetFunction.CountA(ThisWorkbook.Sheets("Web").Range("A1").Offset(z - 1).Resize(10)) > 0
If z >= ThisWorkbook.Sheets("Export").Range("B8") Then
Tmp = ""
For s = 1 To 42 'Number of cols
Tmp = Tmp & ThisWorkbook.Sheets("Web").Range("A1").Offset(z - 1, s - 1) & IIf(s < 42, ThisWorkbook.Sheets("Export").Range("B9"), "")
Next s
Print #Exportdatei, Tmp
End If
z = z + 1
Wend
Close #Exportdatei