Option Explicit
Sub tst()
Dim sTxt As String
Dim sht As String
Dim last As Long
sht = "sht"
last = Sheets(sht).Cells(Rows.Count, "A").End(xlUp).Row
sTxt = InputBox("Teilenummer:")
If sTxt = "" Then Exit Sub
ActiveSheet.Range("$A$1:$V$12063").AutoFilter Field:=3, Criteria1:=sTxt
Sheets(sht).Range("H1:H" & last).Offset(1).Cells.SpecialCells(xlCellTypeVisible).Copy Workbooks("Errechnung Dehnung_Schrumpfung.xls").Worksheets("BERECHNUNG").Range("E7")
Sheets(sht).Range("L1:L" & last).Offset(1).Cells.SpecialCells(xlCellTypeVisible).Copy Workbooks("Errechnung Dehnung_Schrumpfung.xls").Worksheets("BERECHNUNG").Range("F7")
Sheets(sht).Range("Q1:Q" & last).Offset(1).Cells.SpecialCells(xlCellTypeVisible).Copy Workbooks("Errechnung Dehnung_Schrumpfung.xls").Worksheets("BERECHNUNG").Range("G7")
Sheets(sht).Range("U1:U" & last).Offset(1).Cells.SpecialCells(xlCellTypeVisible).Copy Workbooks("Errechnung Dehnung_Schrumpfung.xls").Worksheets("BERECHNUNG").Range("H7")
Sheets(sht).AutoFilterMode = False
End Sub