Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: ganze Zahl abfragen

ganze Zahl abfragen
SteffenS
Hallo Zusammen,
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
Anzeige

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

Betreff
Benutzer
Anzeige
AW: ganze Zahl abfragen
06.07.2010 20:59:23
Uduuh
Hallo,
if int(65/3)=65/3 then ...
Gruß aus’m Pott
Udo

AW: ganze Zahl abfragen
06.07.2010 21:01:07
Josef

Hallo Steffen,
Sub test()
  
  MsgBox IIf(60 / 20 = Int(60 / 20), "", "Keine ") & "Ganzzahl!"
  
End Sub


Gruß Sepp

Anzeige
Danke
06.07.2010 22:34:55
SteffenS
das ging so
VG
Steffen
AW: ganze Zahl abfragen
06.07.2010 21:09:04
BoskoBiati
Hallo,
mittels VBA per Multiplikation
Deine Formeln sind alle Divisionen!
z.B. so:
Sub test()
Dim strTest As String
strTest = "Ganzzahl"
If Range("A1")  Int(Range("A1")) Then
strTest = "keine " & strTest
End If
MsgBox (strTest)
End Sub

Gruß
Bosko
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Ganze Zahlen in Excel abfragen und erkennen


Schritt-für-Schritt-Anleitung

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:

  1. VBA-Makro erstellen:

    • Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
    • Klicke auf 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
  2. Makro ausführen:

    • Schließe den VBA-Editor und kehre zu Excel zurück.
    • Drücke ALT + F8, wähle test und klicke auf Ausführen.
  3. Ergebnis interpretieren:

    • Ein Dialogfeld zeigt an, ob das Ergebnis eine ganze Zahl ist.

Häufige Fehler und Lösungen

  • Fehler: "Typenübereinstimmung" beim Ausführen des Codes.

    • Lösung: Überprüfe, ob alle Variablen korrekt deklariert sind und die richtigen Datentypen verwenden.
  • Fehler: Das MsgBox-Fenster zeigt immer "Keine ganze Zahl!" an.

    • Lösung: Stelle sicher, dass Du die Int()-Funktion richtig verwendest. Sie sollte das Ergebnis der Division mit Int(result) vergleichen.

Alternative Methoden

Wenn Du keine VBA-Lösungen nutzen möchtest, kannst Du auch Excel-Formeln verwenden:

  • Excel-Formel zur Überprüfung:
    =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.


Praktische Beispiele

  • Beispiel 1: Verwende die oben genannte VBA-Methode, um verschiedene Divisionen zu testen, wie 65 / 3 oder 70 / 5.
  • Beispiel 2: Setze die Excel-Formel in verschiedenen Zellen ein, um zu überprüfen, ob die Werte 7,5 oder 10,0 ganze Zahlen sind.

Tipps für Profis

  • Nutze die IsNumeric()-Funktion in VBA, um sicherzustellen, dass die Eingabewerte Zahlen sind, bevor Du die Überprüfung durchführst.
  • Kombiniere VBA mit Excel-Formeln, um eine dynamische Lösung zu erstellen, die auf die Benutzerinteraktion reagiert.

FAQ: Häufige Fragen

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.

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