Formular - Prüfung ob Felder leer

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

' ********************************************************************** ' Modul: Modul1 Typ: Allgemeines Modul ' ********************************************************************** Option Explicit Sub Inputcheck04() If Application.CountA(Range("A1,A3,A5")) < 3 Then UserForm1.Show Else MsgBox "Alle Werte vorhanden!" End If End Sub ' ********************************************************************** ' Modul: UserForm1 Typ: Userform ' ********************************************************************** Option Explicit Private Sub UserForm_Initialize() Dim rng As Range 'Combobox01 content ComboBox1.RowSource = "C1:C5" 'Combobox02 content With ComboBox2 For Each rng In Range("G1:G5") .AddItem rng.Text Next End With 'Fill fields in form ComboBox1 = Cells(1, 1).Text ComboBox2 = Cells(3, 1).Text TextBox1 = Cells(5, 1).Text 'set start field in form ComboBox1.SetFocus End Sub Private Sub CommandButton2_Click() Unload Me End Sub Private Sub OKCommandButton_Click() 'Transfer Values to Worksheet Cells(1, 1).Value = ComboBox1.Value Cells(3, 1).Value = CDate(ComboBox2.Value) Cells(5, 1).Value = TextBox1 'Close Form Unload Me 'check again if fields are filled Call Inputcheck04 End Sub

Hallo Felix!

Private Sub ComboBox2_Change()
ComboBox2.Value = Format(ComboBox2.Value, "dd.mm.yyyy")
End Sub

Private Sub UserForm_Initialize()
'Combobox01 content
ComboBox1.RowSource = "C1:C5"
ComboBox1.Style = 2
'Combobox02 content
ComboBox2.RowSource = "G1:G5"
ComboBox2.Style = 2
'Fill fields in form
If Cells(1, 1)  "" Then ComboBox1.ListIndex = Application.Match(Cells(1, 1).Text, Range(" _
C1:C5"), 0) - 1
If Cells(3, 1)  "" Then ComboBox2.ListIndex = Application.Match(CLng(CDate(Cells(3, 1). _
Text)), Range("G1:G5"), 0) - 1
If IsDate(Cells(5, 1).Text) Then TextBox1 = Cells(5, 1).Text
'set start field in form
ComboBox1.SetFocus
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub OKCommandButton_Click()
Dim ValueA1 As String
Dim ValueA3 As String
Dim ValueA5 As String
ValueA1 = Range("A1")
ValueA3 = Range("A3")
ValueA5 = Range("A5")
'Transfer Values to Worksheet
Cells(1, 1).Value = ComboBox1.Value
Cells(3, 1).Value = ComboBox2.Value
If Len(TextBox1) > 0 Then Cells(5, 1).Value = TextBox1
'Close Form
Unload Me
'check again if fields are filled
Call Inputcheck04
End Sub

Sub Inputcheck04()
Dim raField As Range
For Each raField In Range("A1, A3, A5")
If IsEmpty(raField) = True Then UserForm1.Show
Next raField
MsgBox "Alle Werte vorhanden!"
End Sub
Gruß Gerd

Moin,
vielen dank für Eure Antworten, sie haben mir sehr geholfen.
Für mich zum dazu lernen:
1. Spricht irgendetwas gegen die Prüfung durch
For Each raField In Range("A1, A3, A5")
If IsEmpty(raField) = True Then UserForm1.Show
Next raField
oder ist Prüfung über Anzahl gefüllter Felder nur eine andere Variante?
2. Gibt die Zeile
~f~TextBox1 = Cells(5, 1).Text
etwas in die Tabelle zurück auch wenn nichts in der Zelle eingetragen wird?
Nach dem Aufrufen des Formulars meldet Prüfung kein leeres Feld mehr.
Gerd, Deine Prüfung funktioniert und verhindert genau dies, besten Dank!
~f~If Len(TextBox1) > 0 Then Cells(5, 1).Value = TextBox1
3. Gerd,
warum füülst Du die Felder mit
If Cells(3, 1) "" Then ComboBox2.ListIndex = Application.Match(CLng(CDate(Cells(3, 1).Text)), Range("G1:G5"), 0) - 1
im Gegensatz zu
Cells(3, 1).Value = ComboBox2.Value
Lg Felix

Beliebteste Forumthreads (12 Monate)

Formular - Prüfung ob Felder leer

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Formular - Prüfung ob Felder leer

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread