ich wende mich nochmal in voller Hoffung auf Hilfe an Euch.
Mein Problem:
Viele Textboxen im einem Userform zum Verwalten von Terminen.
Es klappt soweit alles nur die Datumswerte (25.08.02)werden als
Text übernommen, solten aber so übernommen werden, das das Format ein Datum ist. Weiter müssen die leeren Textboxen auch als leer übernommen werden und spater bei monitoren der Liste dann ebenfalls als Datum übernommen werden.Wichtig ist mir auch das das eingetragene Datum dann in der Tabelle mit der Funktion Autoausfüllen weiterbearbeitet werden kann.
Beispiel 25.08.02 autoausfüllen 26.08.02 usw
Als Anlage mein Code zur Übernahme in die Tabelle
Private Sub CommandButton4_Click()
Set frm = UserForm
Sheets("Betriebsaufträge").Activate
'letzte belegte Zelle in Tabelle finden
Range("A65536").End(xlUp).Offset(1, 0).Select
With frm
ActiveCell.Value = .txtLNr.Value
ActiveCell.Offset(0, 13).Value = .Textbox1.Value
ActiveCell.Offset(0, 14).Value = .Textbox2.Value
ActiveCell.Offset(0, 15).Value = .Textbox3.Value
ActiveCell.Offset(0, 16).Value = .Textbox4.Value
ActiveCell.Offset(0, 17).Value = .Textbox5.Value
ActiveCell.Offset(0, 18).Value = .Textbox6.Value
ActiveCell.Offset(0, 12).Value = .Textbox7.Value
ActiveCell.Offset(0, 5).Value = .ComboBox2.Value
ActiveCell.Offset(0, 6).Value = .ccbOrt.Value
ActiveCell.Offset(0, 8).Value = .ccbVSTKr.Value
ActiveCell.Offset(0, 9).Value = .ccbSystem.Value
ActiveCell.Offset(0, 7).Value = .ccbBeschreibung.Value
ActiveCell.Offset(0, 10).Value = .Textbox9.Value
ActiveCell.Offset(0, 25).Value = .txtFirmenaufmaß.Value
ActiveCell.Offset(0, 19).Value = .txtFirma.Value
ActiveCell.Offset(0, 20).Value = .txtSAPAbruf2.Value
ActiveCell.Offset(0, 21).Value = .txtListesoll.Value
ActiveCell.Offset(0, 22).Value = .txtEingangQNMMNS.Value
ActiveCell.Offset(0, 23).Value = .txtUmschaltungbis.Value
ActiveCell.Offset(0, 24).Value = .txtUmschaltungist.Value
ActiveCell.Offset(0, 26).Value = .ccbAufbauleiter.Value
ActiveCell.Offset(0, 11).Value = .ccbPlaner.Value
If OptionButton1 = True Then
ActiveCell.Offset(0, 1).Value = "x"
End If
If OptionButton2 = True Then
ActiveCell.Offset(0, 2).Value = "x"
End If
If OptionButton3 = True Then
ActiveCell.Offset(0, 3).Value = "x"
End If
If OptionButton4 = True Then
ActiveCell.Offset(0, 4).Value = "x"
End If
.txtLNr.SetFocus
End With
Mldg = "Daten in die Tabelle übernommen"
Stil = vbOKOnly + vbInformation + vbDefaultButton2
Title = "Auftragsverwaltung"
Kontext = 1000
Ergebnis = MsgBox(Mldg, Stil, Title, Help, Kontext)
Unload Me
End Sub