strNum = InputBox("Bitte die Nummer der Anlagenzeichnung eingeben", "AZ_befüllen")

i = GoExcel.FindRow("F:\Auftrag\Technische Angaben\AZ-Werte.xlsx", "Tabelle1", "Anlagenzeichg.Nr", "-", strNum)
strLayout = GoExcel.CurrentRowValue("Layout")
strVorschub = GoExcel.CurrentRowValue("Vorschub")
strV_Einheit = GoExcel.CurrentRowValue("V-Einheit")
strBlechbreite = GoExcel.CurrentRowValue("Blechbreite")
strEinheit_BB = GoExcel.CurrentRowValue("Einheit_Blechbreite")
strMaterial_1 = GoExcel.CurrentRowValue("Material_1")
strBlechstärke_M1_min = GoExcel.CurrentRowValue("BD_M1_min")
strBlechstärke_M1_max = GoExcel.CurrentRowValue("BD_M1_max")
strFestigkeit_M1_min = GoExcel.CurrentRowValue("Festigkeit_M1_min")
strFestigkeit_M1_max = GoExcel.CurrentRowValue("Festigkeit_M1_max")
strMaterial_2 = GoExcel.CurrentRowValue("Material_2")
strBlechstärke_M2_min = GoExcel.CurrentRowValue("BD_M2_min")
strBlechstärke_M2_max = GoExcel.CurrentRowValue("BD_M2_max")
strFestigkeit_M2_min = GoExcel.CurrentRowValue("Festigkeit_M2_min")
strFestigkeit_M2_max = GoExcel.CurrentRowValue("Festigkeit_M2_max")
strEinheit_BS = GoExcel.CurrentRowValue("Einheit_Blechstärke")
strSteuerung = GoExcel.CurrentRowValue("Steuerung")
strLeistung = GoExcel.CurrentRowValue("Leistung")
strNetz = GoExcel.CurrentRowValue("Netz")
strAbsicherung = GoExcel.CurrentRowValue("Absicherung_Ampere")
strFI = GoExcel.CurrentRowValue("mit_oder_ohne_FI")
strPneumatik = GoExcel.CurrentRowValue("Pneumatik")
strSonstiges = GoExcel.CurrentRowValue("Sonstiges")

iProperties.Value("Custom", "Layout") = strLayout
iProperties.Value("Custom", "Vorschub") = strVorschub
iProperties.Value("Custom", "V-Einheit") = strV_Einheit
iProperties.Value("Custom", "Blechbreite von-bis") = strBlechbreite
iProperties.Value("Custom", "Einheit Blechbreite") = strEinheit_BB
iProperties.Value("Custom", "Material 1") = strMaterial_1
iProperties.Value("Custom", "Blechstärke M1 min") = strBlechstärke_M1_min
iProperties.Value("Custom", "Blechstärke M1 max") = strBlechstärke_M1_max
iProperties.Value("Custom", "Festigkeit M1 min") = strFestigkeit_M1_min
iProperties.Value("Custom", "Festigkeit M1 max") = strFestigkeit_M1_max
iProperties.Value("Custom", "Material 2") = strMaterial_2
iProperties.Value("Custom", "Blechstärke M2 min") = strBlechstärke_M2_min
iProperties.Value("Custom", "Blechstärke M2 max") = strBlechstärke_M2_max
iProperties.Value("Custom", "Festigkeit M2 min") = strFestigkeit_M2_min
iProperties.Value("Custom", "Festigkeit M2 max") = strFestigkeit_M2_max
iProperties.Value("Custom", "Einheit Blechstärke") = strEinheit_BS
iProperties.Value("Custom", "Steuerung") = strSteuerung
iProperties.Value("Custom", "Leistung") = strLeistung
iProperties.Value("Custom", "Netz") = strNetz
iProperties.Value("Custom", "Absicherung") = strAbsicherung
iProperties.Value("Custom", "mit oder ohne FI") = strFI
iProperties.Value("Custom", "Pneumatik") = strPneumatik
iProperties.Value("Custom", "Sonstiges") = strSonstiges

MessageBox.Show("Alle iProperties wurden befüllt in " &strNum, "Erledigt")