Live-Forum - Die aktuellen Beiträge
Datum
Titel
06.11.2025 16:16:08
In einer Zelle die Anzahl der Zahlen zählen die durch ; getr
06.11.2025 16:14:37
Danke an Uduuh
06.11.2025 15:49:58
bedingter Formatierung
06.11.2025 14:26:08
Nur Werte Kopieren und Einfügen
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
284to288
284to288
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Inputbox mit max. 5 stellige Nummer

Forumthread: 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
Anzeige

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.

Anzeige
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
;

Forumthreads zu verwandten 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
Max Min in VBA
Lars

Hallo zusammen,
da meine Frage auf Grund einer falschen Problembeschreibung noch nicht beantwortet ist, hier nochmal:
Ich habe in Excel eine Tabelle, in der in der ersten Zeile Überschriften stehen (B1, B2, B3, ...). Darunter befinden sich die dazugehörigen Werte in mehreren Zeilen. Übe...
13.11.2008 14:59:44
Thread-ID: 1024240
19 Beiträge
Anzeige
| 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
Function in VBA
Josef

Hallo!
Wie kann ich bitte eine selbstgeschnitzte Function in VBA einsetzen? txtBoxB1.Text = wks.Cells(ComboBox1.ListIndex + 1, 40) 'If wks.Cells(ComboBox1.ListIndex + 1, 40) = "030" Then If txtBoxB1.Text = wks.Cells(ComboBox1.ListIndex + 1, 40) Then TextBox26.Text = BHZ End If Function B...
22.10.2009 13:35:47
Thread-ID: 1111362
5 Beiträge
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
Anzeige
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
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
Max in VBA
Frank

Hallo an Alle,
kurze Frage ich habe in VBA bspw. a, b, c .... n Werte die direkt in VBA berechnet werden. Wie bekomme ich hier den Maximalwert heraus?
Max(a,b,c) funtioniert leider nicht.
Viele Grüße,
Frank
09.09.2011 10:43:40
Thread-ID: 1229209
3 Beiträge
Max Wert in VBA
udo

Hallo Forum Experten,
könntet Ihr mir bitte helfen ?
Bräuchte einen kleinen Code der folgendes ausspuckt :
In Spalte 1 ( A7:A1000 ) stehen Positionsnummern von den Einträgen in den jew. Zeilen.
unabhängig davon in welcher Zeile ein Eintrag eingegeben wird, sollte dann der Bereic...
30.09.2011 09:47:28
Thread-ID: 1232077
3 Beiträge
Per VBA prüfen, ob ein Namen in einer Spalte
stefan

vorhanden ist.
Hallo,
ich einer Spalte mit 10000 Namen möchte ich per VBA rausfinden, ob ein Name (in Celle A1) vorhanden ist.
Wie mache ich das?
Vielen Dank
11.10.2011 18:56:09
Thread-ID: 1233433
4 Beiträge
VBA Formel ändern nach einfügen einer Spalte
Timonski

Servus...
ich hab in meiner Tabelle viele VBA Formeln, z.b. VLookup... oder mit Cells(r, 5)...
wenn ich jetzt eine Spalte einfüg... nehmen wir mal an zwischen 3 und 4... dann heißt ja die Spalte 5 nun 6...
d.h. die Formel mit cells(r, 5) stimmt ja nicht mehr.. die sollte ja Cells(r,...
23.03.2012 15:25:44
Thread-ID: 1256320
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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