Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1428to1432
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
1428to1432
1428to1432
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textboxen leer dann Meldung

Textboxen leer dann Meldung
28.05.2015 12:50:54
matthias
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.

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

Betreff
Datum
Anwender
Anzeige
AW: Textboxen leer dann Meldung
28.05.2015 13:05:37
hary
Moin
Ohne deine Mappe anzusehen. 
if Textbox1  "" or Textbox2  ""

gruss hary

AW: Textboxen leer dann Meldung
28.05.2015 13:09:47
Hajo_Zi
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

AW: Textboxen leer dann Meldung
28.05.2015 13:40:05
matthias
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 :(

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

AW: Textboxen leer dann Meldung
28.05.2015 13:55:45
matthias
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?

Anzeige
AW: Textboxen leer dann Meldung
28.05.2015 14:00:08
Alexander
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

AW: Textboxen leer dann Meldung
28.05.2015 14:07:56
Hajo_Zi
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

AW: Textboxen leer dann Meldung
28.05.2015 14:12:50
matthias
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?

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

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

Closed - owT
28.05.2015 16:32:55
Matze

299 Forumthreads zu ähnlichen Themen

Wert aus Combobox zurückgeben in Textboxen
Peter

Hallo wertes Form
bin kurz vor der Vollende meinesWerkes
benötige aber noch die Hife aus dem Forum
Ich habe eine Combox19, die beim öffnen die 5000-26000 in 100 Steps an zeigt
Wenn ich den wert 0 bis 6999 eingebe soll in einer Textbox27 der wert 130 ausgegeben werden.
ab dem...
10.08.2008 20:06:00
Thread-ID: 1000671
7 Beiträge
Anzeige
Wie kann ich 3 Textboxen wert addieren
Kurt

Guten Abend,
wie kann ich 3 Werte der Textboxen addieren ?
Habe es so versucht:
Label69.Caption = TextBox13.Value + TextBox14.Value + TextBox15.Value
mfg Kurt
(nicht Orginal)
14.08.2008 20:54:00
Thread-ID: 1001982
4 Beiträge
Färben von Textboxen in Userform
Textboxen

Guten Morgen!
Ich habe in einer UserForm 22 TextBoxen in denen Zahlen stehen.
Wenn eine positive Zahl in den Textboxen steht, dann soll der Hintergrund (Backcolor) grün gefärbt werden.
Wenn eine negative Zahl in den Textboxen steht dann soll der Hintergrund hellrot gefärbt werden.<...
21.08.2008 07:38:00
Thread-ID: 1003354
4 Beiträge
Anzeige
TextBoxen formatieren
Frank

Hallo liebes Forum!
Wieder einmal brauche ich Rat! In einem Tabellenblatt befinden sich mehrere Textboxen, welche über die Eigenschaft LinkedCell sich ihren Inhalt holen. Nun möchte ich das wenn der darin befindliche Wert negativ ist, der Inhalt rot geschrieben wird. Wie bekomme ich zwische...
28.10.2008 20:37:00
Thread-ID: 1020080
10 Beiträge
TextBoxen werden nicht geleert
Josef

Hallo!
Ich habe folgenden Code in einer Userform
Private Sub ListBox1_Click() On Error Resume Next If ListBox1.List(ListBox1.ListIndex, 7) = "EV-N / FV-XPV" Then Call Text_EF Call Text_EF2 Call Text_EF3 TextBox40.Text = "" Else If ListBox1.List(ListBox1.ListIndex, 7) = "J" Then TextBo...
29.10.2008 14:19:00
Thread-ID: 1020283
3 Beiträge
Textboxen aus Tabelle füllen
Sebastian

Guten Abend zusammen,
ich sitze wieder mal vor einem Problem und hoffe auf eure Hilfe. Ich habe eine Tabelle mit Kundennamen, die sich von Monat zu Monat verändert. Ich möchte nun (wenn möglich) eine Userform mit einer variablen Anzahl von Textfeldern auf "Knopfdruck" generieren, wobei die...
03.11.2008 18:25:00
Thread-ID: 1021413
6 Beiträge
Nur Zahlen in sehr vielen Textboxen
uli

Hallo,
habe ein im Internet gefunden, der allerdings noch ein bisschen angepasst werden muss. Vielleicht könnt ihr mir helfen, da ich an dieser Stelle nicht mehr weiterkomme.
Ich möchte die Eingabe von Buchstaben in mehreren Textboxen verbieten. Dies mache ich mit folgendem Code in eine...
13.11.2008 10:24:00
Thread-ID: 1024091
3 Beiträge
Rechnen mit TextBoxen
Frank

Hallo Zusammen!!!
Einen schönen guten Abend und schon vorab Danke für bestimmt zahlreiche Hilfe!
Ich benutze folgenden Code:
TextBox4.Value = TextBox2.value - TextBox3.Value
Diese Codezeile wird mittels Klick auf eine Schaltfläche ausgelöst. Funzt mit normalen Zahlen auch Super,...
14.11.2008 19:27:33
Thread-ID: 1024690
7 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton ListBox

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
6
7
3
3
1
9
2
5
2
6
5
2
11
4
4
1
20
12
2
5
15
2
3
14
1