[Excel, CSV] Exportieren von Tabellenblättern nach CSV & wissenschaftliche Notierung von Zahlen

Gepostet am: May 31, 2014 11:45:48 AM

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.

oder als VBA

RemoveScientificNotation

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