ich möchte jede Spalte nach Kommazahlen durchsuchen und die Spalte, in der eine Zahl mit Kommat steht in #,# formatieren.
Bin für jede Anregung dankbar.
MfG
Marcl
Sub KommaFormatieren()
Dim i As Integer, j As Integer
For i = 1 To 255
For j = 1 To Cells(65536, i).End(xlUp).Row
If IsNumeric(Cells(j, i)) And _
Cells(j, i) - CInt(Cells(j, i)) <> 0 Then
Columns(i).NumberFormat = "0.0"
Exit For
End If
Next
Next
End Sub