Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1476to1480
1476to1480
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nur Zahlen (Ganzzahlen) erlauben

Forumthread: Nur Zahlen (Ganzzahlen) erlauben

Nur Zahlen (Ganzzahlen) erlauben
03.03.2016 16:12:16
Jockel
Hallo ,
ich möchte eine Spalte überprüfen, ob nur Zahlen drin sind.
das habe ich soweit mit
If Not IsNumeric(c) Then ....
hinbekommen, aber ich möchte auch verhindern dass der User in einem Range ein Kommazeichen oder einen Punkt setzt. Die werden bei der Prüfung nicht erfasst.
Der User soll wirklich nur Ganzzahlen eingeben können.
Wie kann ich so was abfragen ?
Danke
Jockel

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nur Zahlen (Ganzzahlen) erlauben
03.03.2016 16:20:43
Hajo_Zi
Hallo Jockel,
Warum nicht Gültigkeit, Ganze Zahl?

AW: Nur Zahlen (Ganzzahlen) erlauben
03.03.2016 16:37:11
Jockel
weil ich gerne in VBA machen will.
Gruß

AW: Nur Zahlen (Ganzzahlen) erlauben
03.03.2016 16:45:58
Daniel
Hi
ob in einem Zellbereich nicht nur Zahlen sondern auch Texte vorhanden sind, kannst du so prüfen:
IF Worksheetfunction.CountA(Range(...))  Worksheetfunction.Count(Range(...)) Then
das CountA zählt alle Zellen, die einen Inhalt haben, das Count Zählt alle Zellen, die eine Zahl enthalten (entspricht den Excelfunktionen Anzahl und Anzahl2)
wenn diese Prüfung nur Zahlen ausgibt, kannst du eine Kommazahl so finden: 
If Not Range(...).Find(what:=".", LookIn:=xlValues, lookat:=xlPart) Is Nothing Then
Gruß Daniel

Anzeige
AW: Nur Zahlen (Ganzzahlen) erlauben
03.03.2016 16:46:01
Hajo_Zi 

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If Target  CLng(Target) Then
MsgBox "Falsche Eingabe"
Application.EnableEvents = False
Target = ""
Application.EnableEvents = True
End If
End If
End Sub
Gruß Hajo

Anzeige
AW: Nur Zahlen (Ganzzahlen) erlauben
03.03.2016 19:55:13
Gerd
Hallo Jockel,
die Eingabesteuerung etwas vollständiger:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
If Not Intersect(Target, Columns(1)) Is Nothing Then  '1 = A; 2 = B etc.
For Each Rng In Intersect(Target, Columns(1))
If Not IsNumeric(Rng.Text) Then
MsgBox "Falsche Eingabe; nur Ganzzahlen"
Application.EnableEvents = False
Rng = ""
Application.EnableEvents = True
ElseIf Rng  CLng(Rng) Then
MsgBox "Falsche Eingabe; nur Ganzzahlen"
Application.EnableEvents = False
Rng = ""
Application.EnableEvents = True
End If
Next
End If
End Sub
Gruß Gerd

Anzeige
AW: Nur Zahlen (Ganzzahlen) erlauben
04.03.2016 08:50:40
Jockel
Hallo Gerd,
danke, der Code funktioniert perfekt.
Ich hätte den Code aber lieber in einem Button hinterlegt und nicht in einem Change Ereignis.
was muss ich da ändern ?
Danke
Jockel
;

Forumthreads zu verwandten Themen

Zahl einer Zelle in den Wenn-Text
die_nathan

