Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
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
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1780to1784
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
1780to1784
1780to1784
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Userform VBA nicht füllen wenn leer

Userform VBA nicht füllen wenn leer
18.09.2020 15:19:42
Pascal
Hallo zusammen,
Ich habe ein kleines Problem.
In einem Textfeld wird eine Zahl vom Benutzer eingetragen und dahinter wird automatisch eine "001" dran gehangen.
Nun möchte ich aber nicht wenn der User das Textfeld leer lässt und er auf den Button klickt das die "001" eingegeben wird.
Wie verhindere ich dies?
Code für "001"
  • Me.TextBox4 = Me.TextBox4 & "001"

    • Danke & viele Grüße

    11
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: Userform VBA nicht füllen wenn leer
    18.09.2020 15:24:58
    Daniel
    HI 
    TextBox4.Text = Textbox4.Text & IIF(Textbox4.Text = "", "", "001")

    oder 
    If Textbox4.Text  "" then Textbox4 = Textbox4 & "001"
    Gruß Daniel
    AW: Userform VBA nicht füllen wenn leer
    18.09.2020 15:32:16
    Pascal
    Sehr gut, genial!
    Kann man vielleicht jetzt noch abfragen das wenn eine 001 schon dahinter steht das er nicht noch eine dazu packt?
    Denn ich lasse bei leeren Textboxen eine MsgBox aufpoppen die darauf hinweist das etwas vergessen wurde auszufüllen.
    Nun wenn jedoch schon eine 001 in der TextBox steht und der User klickt auf den Button und er hat noch ein Feld vergessen steht dann zweimal hintereinander 001.
    Kann man dies auch irgendwie vermeiden?
    Anzeige
    AW: Userform VBA nicht füllen wenn leer
    18.09.2020 15:36:21
    Daniel 
    
if Right(Textbox1.Text, 3) = "001"

    oder 
    if Textbox1.Text like "*001"

    oder wenns statt "001" auch eine andere dreistellige Zahl sein kann: 
    if Textbox1.Text like "*###"
    Gruß Daniel
    AW: Userform VBA nicht füllen wenn leer
    18.09.2020 15:41:26
    Pascal
    ähhhm kommt das jetzt in das Textbox change event?
    AW: Userform VBA nicht füllen wenn leer
    18.09.2020 15:50:42
    Daniel
    Dort wo du es haben willst.
    Change ist in den meisten Fällen ungünstig.
    nimm lieber ein Event, das erst auslöst wenn der Anwender fertig mit der Eingabe ist.
    Gruß Daniel
    AW: Userform VBA nicht füllen wenn leer
    18.09.2020 16:03:12
    Pascal
    ah ok verstehe!
    erstmal vielen vielen Dank dafür!
    also ich hab jetzt deinen ersten Code im CommandButton_Click eingefügt.
    nun wenn ich jetzt deinen zweiten Code darunter einfüge dann kommt Fehler beim Kompilieren: Erwartet: Then oder GoTo.
    wie kann ich ihm also jetzt sagen das wenn eben das 001 drin steht er es nicht noch einmal einfügen soll?
    Tut mir leid für die wahrscheinlich dumme frage aber ich bin da echt nicht so belesen in VBA.
    Danke & viele Grüße
    Anzeige
    AW: Userform VBA nicht füllen wenn leer
    18.09.2020 16:12:56
    Daniel
    naja, jedes IF braucht ein THEN.
    Aber für die Grundlagenausbildung im Programmieren ist ein Forum jetzt nicht unbedingt die beste Plattform.
    Gruß Daniel
    AW: Userform VBA nicht füllen wenn leer
    18.09.2020 16:32:36
    Pascal
    ja da hast du wahrscheinlich recht.
    Trotzdem Danke.
    AW: Userform VBA nicht füllen wenn leer
    18.09.2020 16:33:14
    Pascal
    ja da hast du wahrscheinlich recht.
    Trotzdem Danke.
    AW: Userform VBA nicht füllen wenn leer
    18.09.2020 16:38:32
    GerdL
    Moin 
    Private Sub CommandButton1_Click()
