hey,
hoffe jemand kann mir weiterhelfen,hab folgende Situation
hab einen 2 userforms erstellt:einmal fürs Eintragen und einmal für suchen.
Beim eintragen funktionieren die DTPicker einwandfrei sowohl für datum als auch für die zeit…ABER UMGEKEHRT LEIDER NICHT.wenn ich einen Nummer suchen möchte stoppt die suche bis zum ersten DTPicker:frowning:
so sieht mein code aus kann mir jemand helfen:
Private Sub Cmdabbrechen_Click()
werkzeugfreigabesuchen.Hide
End Sub
Private Sub CmdFelderlöschen_Click()
Dim tb As Object
For Each tb In werkzeugfreigabesuchen.Controls
If TypeName(tb) = „TextBox“ Then tb.Text = „“
Next tb
If Not DTPicker4.Value = „“ Then DTPicker4.Value = „“
If Not DTPicker6.Value = „“ Then DTPicker6.Value = „“
If Not DTPicker8.Value = „“ Then DTPicker8.Value = „“
If Not DTPicker1.Value = „“ Then DTPicker1.Value = „00:00:00“
If Not DTPicker9.Value = „“ Then DTPicker9.Value = „00:00:00“
If Not DTPicker10.Value = „“ Then DTPicker10.Value = „00:00:00“
End Sub
Private Sub CmdSuchen_Click()
Set frm2 = werkzeugfreigabesuchen
With frm2
Sheets(„Werkzeug-Freigabe“).Select
Range(„a:a“).Select
On Error GoTo fehler
Selection.Find(TextVtNummer.Value).Activate
.TextKunde.Value = ActiveCell.Offset(0, 1).Value
.TextMaße.Value = ActiveCell.Offset(0, 2).Value
.TextKonstrukteur.Value = ActiveCell.Offset(0, 3).Value
.DTPicker4.Value = ActiveCell.Offset(0, 4).Value
.DTPicker1.Value = ActiveCell.Offset(0, 5).Value
.DTPicker6.Value = ActiveCell.Offset(0, 6).Value
.DTPicker9.Value = ActiveCell.Offset(0, 7).Value
.DTPicker8.Value = ActiveCell.Offset(0, 8).Value
.DTPicker10.Value = ActiveCell.Offset(0, 9).Value
.Textfreigegeben.Value = ActiveCell.Offset(0, 10).Value
.TextVerkäuferValue = ActiveCell.Offset(0, 11).Value
.TextAnmerkung.Value = ActiveCell.Offset(0, 12).Value
Exit Sub
fehler:
MsgBox „Ein VT mit der Nummer : " & .TextVtNummer & " konnte nicht gefunden werden!“
End With
End Sub
Private Sub UserForm_Initialize()
DTPicker4.Value = Date
DTPicker6.Value = Date
DTPicker8.Value = Date
DTPicker1.Value = Time
DTPicker9.Value = Time
DTPicker10.Value = Time
End Sub