Hier nochmals der Code richtig ausgeschrieben:
[code]Sub WerteHolen()
Dim strPfad As String
Dim strFileName As String
Dim strSheetName As String
Dim strZellAdresse As String
Dim Wert
Dim lngZeile As Long
'Pfad
strPfad = "G:\OFFICE\01-Produkte\80-Lagerliste-Miva"
'Filename
strFileName = "Lagerliste-Miva.xlsx"
'Blattname
strSheetName = "Sheet1"
For lngZeile = 1 To 300
strZellAdresse = Cells(lngZeile, 3).Address
Wert = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A2").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C2").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A3").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C3").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A4").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C4").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A5").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C5").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A6").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C6").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A7").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C7").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A8").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C8").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A9").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C9").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A10").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C10").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A11").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C11").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A12").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C12").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A13").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C13").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A14").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C14").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A15").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C15").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A16").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C16").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A17").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C17").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A18").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C18").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A19").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C19").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A20").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C20").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A21").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C21").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A22").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C22").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A23").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C23").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A24").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C24").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A25").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C25").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A26").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C26").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A27").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C27").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A28").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C28").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A29").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C29").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A30").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C30").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A31").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C31").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A32").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C32").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A33").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C33").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A34").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C34").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A35").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C35").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A36").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C36").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A37").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C37").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A38").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C38").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A39").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C39").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A40").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C40").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A41").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C41").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A42").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C42").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A43").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C43").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A44").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C44").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A45").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C45").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A46").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C46").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A47").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C47").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A48").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C48").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A49").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C49").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A50").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C50").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A51").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C51").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A52").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C52").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A53").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C53").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A54").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C54").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A55").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C55").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A56").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C56").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A57").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C57").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A58").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C58").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A59").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C59").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A60").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C60").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A61").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C61").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A62").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C62").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A63").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C63").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A64").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C64").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A65").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C65").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A66").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C66").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A67").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C67").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A68").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C68").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A69").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C69").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A70").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C70").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A71").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C71").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A72").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C72").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A73").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C73").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A74").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C74").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A75").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C75").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A76").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C76").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A77").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C77").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A78").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C78").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A79").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C79").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A80").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C80").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A81").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C81").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A82").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C82").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A83").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C83").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A84").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C84").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A85").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C85").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A86").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C86").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A87").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C87").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A88").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C88").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A89").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C89").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A90").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C90").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A91").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C91").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A92").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C92").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A93").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C93").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A94").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C94").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A95").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C95").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A96").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C96").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A97").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C97").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A98").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C98").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A99").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C99").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A100").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C100").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A101").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C101").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A102").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C102").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A103").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C103").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A104").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C104").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A105").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C105").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A106").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C106").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A107").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C107").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A108").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C108").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A109").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C109").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A110").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C110").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A111").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C111").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A112").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C112").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A113").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C113").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A114").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C114").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A115").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C115").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A116").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C116").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A117").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C117").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A118").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C118").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A119").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C119").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A120").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C120").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A121").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C121").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A122").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C122").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A123").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C123").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A124").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C124").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A125").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C125").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A126").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C126").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A127").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C127").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A128").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C128").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A129").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C129").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
If Wert = ThisWorkbook.Worksheets("Artikelstammdaten").Range("A130").Value Then
strZellAdresse = Cells(lngZeile, 11).Address
ThisWorkbook.Worksheets("Artikelstammdaten").Range("C130").Value = GetValue(strPfad, strFileName, strSheetName, strZellAdresse)
End If
Next lngZeile
End Sub
'Function gefunden bei J. Walkenbach
Private Function GetValue(path, file, sheet, ref)
' Retrieves a value from a closed workbook
Dim arg As String
' Make sure the file exists
If Right(path, 1) <> "\" Then path = path & "\"
If Dir(path & file) = "" Then
GetValue = "File Not Found"
Exit Function
End If
' Create the argument
arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xlR1C1)
' Execute an XLM macro
GetValue = ExecuteExcel4Macro(arg)
End Function[/code] |