Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
284to288
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
284to288
284to288
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Inputbox mit max. 5 stellige Nummer

VBA: Inputbox mit max. 5 stellige Nummer
23.07.2003 13:32:53
Markus Mannheim
Hallo,
wie mache ich ein Makro indem die Inputbox max. eine 5 Stellige Zahl annimmt, alles andere mit einer Fehlemeldung quittiert wird?
Gruß
MM
Soviel habe ich schon:
If Sheets("RK_F").Range("C6").Value = "" Then
REWE = InputBox("Bitte geben Sie Ihre 5-stellige REWE Mitarbeiternummer ein!", "Mitarbeiternummer")
Sheets("RK_F").Range("C6").Value = REWE
End If

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Inputbox mit max. 5 stellige Nummer
23.07.2003 13:45:25
Matthias G..
Hallo Markus,
folgender Code wäre möglich:
Do
REWE = InputBox("Bitte geben Sie Ihre 5-stellige REWE Mitarbeiternummer ein!", "Mitarbeiternummer")
If Len(REWE) > 5 Then MsgBox "Fehler bei der Eingabe!"
Loop Until Len(REWE) <= 5
Noch besser wäre ein UserForm, damit kann man die Anzahl der Stellen von vornherein beschränken.
Matthias G.

AW: VBA: Inputbox mit max. 5 stellige Nummer
23.07.2003 13:43:39
Yvonne
Hallo Markus,
füge hinter
REWE = InputBox("Bitte geben Sie Ihre 5-stellige REWE Mitarbeiternummer ein!", "Mitarbeiternummer")
folgendes ein:
If IsNumeric(REWE) = False Or REWE >= 100000 Then
MsgBox "Bitte maximal 5-stellige Nummer eingeben."
REWE = InputBox("Bitte geben Sie Ihre 5-stellige REWE Mitarbeiternummer ein!", "Mitarbeiternummer")
End If
Gruß, Yvonne

Anzeige
AW: VBA: Inputbox mit max. 5 stellige Nummer
23.07.2003 13:43:32
Nepumuk
Hallo Markus,
so:

Option Explicit
Public Sub test()
If Sheets("RK_F").Range("C6").Value = "" Then
Do
REWE = InputBox("Bitte geben Sie Ihre 5-stellige REWE Mitarbeiternummer ein!", "Mitarbeiternummer")
If IsNumeric(REWE) Then If CDec(REWE) > 9999 And CDec(REWE) < 100000 Then Exit Do
MsgBox "Falsche Eingabe", 48, "Hinweis"
Loop
Sheets("RK_F").Range("C6").Value = REWE
End If
End Sub

Code eingefügt mit: Excel Code Jeanie
Gruß
Nepumuk

Anzeige

312 Forumthreads zu ähnlichen Themen

maximum finden in VBA
Lars

Hallo zusammen,
ich habe in Excel eine Tabelle, in der in der ersten Zeile Überschriften stehen (B1, B2, B3, ...). Darunter befinden sich die dazugehörigen Werte. Über eine Abfrage suche ich mir nun bestimmte Überschriften (z.B. B1,B3,B4,B7) heraus und lasse mir deren Spalte jeweils in eine...
13.11.2008 07:22:00
Thread-ID: 1024016
6 Beiträge
Anzeige
min und max wert in listbox per vba
kirsche

hallo leute,
dank beverly und tino bin ich ein ganzes stück schlauer und weiter gekommen, ich finde dieses forum einfach klasse und möchte ein großes lob euch allen aussprechen.
nun hab ich aber doch noch eine frage: in zwei weiteren textboxen möchte ich die kleinste und die größte span...
20.11.2008 12:47:01
Thread-ID: 1026383
8 Beiträge
| HERBERS Excel Forum
kai

hallo zusammen,
ich würde gerne per makro die letzten beiden beschriebenen zellen der spalte h löschen?
würde mich freuenn, wenn mir das jemand kurz aufschreiben könnte.
danke und viel grüße kai
26.04.2009 19:51:39
Thread-ID: 1071220
6 Beiträge
Anzeige
In Spalte B einen Wert mittels VBA setzen
Josef

Hallo!
Ich habe nur in der Zelle B1 den Wert "ü" stehen.
Ab der 2.Zeile habe ich ca. 15000 Datensätze stehen.
Mit dem Autofilter suche ich jetzt nach dementsprechenden Werten in anderen Spalten.
Wenn jetzt z. B. 10 Werte gefunden werden, habe ich nun 10 Datensätze und möchte in...
21.01.2010 14:36:58
Thread-ID: 1131799
7 Beiträge
Suche unterschiedliche Max-Wert in einer Spalte
Volker

Hallo zusammen,
in Spalte T stehen Hunderte von siebenstelligen Artikelnummern. Die haben je nach Sparte eigene Nummerkreise:
Sparte A (1.xxx.xxx), Sparte B (2.xxx.xxx) und Sparte C (3.xxx.xxx).
Es kommen innerhalb der Sparten regelmaessig weitere Artikel hinzu.
Suche jeweils di...
14.03.2011 11:00:24
Thread-ID: 1205567
6 Beiträge
mit VBA Prüfen ob ein Wert in Spalte A existiert
marspoki

Hallo,
gibt es in VBA die Möglichkeit in VBA zu prüfen, ob in Spalte A10:A100 der Wert "x" exsistiert?
Vielleicht gib es auch eine Möglichkeit, rauszubekommen wie oft der Wert vorhanden ist?
Vielen Dank im Vorraus
Mars
18.03.2011 10:54:48
Thread-ID: 1206302
4 Beiträge
Max in VBA
Dieter

Hallo zusammen,
die u.g. Berechnung des Max-Wertes funktioniert so nicht.
Sum3 = Evaluate("max((Daten!Kalwo=Aktuell)*(Daten!Ressource=Maschine)*(Daten!Schicht=1)*(Daten!Stillid=Still1))") , habe ich in meinem Mokro eingebaut.....
Wie muss sie korrekt aussehen ?
In der Tabellenfo...
23.05.2011 17:01:54
Thread-ID: 1215644
6 Beiträge
Achsenbeschriftung, VBA durch min max aus Zelle
Peter

Hallo liebe Leute,
ich habe wieder ein Problem.
Ich habe ein simples Leistung/Drehzal Diagramm in Abhängigkeit der Drehzahl.
Die Leistung ist links, als vertikale Primärachse, das Drehmoment rechts als vertikale Sekundärachse und die Drehzahl als vertikale Primärachse angeordnet.
25.06.2011 08:28:33
Thread-ID: 1219617
13 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
5
18
7
5
4
6
5
3
5
12
2
2
3
3
2
7
5
7
8
6
2
2
8
3
5