Sub gepostet()
'als Extract aus Fliestext

Dim rng As Range
'
Dim passendeZelle As Long
Dim Text As String

   ' Definition des Suchbereiches "rng"
   Set rng = Tabelle2.Range("A6:D200").Find(Range("A7:C200"))
   '*** Tabelle2 ist der Codename eines Arbeitsblattes
   '*** entspricht welchem Namen im Register der Arbeitsblätter ???
   '*** find - Methode, erforderlicher Parameter What:=
   '*** erforderlich ist ein gültiger Excel Datentyp - KEIN Range.Objekt
   '*** Ausnahme = eine einzelne Zelle, da wird eben die erste Eigenschaft .Value herangezogen
   '*** Ergo ist rng IMMER Nothing
   
   If rng Is Nothing Then
      MsgBox "Es ist ein Fehler aufgetreten! usw."
      'Der Artikel konnte Anhand der Bestellnummer nicht im Katalog gefunden werden.
      'Bitte die Artikelbeschreibung Händisch eintragen."
      Exit Sub
   Else
      'Suchfunktion -> übergibt Ergebnis an die Variable rng.Row
      'Bei einem Fehlerfall (Bestellnummer nicht im Katalog gelistet) erscheint eine Fehlermeldung in einem neun Fenster.
   
      'schreibt das Suchergebnis in die Variable passendeZelle
      Sheets("Produktkatalog").Select
      '*** da hast du es mit dem Codenamen - schon jetzt kennt sich keine Sau mehr aus
      
      passendeZelle = rng.Row
      
      'Sprung in andere Tabelle
      '*** ???
      Text = Cells(passendeZelle, 5)
      '*** hattu nun WAS aus WELCHEM Arbeitsblatt
      
      'Variable der Passenden Zelle in Spalte 5
      Sheets("GUI_Bestellsystem").Select       'Sprung in andere Tabelle
      
      'Setzt die Artikelbeschreibung in der Tabelle GUI_Bestellsystem
      'in Spalte 4 in die nächste freie Zelle ein.
      Cells(Application.Max(6, Cells(Rows.Count, 4).End(xlUp).Row + 1), 4) = Text
      '
      '
   End If
End Sub