Pflichteingabe, sonst Fehler

Guten Abend,
ich würde gerne umsetzen, dass bei der Eingabe eines neuen Datensatzes über eine UserForm Pflichtfelder gefüllt sein müssen, damit gespeichert werden kann.
Das ganze überschreitet deswegen meinen Horizont, da es sich bei dem Pflichtfeld nicht nur um eine TextBox, sondern auch um eine Spalte in der Tabelle selbst handeln soll.
Das ganze hat die Logik, dass die Spalte eine Formel beinhaltet, die die Summe von verschiedenen TextBoxen bildet. Was es für mich so knifflig macht ist, dass die Summe aus 4 TextBoxen gebildet werden. Es gibt aber jede Kombination von Eingabe wodurch ich nicht die TextBoxen selbst als Pflichtfeld hernehmen kann, da auch mal in drei TextBoxen nichts stehen kann.
Handeln tut es sich bei der direkt ansprechbaren TextBox um TextBox1. Diese habe ich auch schon wie folgt angesprochen:
If Trim(CStr(TextBox1.Text)) = "" Then
MsgBox "Fehlender Wert", vbCritical + vbOKOnly, "FEHLER!"
was soweit funktioniert.
Was jetzt eben fehlt ist der Zusatz, dass in Spalte Q in der entsprechenden Zelle ein Wert stehen muss, der sich eben aus der Summe von TextBox3,4,5 und 6 bildet (in unterschiedlichen Kombinationen)....
Gibt es dafür eine Lösung?
Danke!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Ich weiß leider nicht genau was du mit "den errechneten Wert direkt eintragen" meinst. Das derjenige der die UserForm befüllt selbst die Summe ausrechnet?
Also bis jetzt nehme ich eben diese Funktion her:
Private Sub CommandButton3_Click()
Dim lZeile As Long
If ListBox1.ListIndex = -1 Then Exit Sub
If Trim(CStr(TextBox1.Text)) = "" Then
MsgBox "Sie müssen mindestens ein Konto eingeben!", vbCritical + vbOKOnly, "FEHLER!"
Exit Sub
End If
.
.
.
Ist es hier denn überhaupt grundsätzlich möglich eine Zelle mit einzupflegen? Also das er überprüft, ob in Zelle (als Beispiel) Q21 eben die Summe gebildet wurde und das bedeutet dann gleich, dass ein Wert in die TB3,4,5 und oder 6 eingetragen wurde.
Was ich meine mit "das einige Fälle nicht eingetragen werden können" ist. Dass die TB jeweils eine Person betrifft. Und eben nicht immer sind alle Personen involviert und haben somit nicht immer einen Wert (Zahl, bzw. Geldbetrag) einzutragen. Warum ich das schreibe ist, weil mein erster Gedanke (besser wüsste ich es nicht, weswegen ich da Hilfe bräuchte) war, dass ich auch hier als Prämisse setze, das TB3,4,5 UND 6 einen Wert haben müssen um speichern zu können.
Das ganze scheitert aber eben daran, dass dann einige Fälle nicht betrachtet werden können, da eventuell Person3 (TB3) nicht dabei war und somit keinen Wert hat. Dies würde aber mit der Prämisse zu einem Fehler kommen und es kann nicht gespeichert werden.

Private Sub CommandButton3_Click() Dim lZeile As Long If ListBox1.ListIndex = -1 Then Exit Sub If Trim(CStr(TextBox1.Text)) = "" Then If Len(TextBox3 & TextBox4 & TextBox5 & TextBox6) > 0 Then MsgBox "Sie müssen mindestens ein Konto eingeben!", vbCritical + vbOKOnly, "FEHLER!" Exit Sub End If End If

If Trim(CStr(TextBox1.Text)) = "" Then ' Wenn Textbox1 leer , dann führe den Code in diesem IF-Endif Block aus If Len(TextBox3 & TextBox4 & TextBox5 & TextBox6) > 0 Then 'wenn eine der anderen nicht leer, dann Messagebox aufrufen MsgBox .... End If End If

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Pflichteingabe, sonst Fehler

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

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread