Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1092to1096
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1092to1096
1092to1096
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA - nur zahlen zulassen

VBA - nur zahlen zulassen
steffen
Hallo in die Runde,
ich möchte per VBA prüfen lassen, ob in den Zellen ausschließliche zahlen drin sind.
Bsp:
012876
0049987272727
9876236262
Sobald aber ein Buchstabe oder Sonderzeichen drin ist, muss das erkannt werden (einfärben).
Ich habe es so versucht, doch das wird mir viel zu unübersichtlich, da ich ja jedes Zeichen außer den Zahlen einschließen müsste:
If InStr(Zelle, "*") > 0 Then Zelle.Interior.ColorIndex = 13"
Ihr habt sicherlich eine Idee.
Gruß Steffen

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: VBA - nur zahlen zulassen
13.08.2009 08:57:13
Hajo_Zi
Hallo Steffen,
mache es doch ohne VBA mit bedingter Formatierung IstZahl()

und Daten Gültigkeit ?
13.08.2009 08:57:46
Matthias
Hallo
oder If Not Isnumeric() then ...
Gruß Matthias
AW: VBA - nur zahlen zulassen
13.08.2009 09:09:06
gerwas
Hallo
Nehmen wir mal an deine Zellen sind in Zeile 1 bis 5 in Spalte 1 belegt
dann könnte folgendes funktionieren
Gruß Gerwas
Sub keine_zahlen_markieren()
For k = 1 To 5
If Not IsNumeric(Cells(k, 1)) Then
For s = 1 To Len(Cells(k, 1).Value)
If Not IsNumeric(Mid(Cells(k, 1), s, 1)) Then
Cells(k, 1).Characters(Start:=s, Length:=1).Font.ColorIndex = 3
End If
Next
End If
Next
End Sub

Anzeige
AW: VBA - nur zahlen zulassen
13.08.2009 09:27:14
Tino
Hallo,
meinst Du sowas?
Den Wirgungsbereich habe ich auf A1:D30 eingeschränkt.
Einfach mal was in die Zellen eintragen.
https://www.herber.de/bbs/user/63799.xls
Gruß Tino
@Tino: Kleiner Gag
13.08.2009 11:10:39
Erich
Hi Tino,
formatier doch mal eine Zelle des Bereichs als Text und schreib 123,456 rein. Dann schämt sich das Komma.
Schreibst du 123,456 in eine Standard-Zelle, schämt sich nix.
Characters.Font... geht nur für Texte.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: @Erich
13.08.2009 11:41:16
Tino
Hallo,
stimmt dies ist wieder so eine verzwickte Sache.
Habe mal noch eine Prüfung eingebaut ob der Wert eine Zahl ist.
Eventuell müsste man mit dem Punkt noch etwas machen, weil dies auch als Zahl interprediert wird.
Aber da kommt es nun darauf an ob auch ein Datum in die Zelle geschrieben werden kann.
https://www.herber.de/bbs/user/63803.xls
Gruß Tino
Fragestellung genauer?
13.08.2009 09:38:29
Erich
Hi Steffen,
was genau meinst du mit "Zahlen"?
Dürfen in den Zellen nur die Ziffern 0 bis 9 vorkommen?
Oder sind z. B. auch 1,234 und -5 und +4711 zulässig?
Wenn in einer Zelle die Formel ="4"&"5" steht, ist der Wert ein Text. (ISTZAHL() ist FALSCH.)
Aber dieser Wert kann leicht in eine Zahl 45 umgewandelt werden.
Soll so ein Wert zulässig sein oder nicht?
Was soll bei Unzulässigkeit eingefärbt werden? Die ganze Zelle (Hintergrund?)
oder nur die unzulässigen Zeichen?
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
also ich profitiere immer daraus :)
13.08.2009 12:39:58
Matthias
Hallo Erich
also bei dieser Zeile
If ............. Then Zelle.Interior.ColorIndex = 13"
hätte ich getippt er meint den Zellhintergrund.
Warten wirs also mal ab ob/bis Steffen sich meldet.
Das mit dem 1,234 ist ne interesante Nachfrage
Ich bin immer ganz "froh" über Unklarheiten ;o)
Da kommen dann oft Vorschläge, die für mich sehr interessant sind
und aus denen ich (für mich als Selbststudium) immer neues Übungpotential schöpfe.
Ich gebe Dir natürlich ($Recht) das die Fragestellung zu ungenau ist.
An dieser Stelle also auch mal ein Dankeschön an alle für die unermüdliche Arbeit und Eure Vorschläge.
Ein Danke auch an Hans W. Herber, der uns diese Plattform zur Verfügung stellt.
Gruß Matthias
Anzeige

