Hallo Severus,
vielen Dank für deine Hilfe.
Ich habe es jetzt soweit hinbekommen...allerdings ist das ganze leider zu wenig flexibel anwendbar.
Dim Anzahl As Integer, Name As String, i As Integer, a As Integer, wb As Workbook,
a = 5
Anzahl = Application.Workbooks.Count
For i = 1 To Windows.Count
Name = Application.Workbooks(i).Name
If Workbooks(i).Name <> ThisWorkbook.Name Then
ThisWorkbook.Worksheets("XX").Cells(a, 1).Value = Name
ThisWorkbook.Worksheets("XX").Cells(a, 10).Value = Workbooks(i).Worksheets("XX").Cells(Rows.Count, 10).End(xlUp)
a = a + 1
End If
Next
End Sub
Worauf es hinausläuft: Was hier die 10 bezeichnet ist der spaltenwert der kw, denn gibt es denn wirklich keine möglichkeit, den Code so zu schreiben, dass der Benutzer nur noch die KW in eine InputBox eingibt, diese gefunden und der entsprechende Spaltenwert dort eingesetzt wird, wo jetzt 10 steht?
Das Problem wird wohl sein, diese 10 auch flexibel innerhalb der anderen workbooks außerhalb der Masterliste anzuwenden.
Auf jeden Fall vielen Dank für den Support!!!
Gruss
Intern
|