Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
312to316
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
312to316
312to316
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fehlermeldung bei falscher Zahleneingabe in VBA

Fehlermeldung bei falscher Zahleneingabe in VBA
20.09.2003 21:43:08
Joe
Hallo Profis
Habe ein wahrscheinlich für euch kleines Problem mit der Eingabe von Zahlen.
Ich habe eine TextBox wo ich eine Zahl als Meter Eingeben kann, nun soll beim Verlassen der TextBox aber über VBA geprüft werden ob die Zahl einem Raster von 6,25cm entspricht. (Rastermaß: 0, 6.25, 12.5, 18.75, 25, 31.25,.....). Wenn dies nicht ist soll eine Fehlermeldung kommen.
Als kleines Beispiel wäre:
Falsch: 2,15 Meter sind kein Rastermaß, Fehlermeldung kommt
Richtig: 2,125 Meter Rastermaß vorhanden !

Hoffe Ihr habt eine Lösung für mich komm einfach nicht weiter !!!!!
Mir sind alle Vorschläge recht aber bitte über VBA.

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehlermeldung bei falscher Zahleneingabe in VBA
20.09.2003 21:50:43
Nepumuk
Hallo Joe,
dafür gibt es den Modulo-Operator.
0 Mod 6.25 = 0
6.25 Mod 6.25 = 0
18,75 Mod 6.25 = 0
alle anderen Rückgabewerte außer 0 passen also nicht in das Raster.
Gruß
Nepumuk
AW: Fehlermeldung bei falscher Zahleneingabe in VBA
20.09.2003 23:41:52
Joe
Hallo Nepumuk!

Einmal Danke für Deine schnelle Antwort, aber,..
Könntest Du die Eingabe ein wenig ausführlicher schreiben, komme nicht ganz mit wie es funktioniert. Großes Fragezeichen wenn Du mich verstehst.

Mfg Joe
AW: Fehlermeldung bei falscher Zahleneingabe in VBA
21.09.2003 01:33:35
PeterW
Hallo Joe,

Mod liefert den Rest einer Division. 13:4 = 3 Rest 1. Wenn der Rest 0 ist geht die Division glatt aus, passt also in dein Raster.

Gruß
Peter
Anzeige
AW: Fehlermeldung bei falscher Zahleneingabe in VBA
21.09.2003 10:17:43
Sigi
Hallo Joe, hallo Nepumuk,

der Modulo-Operator gilt nur für ganzzahlige Division mit Rest!
Es muss also auf Ganzzahligkeit geprüft werden ...

Sub TEST()
Dim Eingabe As Double
Let Eingabe = 18.7555
If (Eingabe * 100) = Int(Eingabe * 100) And (Eingabe * 100) Mod 625 = 0 Then
MsgBox "Passt!"
Else
MsgBox "Nee, passt nicht!"
End If
End Sub

Gruß
Sigi
AW: Fehlermeldung bei falscher Zahleneingabe in VBA
21.09.2003 20:17:46
Joe
Hallo Sigi

Deine Antwort habe ich nun getestet funkt super bis auf eins da ich die Eingaben in Meter machen muss habe ich zum Teil 4 Nachkomma stellen (2,1875m) und genau bei den vier Nachkommastellen funktioniert es nicht. Nun meine Frage: Wie kann ich den Code so ändern damit er Vier Nachkommastellen überprüft??

Nochmals Danke für Eure Mühe!!!

Mfg Joe
Anzeige
AW: Fehlermeldung bei falscher Zahleneingabe in VBA
21.09.2003 21:15:03
Sigi
Hallo Joe,

ganz einfach, um Faktor 100 erhöhen ...

Sub TEST()
Dim Eingabe As Double
Eingabe = 2.1875
If (Eingabe * 10000) = Int(Eingabe * 10000) And (Eingabe * 10000) Mod 625 = 0 Then
MsgBox "Passt!"
Else
MsgBox "Nee, passt nicht!"
End If
End Sub

oder das Ganze als VBA-Funktion ...

Function IstPassendesRaster(Eingabe As Double) As Boolean
If (Eingabe * 10000) = Int(Eingabe * 10000) And (Eingabe * 10000) Mod 625 = 0 Then
IstPassendesRaster = True
Else
IstPassendesRaster = False
End If
End Function

