für einen eigenen Export in eine Textdatei, möchte ich das hinterlegte Format einer Zelle mit übernehmen.
Frage:
Wie lese ich am besten das Format der jeweiligen Zelle aus und formatiere nun den Wert des jeweiligen Feldes für die Übergabe an die Exportfunktion?
Hier der bisherige Code:
Dim WS As Worksheet
For Ri = 1 To WS.Rows.Count
If WS.Cells(Ri, 1) = "" Then Exit For
str = ""
For i = 1 To Ci
' hier müßte ich nun die Formatierung der Zelle übernehmen...
str = str & ",""" & WS.Cells(Ri, i) & """"
Next i
If Len(str) > 2 Then str = Mid(str, 2)
Print #1, str
Next Ri
'.....
Gruß Carsten
Version: soll ab Excel 2000 funktionieren