318 Forumthreads zu ähnlichen Themen

Zahlen aus aus Text extrahieren und addieren
Bernd

Hallo,
ich würde gerne aus einer Zelle, die sowohl Zahlen, aber auch Text enthält, die Zahlen "extrahieren" und miteinander addieren. Der Inhalt der Zelle B2 z.B. würde so aussehen:
'+15 Autos;-10 Waschmaschinen;-3 Schränke
Nun möchte ich in Zelle C2 das Ergebnis sehen: 2
Wie kö...
11.09.2008 16:20:36
Thread-ID: 1009173
10 Beiträge
Anzeige
Nur Zahlen in Zelle zulassen
Richard


Hallo an alle,
vielleicht kann mir jemand weiterhelfen.
In einem früheren Beispiel habe ich mal folgenden Code auf eine Textbox angewendet. Ich wollte damit erreichen, dass nur Zahlen, das "X", das "M" und das "L" für die Eingabe zugelassen sind. Dabei spielte es keine Rolle, ob...
29.01.2009 14:10:41
Thread-ID: 1045007
2 Beiträge
Zahlen aus TextBoxen addieren
A.Franz

Hallo..kann mir jemand helfen?
Ich habe in einer UserForm mit 10-TextBoxen und verschieden Zahlen wie z.B 10..23,90..121,17 usw.Weiterhin eine 11-TextBox in der ich die Summe aller Werte aus den 10-TextBoxen addiert haben möchte wenn ich z.B einen CommandButton drücke, oder die sich jedesma...
31.01.2009 23:41:28
Thread-ID: 1045790
3 Beiträge
Anzeige
gewisse sonderzeichen aus zelle entfernen
Tobias

Hallo allerseits,
Ich würde gerne ein gewisses sonderzeichen aus einer zelle entfernen
nämlich dieses: •
If ((cells(i,2) = ?) then ' wenn die zelle dieses zeichen enthält
cells(i,2) = ? ' entfernen
End if
Was muss ich in diesen code einb...
28.02.2009 15:56:56
Thread-ID: 1055091
8 Beiträge
Formel zum entfernen von Leerzeichen
Leerzeichen

Hallo zusammen,
ich habe folgendes Problem und es wäre toll wenn mir jemand helfen könnte:
Ich habe in Spalte C2 mehrere Werte (z.B. 3; 4; 5) die durch ";" getrennt sind. Zwischen dem ";" und den Werten ist jeweils ein Leerzeichen.
Nun hätte ich gerne in C3 die selben Werte, ebenfa...
16.04.2009 09:58:49
Thread-ID: 1068995
5 Beiträge
Steuerzeichen aus "leeren" ("") Zellen löschen
Christoph

Hallo zusammen,
ich habe ein Tabellenblatt mit jeder Menge (fast) leerer Zellen. Diese werden erzeugt, indem im vorhergehenden Blatt WENN-Funktionen a la
WENN(a1=b1;"x";"")
verwendet werden. Kummer macht mir dies zum Beispiel beim Sortieren und bei Abfragen ob die Zellen leer si...
25.06.2009 10:41:14
Thread-ID: 1084263
5 Beiträge
Währungszeichen aus Zelle holen
joerg

Hallo,
ich hab hier eine Liste mit Abrechnungen, in dieser Liste kommt gelegentlich eine Fremdwährung vor, also CHF, GBP, SEK, DKK, ...
Ich würde nun gern oben in der Liste ein Feld machen, in dem man dieses Währungskennzeichen eingeben kann, dann sollen die Werte in der Spalte, in die...
29.07.2009 09:54:29
Thread-ID: 1092130
10 Beiträge
Zahlen aus Zelle entfernen
Peter

Hallo,
ich muss 2 zellen miteinander vergleichen.
In Spalte AN:AN stehen Werte Bsp 312A706 dazu stehen in Spalte AO:AO 000030-002894-K03-12A-070-600
Jetzt muss geprüft werden ob das A aus AN mit dem A aus AO identisch ist. Wenn ja dann Gutaussage
siehe Bsp-Datei
https://www....
16.09.2009 20:34:31
Thread-ID: 1103353
10 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
9
3
1
2
4
7
4
4
9
9
8
5
3
10
2
12
8
6
6
8
2
2
9
1
2