Excel VBA - Prüfen ob in einer Zelle Zahlen sind

OLLI_S · 28. September 2017

Hallo,

ich habe in Excel ein einer Spalte, in der sollten nur Zahlen (nur positive Zahlen, wie 12345) oder bestimmte Texte (wie "Ohne Auftrag") eingegeben werden.
Jetzt will ich per VBA eine Prüfung machen, ob in einer bestimmten Zelle nur Zahlen und diese erlaubten Texte eingegeben wurden.

Die Prüfung auf erlaubte Texte ist einfach:

ZellInhalt = Cells(ActiveCell.Row, SPALTE_STATUS).Value

Wert_UnGueltig = _
InStr(1, ZellInhalt, "Text 1", vbTextCompare) = 0 And _
InStr(1, ZellInhalt, "Text 2", vbTextCompare) = 0 And _
InStr(1, ZellInhalt, "Text 3", vbTextCompare) = 0

If Wert_UnGueltig then

' Meldung ausgeben

End If

Meine Frage ist: wie prüfe ich ab, ob in der Zelle nur Zahlen stehen?
Danke für eure Hilfe!

Gruß

OLLI

Claus Busch

Hallo Olli,

du kannst mit IsNumeric(ZellInhalt) auf Zahl prüfen. Soll auch noch auf Ganzzahl geprüft werden?

Claus

Claus Busch

Hallo Olli,

ich habe deine Texte in einen String geschrieben und in ein Array gewandelt. Dann lasse ich eine Schleife über das Array laufen. Wenn sich dann die Suchtext ändern, musst du nur den String verändern:

strText = "Text1, Text2, Text3"

varText = Split(strText, ", ")

ZellInhalt = Cells(ActiveCell.Row, SPALTE_STATUS).Value

If IsNumeric(ZellInhalt) And ZellInhalt < 0 Then

   Ungueltig = True

ElseIf IsNumeric(ZellInhalt) And ZellInhalt > 0 Then

   If ZellInhalt - CLng(ZellInhalt) <> 0 Then Ungueltig = True

Else

   For i = LBound(varText) To UBound(varText)

      If InStr(ZellInhalt, varText(i)) = 0 Then

         Counter = Counter + 1

      End If

   Next

End If

If Counter = UBound(varText) + 1 Then Ungueltig = True

If Ungueltig = True Then

   MsgBox "Ungültiger Wert"

End If

Claus

OLLI_S

Hallo Claus,

Dein Code ist wirklich genial (genial einfach, einfach genial)!

Danke!

Gruß

OLLI

OLLI_S

Hallo Claus,

die Funktion "IsNumeric" hilft mir für den Anfang schon weiter.

Aber eine Prüfung auf ganze Zahlen wäre schon besser, daher wäre es super, wenn Du das nachreichen könntest.

Vielen Dank!

Gruß

OLLI

Andreas Killer

Wenn ich die einfache Summenformel eingebe, rechnet Excel im Endergebnis ohne auf-und abgerundete Zahlen. In den Zellen stehen aber die gerundeten

Ergebnisse.

Öhm, nööö.

Also Excel rechnet nie mit gerundeten Zahlen, es sei denn Du hast in den Zellen wirklich mit einer Formel gerundet, also AUFRUNDEN, ABRUNDEN, etc.

Und es gibt noch eine Excel-Option "Genauigkeit wie angezeigt", aber die lass mal in Ruhe.

Also ich vermute Du meinst das in den Zellen gerundete Werte stehen, weil z.B. die Spalte zu schmal ist oder die Zelle mit "0,00" formatiert ist. Dann zeigt Excel Dir in dieser Zelle eine gerundete Zahl an.

In Wirklichkeit steht aber eine "ungerundete" Zahl in der Zelle und damit rechnet Excel weiter.

Eine Summenformel die quasi im Nachhinein die einzelnen Werte rundet gibt es meines Wissen nicht.

Man könnte natürlich mit einer UDF (ist sowas wie ein Makro) sich selber eine machen...

Ich denke wenn Du die einzelnen Werte mal wirklich rundest, dann passt es auch mit der Summe.

Andreas.

Hi,

willkommen im Windows Forum!

Excel VBA - Prüfen ob in einer Zelle Zahlen sind - Similar Threads - Excel VBA Prüfen	Forum	Datum
Excel 2016: in Zelle Ziffern zählen Excel 2016: in Zelle Ziffern zählen: Guten Tag, ich habe folgende Frage:Wie kann ich innerhalb einer Zelle, die aus Text besteht, gewisse Textelemente rausfiltern und zu Ziffern formatieren?Beispiel:Max Mustermann Kraftfahrer...	Microsoft Office	1. April 2022
Excel in Zelle Ziffern zählen Excel in Zelle Ziffern zählen: Guten Tag, ich habe folgende Frage:Wie kann ich innerhalb einer Zelle die aus Text besteht, gewisse Textelemente rausfiltern und zu Ziffern formatieren?Beispiel:Max Mustermann Kraftfahrer...	Microsoft Office	1. April 2022
Excel VBA Zahl in Zelle X Hochzählen bis wert in Zelle Y 0 ist Excel VBA Zahl in Zelle X Hochzählen bis wert in Zelle Y 0 ist: Hallo zusammen,ich habe leider wenig VBA Erfahrung und bisherige Funde in anderen Foren konnten mir nicht helfen.Besteht die Möglichkeit, dass in der Zelle A2 der Zahlenwert in 0,01 Schritten...	Microsoft Office	15. September 2021
Excel mehrere Zahlen in einer Zelle summieren Excel mehrere Zahlen in einer Zelle summieren: Hallo Zusammen, Ich bin für die Buchhaltung eine Excelliste am erstellen, auf der man die den Betrag einer Kommission mit Textumbruch in eine Zelle schreibt. Nun möchte ich die Summe der Beträge...	Microsoft Office	11. Dezember 2019
Excel - Wie kann ich Zahlen in gleichfarbigen Zellen addieren? Excel - Wie kann ich Zahlen in gleichfarbigen Zellen addieren?: Wie kann ich Zahlen in gleichfarbigen Zellen addieren? Ich habe in einer Tabelle Zeilen mit der gleichen Bedeutung mit unterschiedlichen Farben markiert und will jetzt die Zahlen die in diesen...	Microsoft Office	14. Februar 2018
Zellen zählen Zellen zählen: Hallo zusammen, ich habe eine größere Tabelle und will jetzt Zellen in einer Zeile zählen, die einen bestimmten Wert haben (z. B. >= 50). Es ist kein Bereich wie z. B. A1:G20, sondern Zellen in...	Microsoft Office	19. April 2017
Farbige Zellen mit Inhalt zählen Excel Farbige Zellen mit Inhalt zählen Excel: Hallo zusammen, Ich habe einen Kalendar in Excel kopiert und mit Daten die ich benötige gefüttert. (Feiertage, Wochentage, Kalenderwochen, Schulferien usw.) Ich muss einmal alle Wochentage im...	Microsoft Office	24. März 2017

Excel VBA - Prüfen ob in einer Zelle Zahlen sind