Wert in Spalte Suchen und benachbarte Zelle in MsgBox ausgeben

[Primo Centurio]

Guten Morgen miteinander

Ich komme bei einem Code nicht weiter und habe jetzt schon einiges versucht und wäre sehr dankbar um Eure Hilfe.

Über ein UserForm gebe ich einen Suchbegriff in eine TextBox ein. Dieser Suchbegriff soll in der Spalte C gesucht werden und falls es den Wert gibt soll er mir den Wert von ein Paar benachbarten Zellen über eine MsgBox angeben.

Hier ist der Code:

Code:

Private Sub CommandButton1_Click()

Dim a As Range

TextBox1.Value = UCase(TextBox1)


Set a = ActiveSheet.Range("C1:C1000").Find(TextBox1)
   If a = 0 Or a <> TextBox1 Then
       MsgBox "Nichts gefunden / Falsche Eingabe"
   Exit Sub
   End If

MsgBox a & " " & a.Offset(0, 1) & " hat die Registernummer " & a.Offset(0, -2)

End Sub

Meine Frage ist wie ich es hinkriege, dass mir die MsgBox mit der Nachricht "Nichts gefunden / Falsche Eingabe" angezeigt wird wenn in der TextBox ein Suchbegriff drin steht den es in der Spalte C nicht gibt.

Code:

If a = 0 Or a <> TextBox1 Then

Wo habe ich hier einen Fehler gemacht? 
Ich bekomme da immer den Laufzeitfehler 91 wenn ich einen Suchbegriff eingebe den es in der Spalte C nicht gibt.


Danke für eure Hilfe.

Grüsse Primo

[Kuwer]

Hallo Primo,

Private Sub CommandButton1_Click()
  Dim a As Range
  TextBox1.Value = UCase(TextBox1)
  Set a = ActiveSheet.Range("C1:C1000").Find(TextBox1)
  If Not a Is Nothing Then
    MsgBox a & " " & a.Offset(0, 1) & " hat die Registernummer " & a.Offset(0, -2)
  Else
    MsgBox "Nichts gefunden / Falsche Eingabe"
  End If
End Sub

Gruß Uwe

[Primo Centurio]

Danke dir Uwe für die rasche Antwort und Lösung.

Der Code funktioniert wunder bar :)

Gruss Primo