habe ein VBA am laufen welches mir die Daten aus verschiedenen Tagellen in eine neue Tabelle zusammenfasst.
Da immer einmal neue Daten dazukommen, muss ich händisch jedes mal im Macro die den Eintrag For i = x To ... ändern, sonst dauert es ewig mit der Auswertung.
Leider funktioniert es nicht wenn ich eingebe: For i = 91 To ... ändere in For i = vergleich("";B:B;-1) To ...
Also Zeile nach letzter Eintrag in B. In B ist keine Formel.
-------
Sub Makro1()
Dim i As Long, wbQuelle As Workbook
Application.ScreenUpdating = False
With ThisWorkbook.Worksheets("xx-xxxxxxxxx")
For i = 91 To .Cells(.Rows.Count, "B").End(xlUp).Row
If .Cells(i, "c") "" Then
Set wbQuelle = Workbooks.Open _
("\\xxx\user$\a.p\Documents\xxx\xxx\xxx\" _
& .Cells(i, "c"))
wbQuelle.Worksheets("1. Deckblatt").Range("M54").Copy
.Cells(i, "f").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
wbQuelle.Close False
End If
Next i
End With
End Sub