Clever-Excel-Forum

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

Hallo e...,

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

  Dim x As Long

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

Hi,

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

Hallo Werner, 

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

Dim x As String

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