in einem CSV-Export Script sollen nun bestimmte Zellen der Exceltabelle mit einer festen Breite ausgegeben werden.
Bsp.: in der Tabelle gebe ich ein 570 - in der CSV Datei soll dann aber 0570 erscheinen.
Der Export wird über
schnipp....
t = ""
t = i & ";"
t = t & CVar(Worksheets(4).Cells(25 + i, 2)) & ";"
t = t & CVar(Worksheets(4).Cells(25 + i, 4)) * 100 & ";"
t = t & CVar(Worksheets(4).Cells(73 + i, 3)) & ";"
t = t & CVar(Worksheets(4).Cells(25 + i, 3)) & ";"
t = t & (Replace(CVar(Worksheets(4).Cells(25 + i, 7)), ",", ".")) & ";"
t = t & CVar(Worksheets(4).Cells(25 + i, 1))
Print #1, t
schnipp...
realisiert, was soweit auch klappt. Wie stelle ich es an, dass ich diese (hier 4-Stellen) formatiert bekomme?
Vielen Dank für Tipps.
Stephan