hallo leute,
ihr seit meine letzte hoffnung.
wieder mal habe ich ein problem, an welchem ich mir nun schon stunden lang die zähne ausbeiße und überhaupt nicht weiter komme. auch die recherche hat nichts gebracht.
ich habe eine userform, auf welcher sich ne multipage und darauf einige frame befinden.
über frame_exit prüfe ich:
ob in der textbox ein wert eingegeben wurde,
wenn ja, ist er in der datenbank vorhanden,
sonst setze den focus auf diese textbox
Private Sub Frame8_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'Benutzernummer
Dim rZelle As Range
Dim lLetzte As Long
lLetzte = Worksheets("Marktnummern").Range("D65536").End(xlUp).Row
If TextBox10.Value <> "" Then
If IsNumeric(TextBox10.Value) Then
Set rZelle = Worksheets("Marktnummern").Range("J2:J" & lLetzte) _
.Find(TextBox10.Value, Lookat:=xlWhole, LookIn:=xlValues)
If Not rZelle Is Nothing Then
Label20.Caption = Trim(Worksheets("Marktnummern").Cells(rZelle.Row, 11).Value)
Range("A1").Value = TextBox10.Value
Range("N1").Value = "bearbeitet von " & Label20.Caption
Else
MsgBox "Bitte geben Sie Ihre Benutzernummer ein - danke", _
48, " Hinweis für " & Application.UserName
With TextBox10
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
Cancel = True
End If
Else
MsgBox "Bitte geben Sie Ihre Benutzernummer ein - danke", _
48, " Hinweis für " & Application.UserName
With TextBox10
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
Cancel = True
End If
Else
MsgBox "Bitte geben Sie Ihre Benutzernummer ein - danke", _
48, " Hinweis für " & Application.UserName
With TextBox10
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End If
End Sub
dann kann ich über einen commandbutton alle textboxen leeren, auch wenn ich mitten in einem frame stecke, die prüfung wird abgebrochen und die textboxen geleert
nun mein problem:
wenn ich nun über einen commandbutton die userform verlassen möchte, bleibe ich in dem frame stecken, wo die letzte eingabe stattfand, auch wenn alle textboxen bereits geleert wurden.
mein code für's leeren
Private Sub CommandButton12_Click() 'alle textboxen und label leeren
Application.EnableEvents = False
Dim iIndex As Integer
For iIndex = 1 To 10
Controls("TextBox" & iIndex).Value = ""
Next iIndex
Label3.Caption = ""
Label5.Caption = ""
Label7.Caption = ""
Label8.Caption = ""
Label9.Caption = ""
Label13.Caption = ""
Label17.Caption = ""
Label20.Caption = ""
Label25.Caption = ""
Label26.Caption = ""
Label27.Caption = ""
Label28.Caption = ""
Label30.Caption = ""
Label31.Caption = ""
Label32.Caption = ""
Label36.Caption = ""
Label37.Caption = ""
Label38.Caption = ""
TextBox6.Visible = False
TextBox7.Visible = False
TextBox4.Visible = False
Application.EnableEvents = True
End Sub
mein code für's verlassen der userform
Private Sub Image1_Click()
Application.EnableEvents = False
Call CommandButton12_Click
Unload Me
Application.EnableEvents = True
End Sub
ich bekomme immer den letzten focus als fehlermeldung, warum???
kann mir jemand helfen??? ich bin schon am verzweifeln, auch über das normale schließen X geht es nicht.
gruss kirsche