Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1864to1868
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
1864to1868
1864to1868
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Eingabe in Textbox wird nicht korrekt ge

Eingabe in Textbox wird nicht korrekt ge
16.01.2022 21:20:35
Michael
Guten Tag, dank dieses Forums hab ich bereits einiges an VBA gelernt. Nun hänge ich aber bei einer eigentlich einfachen Prüfung einer Eingabe in einer Textbox fest. Egal, wie ich die Abfrage aufbaue, es klappt einfach nicht.
In einer Eingabebox soll eine Chargenummer eingegeben werden, die in folgender Form dargestellt ist: xx/yyy
x ist dabei das aktuelle Jahr in kurzform (aktuell also 22), y ist eine laufende Chargenummer. Die Bedingung für das Textfeld soll nun sein:
- von diesem Jahr oder Vorjahr (um beim Jahreswechsel noch die alte Chargenummer eingeben zu können (diese Afrage funktioniert nicht)
- mindestlänge der Eingabe sind 4 Zeichen (Beispiel 22/1) (diese Abfrage funktioniert)
- das Format der Eingabe soll ##/* sein (diese Abfrage funktioniert)
Hier mein Code dazu:

If (Left(userform1.TextBox2.Text, 2)) > Right(Year(Now), 2) Or _
(Left(userform1.TextBox2.Text, 2))
Hoffe ihr könnt mir da weiterhelfen...
MfG

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Eingabe in Textbox wird nicht korrekt ge
16.01.2022 22:25:08
PeTeR
Hallo,
der Platzhalter für ein einziges Zeichen lautet: ?
Demnach lautet die Prüfung vermutlich: Not userform1.TextBox2.Text Like "?/*"
Viel Erfolg
PeTeR
AW: Eingabe in Textbox wird nicht korrekt ge
17.01.2022 13:39:52
Michael
Hallo Peter,
die Abfrage nach dem Format läuft, ich bekomme nur die prüfung nach dem Jahr nicht zum laufen.
zum format: ich habe extra die abfrage nach ##/* gewählt, da vor dem / immer das aktuelle jahr zweistellig geschrieben wird, zum Beispiel 22/123, hinter dem / ist eine laufende nummer, aktuell maximal vierstellig. Habe es aber mittlerweise auf ##/#* geändert, damit auf jeden fall eine ziffer nach dem / stehen muss, ein * kann ja auch leer sein.
aber danke für den versuch...
mfg
Anzeige
AW: Eingabe in Textbox wird nicht korrekt ge
17.01.2022 14:27:45
GerdL
Upps, beim Mid war ein Fehler drin.

Sub Unit()
Dim x As String
Dim blnOK As Boolean
x = UserForm1.TextBox2.Text
If (x Like "##/#" Or x Like "##/##") Then
If Year(Date) - Year(Mid(x, 1, 2)) > -1 Then
blnOK = True
End If
End If
If Not blnOK Then
MsgBox "Behandle!"
End If
End Sub
Gruß Gerd
AW: Eingabe in Textbox wird nicht korrekt ge
16.01.2022 23:18:42
GerdL
Moin Michael!

Sub Unit()
Dim x As String
Dim blnOK As Boolean
x = UserForm1.TextBox2.Text
If (x Like "##/#" Or x Like "##/##") Then
If Year(Date) - Year(Mid(x, 2)) > -1 Then
blnOK = True
End If
End If
If Not blnOK Then
MsgBox "Behandle!"
End If
End Sub
Gruß Gerd
Anzeige
AW: Eingabe in Textbox wird nicht korrekt ge
17.01.2022 13:36:00
Michael
Hallo Gerd,
dein code nutzt leider den part nach / ( Year(Mid(x, 2)) ) , also die laufende nummer der charge.
aber trotzdem danke
mfg
AW: Eingabe in Textbox wird nicht korrekt ge
17.01.2022 13:49:01
Michael
Ich hab auf Basis deines Codes nun folgendes zusammengebastelt, und es funktioniert so, wie ich es haben will...

Dim x As String
Dim blnOK As Boolean
x = userform_ohneqrcode1.TextBox2.Text
If (x Like "##/#*") Then
If (Right(Year(Date), 2) - Left(x, 2)) = 0 Or (Right(Year(Date), 2) - Left(x, 2)) = 1 Then
blnOK = True
End If
End If
If Not blnOK Then
MsgBox "Behandle!"
Exit Sub
End If
Danke für die Hilfe...
mfg
Anzeige

301 Forumthreads zu ähnlichen Themen

Es wird nur die Formel angezeigt, nicht der Text
Oswald

Hallo an die guten Geister,
hab mal wieder ein Problem.
In der angeängten Datei in B41 hatte ich das Problem das nicht der Text angezeigt wird sondern die Formel.
https://www.herber.de/bbs/user/54704.xls
Habe ich dadurch gelöst das ich das Selbe noch mal in einer anderen Datei...
18.08.2008 14:47:05
Thread-ID: 1002609
4 Beiträge
Anzeige
Teilergebnis einer Spalte wird nicht angezeigt
thaake

Hallo,
ich lasse mir die Teilergebnisse verschiedener Spalten anzeigen mit =Teilergebnis(9;V5:V300), was auch überall klappt, aber nur eine Spalte weigert sich. Formatierung ist vollkommen ok, das Anzeigen in einer anderen Zelle mit Verweis auf diese Spalte klappt auch nicht. Summe dagegen...
22.09.2008 11:21:12
Thread-ID: 1011416
2 Beiträge
Inhalt von UF wird nicht angezeigt
UF

Hi Forum,
ich starte meine UF mit dem folgenden Code:
Sub auto_open() Application.WindowState = xlMinimized UF_BitteWarten.Show vbModeless Application.Run "RESETMASK" UF_BitteWarten.Hide UF_Maske.Show End Sub
Wie zu erkennen, wird beim Start ein Reset ausgeführt, der einige Sekun...
26.09.2008 14:29:02
Thread-ID: 1012639
16 Beiträge
Anzeige
langer Text wird nicht mehr angezeigt
u_hoernchen

Ich muss einen langen Text (ca. 1.500 Zeichen) in eine Excel-Zelle schreiben (geht leider nicht anders, also das bitte nicht in Frage stellen). Nun wird beim Ausdruck und bei der Bildschirmanzeige aber die letzte Zeile nicht mehr umgebrochen (Zeilenumbruch ist formatiert), in der Zelle steht ab...
05.01.2009 11:10:25
Thread-ID: 1036916
4 Beiträge
Zelleninhalt wird bei Wenn-Abfrage nicht erkannt
CheHerbers

Hey,
ich habe eine Wenn-Abfrage, die prüfen soll, ob A1kleinerA2.
In A1 und A2 stehen jeweils Datum mit Uhrzeit.
A1 = 17.02.2009 10:42:35
A2 = 17.02.2009 10:43:57
A1 fülle ich über ein Makro.
Code:
Sheets("Daten").Range("A1") = ComboBox1.Value & " " &...
18.02.2009 10:35:00
Thread-ID: 1051714
4 Beiträge
Formel wird nicht ausgeführt
Andy

Hallo Leute,
Guten Abend. Ich habe ein ganz großes Problem.
Ich habe eine Exceldatei mit vielen Datensätzen (ca. 8000). In Spalte C habe ich eine Formel, die auf Spalte A und B Bezug nimmt und aus einer Matrix den entsprechenden Wert sucht. Das ganze hat bis jetzt super funktioniert. W...
19.02.2009 16:47:00
Thread-ID: 1052226
8 Beiträge
Textbox wird nicht aktualisiert während Makro...
Steve

Hallo zusammen,
Folgendes Problem:
Eine Textbox (txtInfo), welches in einem Worksheet eingefügt wurde, sollte während des Makros unterschiedliche Infos anzeigen.
Die Textbox aktualisiert sich aber nicht während des Makros, so dass nur der letzte Wert angezeigt wird, sobald das Makro...
05.03.2009 12:17:30
Thread-ID: 1056772
3 Beiträge
Wert wird nicht angezeigt
Markus

Hallo,
habe folgendes Problem:
Ich lasse mir einen Wert per VBA ausrechnen und dann mit Range... im Tabellenblatt anzeigen.
Das Problem ist, dass der Wert nicht angezeigt wird.
Wenn ich denn Programmcode per Einzelschritt debugge, dann wird der Wert komischerweise angezeigt!
...
20.07.2009 11:00:55
Thread-ID: 1089939
6 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

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
3
1
15
2
3
3
7
2
5
2
5
3
5
3
7
3
5
5
1
10
4
7
11
2