Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Wert in Spalte Suchen und benachbarte Zelle in MsgBox ausgeben
#1
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
Antwortento top
#2
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
[-] Folgende(r) 1 Benutzer sagt Danke an Kuwer für diesen Beitrag:
  • Primo Centurio
Antwortento top
#3
Danke dir Uwe für die rasche Antwort und Lösung.

Der Code funktioniert wunder barSmile

Gruss Primo
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste