Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Nicht-GanzeZahlen finden

Nicht-GanzeZahlen finden
31.01.2005 15:26:25
Thomas
Hallo da draußen,
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
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nicht-GanzeZahlen finden
u_
hallo,
if cells(k,i)int(cells(k,i) Then
Gruß
auf die schnelle
Volker
Hallo Thomas,
was Du suchst ist die INT- oder die FIX-Funktion, die eine Zahl auf Ganzzahl rundet.
Du prüfst, ob die gerundete gleich der nicht gerundeten Zal ist:
Das könnte so aussehen

Sub brüche_markieren()
Dim rgn, zelle As Range
Set rgn = Range("A4:AV26")
For Each zelle In rgn
If zelle <> Int(zelle) Then
With zelle
.Interior.ColorIndex = 7
.Interior.Pattern = 1
.Interior.PatternColorIndex = 7
End With
End If
Next
End Sub

Gruß
Volker
Anzeige
AW: Nicht-GanzeZahlen finden
Thomas
Danke an u_ und Volker für die Vorschläge.
Der von Volker arbeitet wie gewünscht.
Den von u_ versteht VBA -wie meinen Versuch- nicht. Auch weitere Versuche des Umformulierens wollten keine Besserung zeigen.
Danke noch einmal für die Mühe.
Thomas
man tut, was man kann o.T.
Volker
.
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige