Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

TextBox1_Exit

Betrifft: TextBox1_Exit von: Peter
Geschrieben am: 01.09.2004 14:09:09

HAllo Excels,

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
  


Betrifft: AW: TextBox1_Exit von: Bert
Geschrieben am: 01.09.2004 15:48:59

Vielleicht der Wertebereich von Integer überschritten? Zeilen besser as Long
deklarieren.

Bert


  


Betrifft: AW: TextBox1_Exit von: Peter
Geschrieben am: 02.09.2004 07:28:48

Hi Bert,

du hattest tatsächlich Recht.
Vielen Dank für deinen Tipp.

Gruß Peter