Office: UserForm mit TextBox und ListBox

Hi Michael,

Code:

Private Sub TextBox6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   Dim lngFehler As Long
   If TextBox6 <> "" Then
      With Worksheets("Anlagenkartei")
         Set rngZelle = .Columns(2).Find(CLng(TextBox6), lookat:=xlPart, LookIn:=xlValues)
         If Not rngZelle Is Nothing Then
            On Error Resume Next
            ListBox1 = TextBox6
            lngFehler = Err.Number
            On Error GoTo 0
            If lngFehler = 380 Then
               ListBox1.ListIndex = 0
               ListBox1.ListIndex = -1
               TextBox1 = ""
               TextBox4 = ""
               TextBox3 = ""
               TextBox2 = ""
               TextBox5 = ""
            End If
            TextBox6 = ""
         Else
            ListBox1.ListIndex = 0
            ListBox1.ListIndex = -1
            TextBox1 = ""
            TextBox4 = ""
            TextBox3 = ""
            TextBox2 = ""
            TextBox5 = ""
         End If
      End With
   Else
      TextBox1 = ""
      TextBox4 = ""
      TextBox3 = ""
      TextBox2 = ""
      TextBox5 = ""
   End If
End Sub

Bis später,
Karin

 

Hallo Karin.

ICh danke Dir bisher klappt alles. Ich werde es heute oder mochmal testen und melde mich dann nochmal ob alles klappt.

Eins habe ich noch. kannst Du mir das ncoh machen. Wenn ich Änderung Übernehmen geklickt habe das ich Autoatisch wieder in der TextBox6 lande ohne dahin zu klicken.

Vielen vielen Dank und wünsche Dir ein schönes Wochenende.


Gruß Michael