Exportieren von Tabellenblättern nach CSV & wissenschaftliche Notierung von Zahlen

Wenn man eine Excel-Datei in einer CSV speichert, wird das in der Zelle verwendete Zahlenformat auch in die csv-Datei geschrieben. Dies ist natürlich bei der wissenschaftlichen Notierung nicht gewünscht.

Das kann man manuell recht schnell ändern, indem man die Anzahl der Dezimalstellen entsprechend einstellt.

	Public Sub RemoveScientificNotation()
	Dim i As Long
	Dim j As Long
	Dim maxRow As Long
	Dim maxColumn As Long
	maxRow = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
	maxColumn = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
	For i = 1 To maxRow
	Debug.Print "Row: " & i
	For j = 1 To maxColumn
	Dim myRange As Range
	Set myRange = ActiveSheet.Cells(i, j)
	If IsNumeric(myRange.Value) And InStr(1, myRange.Value, "E") > 0 Then
	myRange.NumberFormat = "0.000000000000000000000"
	End If
	Next
	Next
	End Sub