Textboxen leer dann Meldung

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Textboxen leer dann Meldung
von: matthias
Geschrieben am: 28.05.2015 12:50:54

Hallo
anbei meine Datei.
https://www.herber.de/bbs/user/97914.xlsm
Ich würde gerne zusätzlich eine Prüfung für die Textboxen haben wollen.
Nur wenn auch in den Textboxn etwas steht, kommt die Meldung " Textboxen nicht beschrieben" nicht. Erst dann werden die Datensätze über den Button in die ausgewälte Tabelle geschrieben.
Für die Listenbox funktioniert es.
Leider bekomme ich es für die Textboxen nicht hin.
Dachte es ging oder
or Textbox1.Text...
leider ist es aber nicht so.
Kann mir wer helfen?
Besten Dank.

Bild

Betrifft: AW: Textboxen leer dann Meldung
von: hary
Geschrieben am: 28.05.2015 13:05:37
Moin
Ohne deine Mappe anzusehen.

if Textbox1 <> "" or Textbox2 <> "" 

gruss hary

Bild

Betrifft: AW: Textboxen leer dann Meldung
von: Hajo_Zi
Geschrieben am: 28.05.2015 13:09:47
warum man bei y<>"" dies " Textboxen nicht beschrieben" anzeigen muss, muss uns nicht klar sein.
Private Sub CommandButton1_Click()
If TextBox1 <> "" And TextBox18 <> "" And TextBox2 <> "" And TextBox3 <> "" And TextBox4 <> "" Then
MsgBox "Textboxen nicht beschrieben"
End If


Bild

Betrifft: AW: Textboxen leer dann Meldung
von: matthias
Geschrieben am: 28.05.2015 13:40:05
Hallo,
danke für die Hilfe.
Aber es funktionier einfach nicht.
Die Meldung geht nicht auf, wenn ich meine Datei um den Code erweitere.
Irgendwas mache ich falsch :(

Bild

Betrifft: AW: Textboxen leer dann Meldung
von: Hajo_Zi
Geschrieben am: 28.05.2015 13:45:13
bei mir kommt die Meldung schon, wenn wie gewünscht alle TextBoxen gefüllt sind.
Gruß Hajo

Bild

Betrifft: AW: Textboxen leer dann Meldung
von: matthias
Geschrieben am: 28.05.2015 13:55:45
Wo hast dann den Code eingefügt?
Ich hätt ihn hier eingefügt.

Private Sub S1() 'einfügen
    Dim LR%
   If TextBox1 <> "" And TextBox18 <> "" And TextBox2 <> "" And TextBox3 <> "" And TextBox4 <> " _
" And TextBox5 <> "" Then
MsgBox "Textboxen nicht beschrieben"
End If
    If ListBox1.Value <> "" Then
        With Sheets(ListBox1.Value)
            LR = .Cells(Rows.Count, 1).End(xlUp).Row + 1 'erste freie Zeile der Spalte A
      
            .Cells(LR, 2) = TextBox1.Value
            .Cells(LR, 4) = TextBox2.Value
            .Cells(LR, 5) = TextBox3.Value
            .Cells(LR, 6) = TextBox4.Value
            .Cells(LR, 7) = TextBox5.Value
            .Cells(LR, 8) = Format(Now, "DD.MM.YYYY") ' Datum und Zeit
            .Cells(LR, 9) = Format(Now, "hh:mm")
            .Cells(LR, 1) = TextBox18.Value
            
            'rücksetzen
            TextBox1.Value = ""
            TextBox2.Value = ""
             TextBox3.Value = ""
              TextBox4.Value = ""
               TextBox5.Value = ""
                 TextBox18.Value = ""
            ListBox1.Value = ""
        End With
    Else
        MsgBox "Kein Blatt ausgewählt"
    End If
End Sub
Wo hast du den Code eingefügt?

Bild

Betrifft: AW: Textboxen leer dann Meldung
von: Alexander
Geschrieben am: 28.05.2015 14:00:08
Hallo Matthias,
Wenn du nach "nicht beschrieben" prüfen möchtest, darfst du nicht nach ungleich leer (<>"") überprüfen. Sondern nach gleich leer (="").
Gruß
Alex

Bild

Betrifft: AW: Textboxen leer dann Meldung
von: Hajo_Zi
Geschrieben am: 28.05.2015 14:07:56
also bei mir Stand der Name der Prozedur dabei. Wenn Du es jetzt bei S1 einsetzen möchtest, Frage nicht mich, sondern den der Dir das vorgeschlagen hat,.
Gruß Hajo

Bild

Betrifft: AW: Textboxen leer dann Meldung
von: matthias
Geschrieben am: 28.05.2015 14:12:50
ausgeführt wird das ganze dann hier.

Private Sub CommandButton1_Click()
Tabelle7.Aus
Tabelle7.Ent
S1
Tabelle7.Schu
Tabelle7.Ein
End Sub

Wie soll ich es dann richtig einbinden?

Bild

Betrifft: AW: Textboxen leer dann Meldung
von: Hajo_Zi
Geschrieben am: 28.05.2015 14:30:07
gut wie man kopieren soll erkläre ich nicht. Ich bin dann raus.
Gruß Hajo

Bild

Betrifft: AW: Textboxen leer dann Meldung
von: matthias
Geschrieben am: 28.05.2015 14:38:11
Hallo,
sry die Lösung habe ich gefunden.
Perfekt.
Hatte einen Fehler drin.

Bild

Betrifft: Closed - owT
von: Matze Matthias
Geschrieben am: 28.05.2015 16:32:55


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Textboxen leer dann Meldung"