Suchfunktion - Fehlermeldung geht nicht
25.02.2008 16:31:00
Alex
habe da ein kleine Problem mit einem Excel Makro.
Ich will ein Sheet nach den Inhalten durchsuchen. Ich gebe in ein Userforum den Namen ein (Steht in Spalte B) und daraufhin gibt er mir alle anderen Infos dazu aus (die in der gleichen Zeile stehen).
Nur habe ich das Problem, das ich die Fehlermeldung nicht hinbekomme, wenn der Name nicht existiert.
Hier mein Code, kann mir jemand sagen was falsch ist?
Das Suchergebnis gibt er mir bestens in ein weiteres UserForm aus (Name: ergebnis)
Private Sub Suchen_Click()
Dim i As Variant
i = 2
On Error GoTo fehler
Set blatt = Worksheets("Tabelle1")
While blatt.Range("A" & i).Value ""
If blatt.Range("B" & i).Value = TBName.Value Then 'GoTo result Else Exit Sub
ergebnis.l0 = blatt.Range("A" & i).Value
ergebnis.l1 = blatt.Range("B" & i).Value
ergebnis.l2 = blatt.Range("C" & i).Value
ergebnis.l3 = blatt.Range("D" & i).Value
ergebnis.l4 = blatt.Range("E" & i).Value
ergebnis.l5 = blatt.Range("F" & i).Value
ergebnis.l6 = blatt.Range("G" & i).Value
ergebnis.l7 = blatt.Range("H" & i).Value
ergebnis.Show
End If
i = i + 1
Wend
fehler:
If Err.Number = 91 Then
MsgBox "Dieser Name konnte auf dem Tabellenblatt nicht gefunden werden!"
Else: End If
End Sub