Datensätze suchen , funktioniert nicht

[excelri]

Hallo zusammen , ich habe folgendes Modul welches einen Eintrag (KundenNr.)  in der Spalte A sucht und  und die Daten der anderen Zellen der Zeile in Textboxen anzeigt im WEB gefunden.
Es funktioniert auch , aber  die Inhalte der Spalte A  sind 4 stellig . Wenn ich jetzt die Inhalt der Zellen  auf  6 stellig ändere findet die Suche nichts mehr.
Wer kann mir helfen, was muss ich hier ändern ? 

Danke Werner



Private Sub CommandButton1_Click()
    Dim x As Integer
    Z = Sheets(1).UsedRange.Rows.Count
    x = TextBox1
    temp = 0
    For i = 2 To Z
        If Cells(i, 1) = x Then
            temp = 1
            Exit For
        End If
    Next
    If temp = 1 Then
        Unload Me
        zeile = i
        UserForm2.Show
    Else
        MsgBox "Kundennummer nicht vorhanden!", vbExclamation
        TextBox1 = ""
    End If
End Sub

[Ego]

Hallo e...,

Integer kann nur Zahlen bis 32.767, nimm Long, das geht mindestens bis 2 Milliarden:

  Dim x As Long

[excelri]

Hi, Helmut 
danke das mit den Stellen klappt nun. ich habe trotz dem noch ein kleine Problem .  

Die KundenNr.  fängt mit zwei Buchstaben an und da funktioniert es nicht . Beispiel  :   AT123456

Gibt es da noch eine andere Variante ?
Gruß Werner

[WillWissen]

Hi,

muss es denn unbedingt VBA sein? Mit einem SVERWEIS könntest du dir doch auch die Daten anzeigen lassen.

[Ego]

Hallo Werner, 

wenn Buchstaben in der Kennung vorkommen sind es keine Zahlen mehr, sondern Zeichenketten (strings):

Dim x As String

[excelri]

Hallo zusammen, danke jetzt klappt alles. Grüße Werner  :17: