'Meldungsnummern in der Dokumentation
With Workbooks("Name1.xlsx").Worksheets("Dokumentation")
Set rngDokumentation = .Range("D1", .Cells(.Rows.Count, "D").End(xlUp))
End With
'Meldungsnummern im Datenexport
With Workbooks("Name2.xlsx").Worksheets("Datenexport (1)")
Set rngDatenexport = .Range("A1", .Cells(.Rows.Count, "A").End(xlUp))
End With
Dabei wird davon ausgegangen, dass diese bereits geöffnet sind.
Ansonsten:
Set wkb1 = Workbooks.Open("C:\Verzeichnis\Name1.xlsx")
With wkb1.Worksheets("Dokumentation")
'...
Man sollte natürlich gescheite Namen wählen.
... und schau am besten in die Doku:
https://learn.microsoft.com/de-de/office/vba/api/excel.workbooks.open
|