ich ermittle mittels VBA per Multiplikation bestimmte Werte.
Wie kann ich Abfragen ob das Ergebnis eine ganze Zahl ist.
z.B.: 60/20 = 3 --> ganze Zahl
65/3 = 21,67 --> keine ganze Zahl
Danke im Voraus.
VG
Steffen
mittels VBA per Multiplikation
Deine Formeln sind alle Divisionen!Sub test()
Dim strTest As String
strTest = "Ganzzahl"
If Range("A1") Int(Range("A1")) Then
strTest = "keine " & strTest
End If
MsgBox (strTest)
End Sub
Um zu überprüfen, ob ein Ergebnis eine ganze Zahl ist, kannst Du in Excel verschiedene Methoden anwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:
VBA-Makro erstellen:
ALT + F11
, um den VBA-Editor zu öffnen.Einfügen
und wähle Modul
aus.Füge den folgenden Code in das Modul ein:
Sub test()
Dim result As Double
result = 60 / 20 ' Beispielwert
If Int(result) = result Then
MsgBox "Ganze Zahl!"
Else
MsgBox "Keine ganze Zahl!"
End If
End Sub
Makro ausführen:
ALT + F8
, wähle test
und klicke auf Ausführen
.Ergebnis interpretieren:
Fehler: "Typenübereinstimmung" beim Ausführen des Codes.
Fehler: Das MsgBox-Fenster zeigt immer "Keine ganze Zahl!" an.
Int()
-Funktion richtig verwendest. Sie sollte das Ergebnis der Division mit Int(result)
vergleichen.Wenn Du keine VBA-Lösungen nutzen möchtest, kannst Du auch Excel-Formeln verwenden:
=WENN(REST(A1, 1) = 0; "Ganze Zahl"; "Keine ganze Zahl")
Setze den Wert, den Du überprüfen möchtest, in Zelle A1 ein. Diese Formel zeigt an, ob der Wert eine ganze Zahl ist oder nicht.
65 / 3
oder 70 / 5
.IsNumeric()
-Funktion in VBA, um sicherzustellen, dass die Eingabewerte Zahlen sind, bevor Du die Überprüfung durchführst.1. Wie erkenne ich in Excel, ob eine Zahl eine natürliche Zahl ist?
Du kannst die =WENN(UND(A1 >= 0; REST(A1; 1) = 0); "Natürliche Zahl"; "Keine natürliche Zahl")
Formel verwenden.
2. Wie kann ich mehrere Zellen auf ganze Zahlen überprüfen?
Verwende die Formel in einer Zelle und ziehe das Ausfüllkästchen nach unten, um sie auf die anderen Zellen anzuwenden. Alternativ kannst Du ein VBA-Makro erstellen, das alle Zellen in einem Bereich überprüft.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen