Frage zu ".UsedRange.Rows.Count"
12.05.2020 08:27:10
Sara
ich habe eine kurze Frage , da ich nicht wirklich auf das Ergebnis komme.
Ich habe mir eine Schleife gebaut.
Public Function ZeileSuchen(ByVal toSearch As String) As Boolean
Nun habe ich zuvor Zahlen die als String deklariert sind von der SQL Datenbank in meine Exceltabelle eingefügt.
Man gibt nun in der Textbox einen wert ein den man suchen möchte und bestätigt es.
In der Function soll immer ein abgleich gemacht werden bis die gesuche Zahl gefunden wird.
Jedes mal zeigt es mir an das es die Zahl nicht gebe.
Jedoch gibt es die.
Zuvor hat ich ein ähnliches Programm und dort funktionierte es ...
bittte um kurze Hilfe .
Ausschnitt von der Function
Dim X As Long
z = Sheets(1).UsedRange.Rows.Count
X = toSearch
zeile = -1
For i = 2 To z
If Cells(i, 1) = X Then
zeile = i
ZeileSuchen = True
Exit For
End If
Next
If zeile = -1 Then
ZeileSuchen = False
End If