Daten übernehmen

Sub uebernehmen()
Dim suche As String
Dim z As Integer
suche = Sheets("Rezeptur").Range("L2").Value
Sheets("RezepturDaten").Select
z = 0                                 'den Zähler für die Treffer zu Beginn auf Null stellen
[A9].Activate                        'hier ändern falls eine andere Spalte durchsucht werden  _
soll
If suche = "" Then Exit 

Sub         'wenn keine Eingabe in InpuBox erfolgte wird abgebrochen
Do Until ActiveCell = ""        'bis zur ersten leeren Zelle suchen
ActiveCell.Offset(1, 0).Activate 'eine Zeile nach unten gehen
If ActiveCell = suche Then   'wenn die Zelle den gesuchten Wert enthält:
ActiveCell.Offset(0, 140).Activate
ActiveCell = Sheets("Rezeptur").Range("J37").Value
Exit Sub
'Selection.Rows.Count
z = z + 1                   'dann den Zähler um eins erhöhen
End If
Loop
End Sub