Excel Userform

Hallo,
ich habe eine Userform mit einer Input Mask, von einem User in diesem Forum habe ich bereits auch hilfe erhalten und diese Form noch ein wenig ausgebaut. Aber die Grundstruktur ist noch die gleiche. In diesem Beispiel wurde es so festgelegt, dass jedes Feld ausgefüllt werden muss, damit man nachher den OK Button betätigen kann. Das klappt auch gut, doch ich möchte jetzt dass zwei felder nicht unbedingt ausgefüllt werden müssen. Kann mir jemand, oder der User Sepp, einen Tipp geben wie das eingestellt wurde.
Was mir noch aufgefallen ist, ist die Reihenfolge in welcher die Felder gefüllt werden wichtig?
Und wenn es nicht zu viel Aufwand macht ...ich versuch schon alles selbst zu machen ... kann man eine MessageBox erstellen die eine darauf hinweist welches Feld noch nicht befüllt ist, falls man den Ok Button betätigen möchte?
Danke erstmal fürs lesen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Manu,
hier mal abgeändert mit entsprechenden MsgBoxen wenn die Textboxen nicht gefüllt sind. Die TextBoxen die nicht geprüft werden müssen kannst du ja innerhalb der IF - ElseIF Anweisungen einfach auskommentieren.

Option Explicit
Private Sub CommandButton1_Click()
Dim lngFirst As Long
If TextBox1 = "" Then
MsgBox "Bitte Name ausfüllen"
TextBox1.SetFocus
ElseIf TextBox2 = "" Then
MsgBox "Bitte Vorname ausfüllen"
TextBox2.SetFocus
ElseIf TextBox3 = "" Then
MsgBox "Bitte E-Mail ausfüllen"
TextBox3.SetFocus
ElseIf TextBox4 = "" Then
MsgBox "Bitte Straße ausfüllen"
TextBox4.SetFocus
ElseIf TextBox5 = "" Then
MsgBox "Bitte Postleitzahl ausfüllen"
TextBox5.SetFocus
ElseIf TextBox6 = "" Then
MsgBox "Bitte Wohnort ausfüllen"
TextBox6.SetFocus
Else
With ActiveSheet
lngFirst = Application.Max(2, .Cells(.Rows.Count, 1).End(xlUp).Row + 1)
.Cells(lngFirst, 1) = TextBox1.Text
.Cells(lngFirst, 2) = TextBox2.Text
.Cells(lngFirst, 3) = DTPicker1.Value
.Cells(lngFirst, 4) = TextBox3.Text
.Cells(lngFirst, 5) = TextBox4.Text
.Cells(lngFirst, 6) = TextBox5.Text
.Cells(lngFirst, 7) = TextBox6.Text
End With
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
End If
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub

Gruß Werner

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Excel Userform

9 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)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread