@Dsaster

Sub n()
Dim i As Long, j As Long
Application.ScreenUpdating = False
Columns("A:F").NumberFormat = "@"
For i = 1 To 43825
For j = 1 To 6
If Cells(i, j)  "" Then
If Int(Cells(i, j) * 1) = Cells(i, j) * 1 Then
Cells(i, j) = Left(Cells(i, j) & ".00000000)", 8)
Else
Cells(i, j) = Left(CStr(Cells(i, 1)) & "00000000", 8)
End If
End If
Next j
Next i
Application.ScreenUpdating = True
End Sub

leider gibt mir der Debugger einen Laufzeitfehler (Typen unverträglich) bei
If Int(Cells(i, j) * 1) = Cells(i, j) * 1 Then
an. Ich weiß, ich nerve langsam, aber kannst du da noch mal drüber schauen?
Ich danke dir!
Michi