Schönen Nachmittag,
Ist es möglich innerhalb eines Textes die Zahl einer Zelle einzufügen:
falsches Beispiel:
=wenn(A1="Ja!";"Die Gebühr von"A2"Euro ist noch zu zahlen!;"Die Gebühr wurde bereitsbezahlt."
Liebe Grüße
11.12.2008 15:35:07
Thread-ID: 1032078
6 Beiträge
Anzeige
Wenn keine CheckBox aktiviert dann MasgBox
Heinz

Guten abend, Leute im Forum
Ich würde gerne in UF, wenn die CheckBoxen 8,16,32, nicht aktiviert sind, das dann eine
MsgBox "Keine Linie ausgewählt" erscheint.
Könnte mir dazu bitte jemand weiterhelfen.
Danke & Gruß
Heinz
18.01.2009 20:59:21
Thread-ID: 1041266
3 Beiträge
Anzeige
Wenn Links keine Zahl - MsgBox
Heinz

Leute ich habe bitte noch ein Problem
Mit unteren Code werden Werte (Zahlen) verschoben.
Nun möchte ich bitte wenn in " Range("F65") = Left(wks.Range("C5").Value, 5) " keine 5 Zahlen stehen, das dann eine MsgBox erscheint "Linie 311 keine gültige SAP Nummer".
Ist das mit diesen unte...
02.02.2009 20:00:18
Thread-ID: 1046400
3 Beiträge
Wenn einer von dann
dann

Wer kann helfen bzw. geht das überhaupt ?
es soll: nur wenn A10 -----einer von PAFFTD ist -------- gerechnet werden
aber das funktioniert nur, wenn der Wert A10 am Anfang von PAFFTD steht.
PAFFTD
L3344
L2233
L6633
usw.
"Wenn A10=L3344 dann funktioniert die Fo...
03.03.2009 10:20:37
Thread-ID: 1055838
7 Beiträge
Anzeige
Wenn Formel einen Wert hat, dann....
Rob

Hallo miteinander!
Ich habe in einer Zelle folgende Funktion stehen:
{=INDEX(Abrechnungshistorie!$C$1:$C$100;KKLEINSTE(WENN(Abrechnungshistorie!$A$7:$A$100=$C$30; ZEILE(Abrechnungshistorie!$C$7:$C$100));1)) }
Diese Funktion möchte ich gerne mit einer "Wenn...Dann" Bedingung verknü...
25.03.2009 18:58:58
Thread-ID: 1063931
3 Beiträge
Wenn Dann Funktion mit zählen wenn
Christian

Hallo zusammen,
ich brauche eine Funktion, die es mir ermöglicht, in einem Datenblatt erst nach einem bestimmten Wert zu suchen und dann zum gefundenen Wert einen weiteren Wert zu suchen und diese dann in der Anzahl zusammen zu zählen.
Bisher dachte ich, ich komme so zu meinem Ziel:
...
07.08.2009 10:26:38
Thread-ID: 1094218
3 Beiträge
Wenn Jahreszahl übereinstimmt,dann, sonst...
Wolfgang

Hallo,
der nachfolgende Code teilt eine Summe ggfs. nach Jahren auf. Wie muss ich den Code ändern, damit eine Abfrage "eingebaut" wird, die überprüft, ob das Jahr -intB5j- mit der Jahreszahl in Tabelle "Daten", Zelle M1 übereinstimmt. Wenn ja, dann entsprechend weiter.
Wenn nein, dann n...
21.02.2010 08:29:01
Thread-ID: 1139974
6 Beiträge
wenn nicht eine Textbox mehr als 0, dann Msg.Box
Wolfgang

Hallo,
ich versuche folgendes Problem in den Griff zu bekommen, schaffe es aber mit verschied. Ansätzen nicht:
Ich würde gerne bei Klicken einer Schaltfläche zunächst überprüft haben, ob nicht zumindest eine Textbox von den Textboxes13-16 mehr als 0 enthält, wenn nein, Abbruch. Wäre für...
22.02.2010 18:36:04
Thread-ID: 1140459
11 Beiträge
If Target.Address ... aber nur wenn eine Zahl
Hans

Hallo Leute, ich habe folgendes Skript : Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) If Target.Address(0, 0) = "C6" Then Lager = Target.Cells(1, 1).Value Range("H2") = Lager Call Lagr Cancel = True End If Das besagt das die Methode Lagr ausgeführt w...
25.02.2010 15:13:26
Thread-ID: 1141551
5 Beiträge
Anzeige
Wenn aus einer Zahl 210120 nur ersten Wert abfrag?
Carsten

Hallo !
Ich habe eine Excel Liste, dort sind Zahlen aufgeführt: 21040400, 21040401, 31040401, 4101010, 51050500, je Zahl eine Zelle, da dort noch weitere Werte stehen.
Jetzt möchte ich eine Wenn Formel basteln, die mir folgendes auswertet:
Wenn (Feld B3 = "2" ; "QS", wenn (Feld B3...
31.03.2010 06:58:29
Thread-ID: 1149494
4 Beiträge
Wenn aus einer Zahl 210120 nur ersten Wert abfrag?
Carsten

Hallo !
Ich habe eine Excel Liste, dort sind Zahlen aufgeführt: 21040400, 21040401, 31040401, 4101010, 51050500, je Zahl eine Zelle, da dort noch weitere Werte stehen.
Jetzt möchte ich eine Wenn Formel basteln, die mir folgendes auswertet:
Wenn (Feld B3 = "2" ; "QS", wenn (Feld B3...
31.03.2010 08:15:51
Thread-ID: 1149500
3 Beiträge
Prüfung auf ganze Zahl
Holger

Guten Morgen,
wenn ich eine Eingabe auf einen numerischen Wert prüfen will, verwende ich z. B. "If IsNumeric() ..." in meiner Prozedur. Aber was kann ich für die Prüfung nach einer Ganzzahl benutzen, wenn ich z. B. eine Dezimalzahl ausschließen will?
Im Archiv und in der VBA-Hilfe finde...
14.06.2010 09:48:12
Thread-ID: 1161711
10 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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