Excel - Ayuda con extraccion de datos a otro excel

He hecho esta Makro y no me funciona y nose poque, pretendo que al poner el numero que apareceria en una hoja extraerlo a donde aplico el makro,soy novatillo pero me esta causando muchos dpolores de cabeza estas makros

Sub consulta()

nDat = Columns("AA").Range("A65536").End(xlUp).Row

For Ix = 3 To nDat

If Val(Trim(Cells(Ix, 1))) = Durchmesser / Konstuktion Then

Sheets(Konstr).Cells(Iz, 1) = Durchmesser / Konstuktion

Sheets(Konstr).Cells(Iz, 2) = Cells(Ix, 2)

Sheets(Konstr).Cells(Iz, 3) = Cells(Ix, 3)

Sheets(Konstr).Cells(Iz, 4) = Cells(Ix, 4)

Sheets(Konstr).Cells(Iz, 5) = Cells(Ix, 5)

Sheets(Konstr).Cells(Iz, 6) = Cells(Ix, 6)

Sheets(Kontr).Cells(Iz, 7) = Cells(Ix, 7)

Sheets(Konstr).Cells(Iz, 8) = Cells(Ix, 8)

Ir = 1

End If

Next
If Ir = 0 Then
MsgBox ("No existe")

If Iz > 2 Then Iz = Iz - 1



End Sub

Muy buenas.

Alguna aclaración: Veo unas cuantas variables definidas dentro de la macro, que entiendo lo que haces con ellas (nDat, lx, lr), pero hay otras que no se definen (Durchmesser, Konstuktion, lz) y que por tanto su valor será siempre cero. Entiendo que lz es la línea de la hoja Kontr en la que quieres colocar la información, pero siempre es cero, se supone que debería ir variando, por lo que tendría que partir de un valor inicial y luego ir dentro del If del bucle algo así como lz=lz+1.

Ya dirás.

Un saludo. Juanjo.