ich habe hier folgenden Code, welcher auch wie gewünscht funktioniert.
in der UserForm habe ich div. Textboxen welche mir Rückmeldungen aus den anhängenden Tabellenblättern geben.
Nach diesem Code (s.u.) sollen die Daten in der UF über eine Zwischenstation in die verschiedenen Tabellenbläter verteilt werden; die UserForm geschlossen und wieder zur erneuten Dateneingabe geöffnet werden. Soweit, sogut. Das einzige was fehlt sind die aktualisierten Rückmeldungen aus den Tabellenblättern. Diese erscheinen erst nach komplettem Neuaufruf der UserForm.
Kann mir jemand sagen was ich ändern muß ?
Danke Gruß Volker
Private Sub CommandButton1_Click() 'Übernehme aus Userform1 in Tabelle
'Daten in neue Zeile übergeben
Sheets("Eingabe").Select
'Anzahl der Einträge ermitteln
Range("rListeBeginn").Offset(0).Select
Set tbl = ActiveCell.CurrentRegion
anzahl = tbl.Rows.Count + 2
'Neue Einträge hinzufüge
If ComboBox1.Text = "" Then 'Materialart
MsgBox "Materialnummer angeben!"
ComboBox1.SetFocus
Exit Sub
End If
If ComboBox6.Text = "" Then 'Anlieferer
MsgBox "Anlieferer angeben!"
ComboBox6.SetFocus
Exit Sub
End If
If ComboBox6 = "FSC Unna" And TextBox2 = "" Then 'Prüfdatum
MsgBox "Nächstes Prüfdatum eingeben!"
Exit Sub
End If
If ComboBox7 = "" Then 'Empfänger
MsgBox "Empfänger angeben!"
ComboBox7.SetFocus
Exit Sub
End If
If ComboBox8 = "" Then 'Empfänger
MsgBox "Materialart angeben!"
ComboBox8.SetFocus
Exit Sub
End If
Sheets("Eingabe").Range("A" & anzahl + AnzahlHeader + 2).Value = TextBox1.Text
Sheets("Eingabe").Range("B" & anzahl + AnzahlHeader + 2).Value = ComboBox6.Text
Sheets("Eingabe").Range("C" & anzahl + AnzahlHeader + 2).Value = ComboBox7.Text
Sheets("Eingabe").Range("D" & anzahl + AnzahlHeader + 2).Value = ComboBox8.Text
Sheets("Eingabe").Range("E" & anzahl + AnzahlHeader + 2).Value = CDate(TextBox2)
'Sheets("Eingabe").Range("J" & anzahl + AnzahlHeader + 2).Value = ComboBox6.Text
Call Übernehme 'Verteilen in die verschiedenen Tabellenblätter
Unload Me
UserForm1.Show
End Sub