Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1400to1404
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
1400to1404
1400to1404
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

IsNumeric in einer Schleife

IsNumeric in einer Schleife
06.01.2015 23:58:31
Mii
huhu ich hoffe einer kann mir helfen
Ich möchte eine Reihe von Textboxen (TB2_1 , TB2_2, ...) in einer Schleife auf nummerischen Inhalt prüfen. Wenn eine leer ist, oder Buchstaben eingetragen werden soll eine Fehlermeldung erscheinen sowie die entsprechende Textbox ihre Farbe wechseln und fokussiert werden. Werden Zahlen eingetragen dann diese speichern.
Einzeln bekomme ich es hin:
If Not IsNumeric(TB2_1.Value) Then
MsgBox "nummerischer Wert benötigt", vbInformation
TB2_1.SetFocus
TB2_1.BackColor = &HFF&
Exit Sub
Else
TB2_1.BackColor = &H8000000E
End If
Aber alle meine Versuche dies in eine Schleife einzubinden mit wahren mist
hat einer eine Lösung?

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

Betreff
Datum
Anwender
Anzeige
AW: IsNumeric in einer Schleife
07.01.2015 02:08:31
Ewald
Hallo,
Textboxen sollten nach der Eingabe überprüft werden und nicht mit einer Schleife am Ende
Wenn ich Textbox30 ausgefüllt habe, und dann kommen zig Msgboxen weil die Eingaben falsch sind, dann sagt doch jeder konnte der mir das nicht früher sagen.
Gruß Ewald

AW: IsNumeric in einer Schleife
07.01.2015 05:09:26
Mii
mjoa ich kann die Eingabe von Buchstaben sperren... aber es ist ja auch eine Prüfung ob überhaupt was in der Textbox steht. Ausserdem soll dieser Vorgang nur zum Ändern der Daten in den Boxen dienen. Dazu wird ja auch nur eine Msgbox angezeigt... egal wieviele Boxen falsch befüllt sind.
ich finde die Idee so eig ganz gut.

Anzeige
AW: IsNumeric in einer Schleife
07.01.2015 06:59:40
Hajo_Zi
nur Eingabe von Zahlen. 
Private Sub TextBox5_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'   Eingaben nur Zahlen
Select Case KeyAscii
Case 48 To 57
Case Else: KeyAscii = 0
End Select
End Sub

AW: IsNumeric in einer Schleife
07.01.2015 07:13:43
Mii
Danke dir.
Aber ist es mit einer Schleife denn nicht möglich?

AW: IsNumeric in einer Schleife
07.01.2015 11:19:06
Matthias
Hallo
Klar geht auch eine Schleife, die Meldung kommt dann erst am Ende
Du brauchst doch nur den Type(TypeName) des Objektes(TextBox) prüfen
Hab Dir mal ein Beispiel erstellt:
https://www.herber.de/bbs/user/94801.xlsm
Gruß Matthias

AW: IsNumeric in einer Schleife
07.01.2015 20:31:19
Mii
super, danke dir.
sieht ja schonmal schön einfach aus ;)
aber so richtig geht es bei mir nicht... wie bringe ich es mit rein, dass nur die Textboxen auf einer Page meiner Multipage angesprochen werden?

If ctrl.Parent.Name = "Page1" Then ...
07.01.2015 23:38:16
Matthias
Hallo
Das geht natürlich auch.
Beispiel: Du hast ne MultiPage1 mit 2 Pages (Page1 und Page2)
Private Sub CommandButton1_Click()
Dim ctrl As Control, x&
For Each ctrl In Me.Controls
If TypeName(ctrl) = "TextBox" Then
If ctrl.Parent.Name = "Page1" Then
If Not IsNumeric(ctrl.Value) Then
ctrl.BackColor = &HFF&
Else
ctrl.BackColor = &H8000000E
End If
End If
End If
Next
MsgBox "Bitte rote Felder mit Zahlen ausfüllen", vbCritical
End Sub
Hier wird also nur in Page1 gefärbt, egal welches Page gerade aktiv ist.
Natürlich kann man das dann noch optimieren,
indem man nur die Textboxobjekte im MultiPage1 durch die Schleife zieht.
Hab ich mir aber jetzt erst mal gespart.
Gruß Matthias

