Live-Forum - Die aktuellen Beiträge
Datum
Titel
03.11.2025 19:12:10
2 Makros, 2 Ergebnisse, nur das erste Ergebnis korrekt?
03.11.2025 15:51:02
Zelle E1,Uhrzeit ,gleiche Datum in sichtbare Zellen N suchen
03.11.2025 14:48:20
Links funktionieren nur bei ganzer Tabelle, nicht bei Auszug
03.11.2025 12:49:44
Zählenwenn verwenden über VBA mit einem ExcelNamen
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
1780to1784
1780to1784
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Userform VBA nicht füllen wenn leer

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

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

    Forumthreads zu verwandten 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
    Zelle nichtleer, dann Spalten ausblenden
    kellerkind42

    hallo.
    Ich tue mich sehr schwer mit folgendem Wunsch:
    Im Spaltenbereich A-Z:
    Im Zeilenbereich 10 -20:
    z.B:
    Steht in Spalte C etwas in Zeile 10 oder 11 oder 12.... dann Blende diese Spalte aus!
    Kann mir bitte jemand auf die Sprünge helfen?
    Gruß Reinhardt.
    20.08.2008 07:29:00
    Thread-ID: 1003062
    6 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
    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
    Anzeige
    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
    wenn Spalte F nicht leer, ganze Zeile markieren
    maxx_1985

    Hallo mit'mander
    Ich hab ein kleines VBA Probelem. Naemlich das fogende:
    Wenn Zelle in Spalte F NICHT leer, dann die ganze Zeile markieren (einfach markieren, keine Farbe und nichts).
    Bin gerade dabei mit dem Recorder was zu basteln (da ich noch kein vba kann) und bin an ganau diese...
    19.11.2008 18:37:00
    Thread-ID: 1026165
    11 Beiträge
    Wenn Ordner noch nicht existiert dann MsgBox Meld.
    Josef

    Hallo!
    Ich möchte mit folgendem Code gleich den richtigen Ordner zum aussuchen der Dateien öffnen lassen:
    Dim dokname
    Dim dokname2
    dokname = Range("Tabelle1!D1").Value
    dokname2 = Range("Tabelle1!D2").Value
    With Application.FileDialog(4)
    .InitialFileName = "K:\Allg_da...
    04.12.2008 06:21:22
    Thread-ID: 1030007
    3 Beiträge
    Anzeige
    wenn zelle gelb, dann ganze zeile loeschen
    maxx_1985

    Hi zusammen
    wie kann man excel das folgende sagen;
    wenn in spalte A irgendwo eine gelbe zelle vorkommt, dann loesche mir die ganze ZEILE.
    gelb sind naemlich die zwischensummen, die ich raus haben moechte.
    danke euch vielmals
    gruss
    denis
    10.12.2008 16:19:09
    Thread-ID: 1031735
    8 Beiträge
    Entdecke relevante Threads

    Schau dir verwandte Threads basierend auf dem aktuellen Thema an

    Alle relevanten Threads mit Inhaltsvorschau entdecken
    Anzeige

    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