in A1 steht dein Wert in Metern (2,1875)
"=IstPassendesRaster(A1)"

Gruß
Sigi
Anzeige
AW: Fehlermeldung bei falscher Zahleneingabe in VBA
21.09.2003 22:29:17
Joe
Hallo Sigi!!

Super jetz funktioniert das ganze einwandfrei so wie ich das wollte.
Danke Dir recht Herzlich

Mfg Joe

309 Forumthreads zu ähnlichen Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Anzeige
Zahl vorn/hinten vom Text trennen + Komma
StefanK

Hallo Excel-Freunde
ich möchte gern per Formel folgendes lösen:
in zelle a3 steht
1 haley, bill rock around the clock 1956
jetzt soll in b3 die "1" stehen --- löse ich per Formel mit =LINKS(A3;SUCHEN(" ";A3)-1)
in e3 soll "1956" stehen --- löse ich mit Array-Formel {=...
25.09.2008 19:00:21
Thread-ID: 1012407
12 Beiträge
Textbox Ausgabe als Zahl bzw. Zeit formatieren
Steffan

Hallo ihr lieben,
ich schreib jetzt schon den ganzen Tag an folgender Routine:
Private Sub CommandButton1_Click() Dim z As Integer z = Range("I101").End(xlUp).Row + 1 TextBox1 = Format(CDate(TextBox1.Value), "dd.mm.yyyy") Cells(z, 9) = TextBox1 'Datum des Tauchgangs Cells(z, 12) = Tex...
28.09.2008 20:12:56
Thread-ID: 1012988
6 Beiträge
Anzeige
Zahlen rechtsbündig in einer Textbox
Helmut

Hallo,
ich habe einen Textstring mit Zahlen die ich rechstbündig anordnnen will.
Text= "Beisiel: " & Format (Zahl,"#,###")
Wie wird die Zahl im Formatbefehl z.B rechtsbündig bei max 6 Stellen ausgegeben?
Gruß
Helmut
04.11.2008 11:57:00
Thread-ID: 1021556
2 Beiträge
Zahl eingeben und per VBA formatieren
Herbert

Hallo Gemeinde
Ich habe eine Zelle in einem .xlt, dort soll der User eine Zahl eingeben und mit dem Changeereignis
soll die Zahl in der Form JJ/###A umgewandelt werden.
Beispiel: 201 soll 08/201A werden. Das, was ich hier verbrochen habe, funst nicht, kann mir jemand helfen?
P...
05.11.2008 16:08:10
Thread-ID: 1021969
12 Beiträge
Textzahl umwandeln
Stephan

Hallo zusammen,
ich habe folgendes Problem:
Mit dem u. a. Code werden Zeilen aus einer Datei in eine andere kopiert. Die Spalte B (B2:B65535) der Zieldatei ("Auswertung.xls)" soll nun aber zusätzlich noch mit 1 multipliziert werden, da diese ein Datum als Textzahl enthält und dieses in...
10.11.2008 11:12:00
Thread-ID: 1023147
22 Beiträge
Nur Zahlen in sehr vielen Textboxen
uli

Hallo,
habe ein im Internet gefunden, der allerdings noch ein bisschen angepasst werden muss. Vielleicht könnt ihr mir helfen, da ich an dieser Stelle nicht mehr weiterkomme.
Ich möchte die Eingabe von Buchstaben in mehreren Textboxen verbieten. Dies mache ich mit folgendem Code in eine...
13.11.2008 10:24:00
Thread-ID: 1024091
3 Beiträge
TextBox Inhalte sollen Zahlen sein
Frank

Hallo Zusammen!!!
Mit folgendem Code:
Private Sub CommandButton2_Click() If Me.TextBox1.Value = "" Then MsgBox "Sie müssen ein Datum eingeben" Exit Sub End If If Me.TextBox2.Value = "" Then MsgBox "Sie müssen eine Anfangszeit eingeben " Exit Sub End If If Me.TextBox3.Value = "" Then M...
17.11.2008 21:37:00
Thread-ID: 1025414
8 Beiträge

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
3
5
11
5
3
1
11
21
2
7
4
3
3
2
1
8
5
4
21
3
5
2
2
6
4