Anzeige
AW: If ctrl.Parent.Name = "Page1" Then ...
08.01.2015 12:52:10
Mii
jo besten Danke
klappt alles super :) hab das "Parent" vergessen

300 Forumthreads zu ähnlichen Themen

Aus Schleife wenn Zelle einen Rahmen hat???
TOM

Guten Morgen zusammen
Ich habs probiert aber irgendwie habe ich noch einen Denkfehler oder was auch immer......grrrrrrr!?
Möchte gerne eine Do Schlaufe die durchläuft bis die Aktive Zelle unten einen Rahmen hat.
Do While ActiveCell.Borders(xlEdgeBottom).LineStyle = xlContinuous
...
27.08.2008 11:12:00
Thread-ID: 1005013
3 Beiträge
Anzeige
Schleife um ein Makro bauen
Matthias

Hallo zusammen,
ich habe folgendes Makro, das per vlookup auf ein zweites Tabellenblatt greift:
Sub importSortKey() Range("A2").select ActiveCell.FormulaR1C1 = _ "=IF(RC[1]="""","""",VLOOKUP(RC[1],Sortierschlüssel!C:C[1],2))" End Sub
Zur Formel: RC[1] = Zelle B2;
Ich würde d...
01.10.2008 11:26:00
Thread-ID: 1013562
7 Beiträge
Variable in Forschleife
Jens

Hallo Ihr,
ich habe folgendes Problem:
Ich habe 9 Variablen definiert und diese sind mit Werten belegt. Jetzt möchte ich diese innerhalb einer Schleife einzelnen Zellen zuweisen. Geht das?
Beispiel für 3 Variablen:
Dim var1 As Integer
Dim var2 As Integer
Dim var3 As Inte...
08.10.2008 13:49:00
Thread-ID: 1015052
5 Beiträge
Anzeige
Makro - einfache VBA Schleife für Excel
pc-doc@k-u-p.de

Hallo VBA MAkro Profis,
programmiere fast nie in VBA mehr Web js, php/mysql,
und brauche eine einfache VBA Schleife für Excel:
Ich möchte in mehreren Registerblättern einer Arbeitsmappe in der
Spalte D Zeile für Zeile checken ob
ein Wert in der Zelle steht
und wenn...
20.10.2008 11:51:00
Thread-ID: 1017619
8 Beiträge
Schleife in Formel
Jochen

Hallo,
kann ich mit einer Formel eine Schleife laufen lassen?
Meine Tabelle sieht etwa so aus:
Pos. Stückzahl
1 10
2 15
3
4 2
5 3
6
7
8 10
9 11
10
11
12 12
Meinergeb...
11.11.2008 14:25:00
Thread-ID: 1023549
9 Beiträge
VBA Code: wenn B1 <> blank, dann I in A1 schreiben
maxx_1985

Hi mit'nander
Braeuchte einen kleine Code dafuer:
wenn B1 blank, dann schreibe ein I in A1.
kann mir vielleicht jemand helfen? :-)
vielen vielen dank
denis
18.11.2008 16:27:16
Thread-ID: 1025694
5 Beiträge
Gesamtwert in Zell über Multiplikationsschleife...
Jessi

Hallo zusammen,
habe wieder mal eine Frage:
Ich habe eine Tabelle in der Spalte X und Y, ab der Zeile 5 Werte multipliziert werden und die Zeilen
5 bis einschließlich 88 und anschließend ab Zeile 160 bis einschließlich die Zeile 182 aufsummiert werden. Wie bekomme ich das am geschic...
10.12.2008 14:51:00
Thread-ID: 1031705
4 Beiträge
Mittelwerte bilden in Schleifen
WMüller

Hallo zusammen,
ich habe das Archiv durchgesehen, konnte jedoch leider keine passende Lösung für mein Problem finden. Da ich ein Anfänger im Umgang mit VBA bin, würde ich mich über ein Feedback sehr freuen. Ich denke, dass Problem ist eigentlich nicht zu schwierig, ich habe "lediglich" Prob...
14.01.2009 15:01:21
Thread-ID: 1039672
6 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton MultiPage

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