Nicht-GanzeZahlen finden
31.01.2005 15:26:25
Thomas
ich benötige Hilfe bei der Formulierung für die Suche nach Nicht-ganzen-Zahlen.
Die bekomme ich bei der Übertragung aus einer .htm-Datei in eine .xls-Datei immer dann, wenn sie in den Tausenderbereich kommen. Dann wird der Trennpunkt als Komma übertragen und (da ohne Kommastellen) als kleine Zahl dargestellt.
Meine Versuche mit
Range("a1").Select
For k = 4 To 26
For i = 1 To 58
If Cells(k, i) Ganzzahl Then
With ActiveSheet.Cells(k, i)
.Interior.ColorIndex = 7
.Interior.Pattern = 1
.Interior.PatternColorIndex = 7
End With
End If
Next i
Next k
arbeiten nicht, da ich die Syntax für ganze Zahlen oder eben Nicht-Ganze-Zahlen nicht finden kann.
Vielen Dank schon einmal für die Mühe.
Thomas