UserForm Erklärung

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi,
deine Beschreibung ist nicht ganz eindeutig. Ich nehme an, dass in dem Fall, wenn der Inhalt der ComboBox1 in Spalte A gefunden wird, die Daten in die betreffenden Zeile übernommen werden sollen und wenn de r Inhalt nicht gefunden wird, dann in die erste freie Zeile (weshalb sonst die letzte Zeile ermitteln?).

Private Sub CommandButton1_Click()
Dim lngZeile As Long
Dim rngZelle As Range
Dim lngLetzte As Long
If ComboBox1 Then
If TextBox1  "" And combobox7  "" And combobox13  "" And TextBox19  "" Then
Set rngZelle = Columns(1).Find(ComboBox1, lookat:=xlWhole)
If Not rngZelle Is Nothing Then
Cells(rngZelle.Row, 2) = TextBox1
Cells(rngZelle.Row, 3) = ComBoox7
Cells(rngZelle.Row, 4) = ComBox13
Cells(rngZelle.Row, 5) = TextBox19
Else
lngLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), _
Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
Cells(lngLetzte + 1, 2) = TextBox1
Cells(lngLetzte + 1, 3) = ComBoox7
Cells(lngLetzte + 1, 4) = ComBox13
Cells(lngLetzte + 1, 5) = TextBox19
End If
End If
End If
Set rngZelle = Nothing
End Sub

Okay.. so langsam kommen wir der Sache näher
Wenn du Überprüfen willst ob alle Felder ausgefüllt sind dann solltest du statt ElseIf (das ja aufhört, wenn eine der Bedingungen stimmt) deine If Klauseln verschachteln.
z.B. so:

If ComboBoxSpalte1  "" Then
If TextBoxSpaltex  "" And ComboBoxSpalteY  "" And ComboBoxSpalteZ  "" Then
'Deine Aktion hier
Else
MsgBox "Bitte überprüfen sie Ihre Eingaben"
End If
End If

Hier werden, sofern in der ersten Combobox was steht, die anderen Eingabefelder überprüft.
Wenn alle einen solchen Eintrag haben, läuft eben dein Code
Wenn eines der Eingabefelder leer ist, gibt es eine Meldung
Wenn die erste Combobox leer ist, passiert gar nichts.
Den Code oben musst du bezüglich der Comboboxbezeichnungen und dem auszuführenden Code wenn all Felder gefüllt sind noch anpassen.
So wie er jetzt da steht, bräuchtest du einen solchen Codeblock für jede Zeile von Eingabefeldern.
Viele Grüße
Robert

If ComboBoxSpalte1 "" Then If TextBoxSpaltex "" And ComboBoxSpalteY "" And ComboBoxSpalteZ "" Then 'Deine Aktion hier Else If Combobox1 "" Then MsgBox "Combobox1 leer" If Combobox2 "" Then MsgBox "Combobox2 leer" If Combobox3 "" Then MsgBox "Combobox3 leer" End If End If

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

UserForm Erklärung

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

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread