Ich habe hier schon sehr lange nach was passendem gesucht, aber leider immer nur
einen ähnlichen Fall gefunden.
Ich habe eine Tabelle (Tabelle1), in dieser Tabelle befindet sich eine Artikelnummer in
Zelle (A2).
Diese Nummer soll in einer externen Excel-Datei (G:\OFFICE\... in Spalte C gesucht werden und wenn gefunden soll die zelle aber von Spalte K aus dieser Zeile wo sich die gleiche Nummer befindet kopiert werden in meine Tabelle1 (auf Laufwerk D:.)
z.B.
Also wenn Nummer: 7755 (A2) aus meiner Tabelle1 in meiner (geschlossenen) externen-Excel Datei auf Laufwerk T: in Spalte C gefunden wird, z.B in (C33) dann soll
der Wert aus: K33 kopiert werden in meine (Tabelle1)
in die Zelle C2.
Mein Code funktioniert und sieht so aus:
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\..."
'Filename
strFileName = "Beispiel.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
Diesen habe ich gefunden und angepasst. Was ich ändern möchte und was meine Fragen sind:
1. "For lngZeile = 1 To 300" wie kann ich das anpassen das es bis zur letzten geschriebenen zelle in der aktuellen & externen Datei sucht und kopiert? Also das ich nicht manuell die Zeilenanzahl angeben muss....
2. Kann ich den Code irgendwie verkürzen, damit ich z.b nur den ersten "If Wert, End If" angeben, danach aber fortlaufend bis zur letzten A Zelle durcharbeitet?
Ich hoffe ich habe das verständlich rüber gebracht und wäre für ein wenig Hilfe dankbar. |