Formular - Prüfung ob Felder leer
06.05.2017 14:30:34
Felix
Ich habe folgende Aufgabe:
In meiner Tabelle starte ich Prozedur per Button. Am Anfang soll geprüft werden, ob die Felder A1, A3 und A5 Werte enthalten. Sind alle Werte vorhanden wird die Prozedur fortgesetzt, wenn nicht soll Userform1 aufgerufen werden, das den User zum eingeben der Daten zwingt.
Im Userform1 sind Combobox1 + 2, Textbox1 und ein OK- und Cancel button.
Problem:
1. Irgendwo hakt es generell und ich habe Anfängerfehler drin.
1. Combobox2 soll im Formular das Datum zeigen und nicht den numerischen Wert. Ich hatte es versucht mit cdate versucht, aber nicht erfolgreich.
Code im Modul:
Option Explicit
Sub Inputcheck04()
Dim raField As Range
For Each raField In Range("A1, A3, A5")
If IsEmpty(raField) = True Then UserForm1.Show
Next raField
End Sub
Im Userform1:
Private Sub UserForm_Initialize()
'Combobox01 content
ComboBox1.RowSource = "C1:C5"
'Combobox02 content
ComboBox2.RowSource = "G1:G5"
'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()
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
Cells(5, 1).Value = TextBox1
'Close Form
Unload Me
'check again if fields are filled
Call Inputcheck04
End Sub
Besten Dank schon mal,
Felix
Anzeige