If TextBox4.Text  "" And Right(TextBox4.Text, 3)  "001" Then
TextBox4 = TextBox4 & "001"
End If
End Sub

    Gruß Gerd
    AW: Userform VBA nicht füllen wenn leer
    18.09.2020 16:42:10
    Pascal
    Oh WOW!
    Vielen vielen Dank Gerd!

    304 Forumthreads zu ähnlichen Themen

    Zellen kopieren wenn Ziel nicht leer
    Tom

    Guten Morgen!
    Ich suche mittels VBA folgende Möglichkeit
    Suche Zeile für Zeile (Beginnend ab Zeile 4) die Spalte H ab ob etwas drinn steht.
    Kopiere den Inhalt in die gleiche Zeile, aber in die Spalte P
    Wichtig! Ist die ZIEL-Zelle bereits befüllt (es steht also etwas drin), dann...
    18.08.2008 11:18:24
    Thread-ID: 1002534
    4 Beiträge
    Anzeige
    Wenn in Zelle folgender String, dann
    mehmet

    Hallo Forum,
    In Spalte G4:G92 sind viele kodierte Zeichenfolgen.
    Fest steht aber, dass diese zu erkennen sind, z.B.
    in Zelle G4: METAR EKAH 052150Z AUTO 12005KT 9999NDV DZ OVC080/// 15/14 Q1005=
    in Zelle G5: METAR ESSA 051940Z 20006KT CAVOK 11/10 Q1006 NOSIG=
    und so weiter.....
    06.09.2008 01:08:00
    Thread-ID: 1007801
    16 Beiträge
    Wenn in Zelle folgende Zeichen, dann
    mehmet

    Hallo Forum,
    in Spalte G4:G92 sind folge Codes:
    in G4= TAF LSZH 090600Z 090716 VRB03KT 0200 FG VV001 BECMG 0709 CAVOK=
    in G5= TAF DTTA 090600Z 090716 VRB03KT 0700 FG BKN013 BECMG 1012 07010KT 8000 SCT026=
    in G6= TAF EPKT 090500Z 090615 24002KT 0500 FG NSC BECMG 0608 26005KT 9999...
    09.09.2008 09:39:00
    Thread-ID: 1008320
    6 Beiträge
    Anzeige
    Wenn Zelle leer, dann Grafik löschen
    TomTom

    Hi,
    ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
    gelöscht oder unsichtbar werden.
    Wie mache ich dies ?
    Danke mal
    Gruss
    Tom<...
    22.09.2008 08:28:10
    Thread-ID: 1011373
    3 Beiträge
    Zählen wenn Zelle nicht leer
    Tim

    Hallo Forum,
    wie kann ich in einem Bereich (z.B. A1:A50) die Anzahl der Zellen, in denen ein Eintrag vorhanden ist (Text oder Zahl) zählen?
    Gruß
    Tim
    20.10.2008 11:47:00
    Thread-ID: 1017617
    3 Beiträge
    Textbox - wenn nicht mehr als 3 stellen dann
    Patrick

    Hallo,
    ich habe auf einer Userform eine Textbox in welche je nach Auswahl Kürzel (z. B. BE) eingetragen werden. Es soll nun realisiert werden, dass wenn ich auf einen commandbutton drücke, geprüft wird ob in der besagten Textbox nach wie vor nur "BE" steht oder diese Textbox bearbeitet wurd...
    12.11.2008 16:39:47
    Thread-ID: 1023910
    5 Beiträge
    Leere zellen nicht leer und Zahlen keine Zahlen
    P.Mackes

    Per google bin ich zwar auf einige themen gestoßen, die sich mit diesen oder ähnlichen Probleme beschäftigen, aber so richtig gepasst hat für mich nichts oder die lösungen waren vba basiert und das kann ja nicht der stein der Weisen sein.
    https://www.herber.de/bbs/user/56887.xls
    es tre...
    18.11.2008 11:08:00
    Thread-ID: 1025551
    10 Beiträge
    Leere Zelle suchen, Wert eintragen VBA
    andreas

    Hallo zusammen,
    habe ein kleines Formular mit zwei "Command-Button".
    Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
    Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
    19.11.2008 11:57:07
    Thread-ID: 1025960
    2 Beiträge
    Anzeige

    Links zu Excel-Dialogen

    CommandButton TextBox

    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
    15
    5
    4
    2
    2
    4
    9
    1
    10
    2
    7
    5
    4
    3
    1
    10
    3
    4
    23
    3
    1
    6
    6