TextBox1_Exit
01.09.2004 14:09:09
Peter
in einem Userform habe ich unteranderem diesen Code.
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Integer, suchtext As Variant, lastZe As Integer
Dim checker As Integer
'Application.ScreenUpdating = False
lastZe = ActiveSheet.UsedRange.Rows.Count
i = 1
checker = 0
For i = 1 To lastZe
suchtext = Cells(i, 2)
If "30100" & TextBox1.Text = suchtext Then
Label10.Caption = Cells(i, 3)
checker = checker + 1
End If
Next
If Einschreiben.Label10.Caption = "" Then
Einschreiben.Label10.Caption = "?"
End If
'Application.ScreenUpdating = True
End Sub
Die Userform benutze ich für alle Blatter einer Mappe.
Plötzlich bleibt der Code in einem Blatt immer an dieser Stelle hängen.
lastZe = ActiveSheet.UsedRange.Rows.Count
In allen anderen Blättern funktioniert alles super.
Kann den Fehler einfach nicht finden.
Kann jemand helfen ?
Gruss Peter