Option Explicit
Sub tt()
Dim BarcodeText As String, Text As String
Dim passendeZelle As Long
BarcodeText = 1234
On Error GoTo fail:
passendeZelle = Tabelle2.Range("A6:D200").Find(BarcodeText, , xlValues, xlWhole).Row
On Error GoTo 0
Text = Sheets("Produktkatalog").Cells(passendeZelle, 5)
If Text = vbNullString Then GoTo fail
With Sheets("GUI_Bestellsystem")
.Cells(Application.Max(6, .Cells(Rows.Count, 4).End(xlUp).Row + 1), 4).Value = Text
End With
Exit Sub
fail:
Text = "Es ist ein Fehler aufgetreten!" & vbLf & _
"Der Artikel konnte Anhand der Bestellnummer " & BarcodeText & vbLf & _
"nicht im Katalog gefunden werden." & vbLf & _
"Bitte die Artikelbeschreibung Händisch eintragen."
Call MsgBox(Text, vbExclamation, "Eingabefehler")
End Sub