Ich probiere in zwei verschiedenen Tabellen einen Bereich automatisch auszulesen und miteinander zu vergleichen. Beide Tabellen werden jeweils periodisch vergrössert, so dass sich entsprechend der Bereich immer wieder ändert (mehr Zeilen).
Alles was ich in den verschiedenen Foren gefunden habe, funktioniert leider nicht. So bin ich auf Eure Hilfe angewiesen.
Hier ist der erste Teil meines Codes
Sub GwGPrüfung()
'
'
Application.ScreenUpdating = False
Dim RngGWG As Range, RngTaliban As Range
Windows("Identifikationen_Basel.xls").Activate
Worksheets("Zusammenfassung").Activate
With ActiveSheet
Set RngGWG = .Range(Cells(2, 1), Cells(Rows.End(xlDown).Row, 6))
End With
Windows("Komplettliste_Alle_2.xls").Activate
With ActiveSheet
Set RngTaliban = .Range(Cells(2, 19), Cells(Rows.End(xlDown).Row, 21))
End With
Windows("Identifikationen_Basel.xls").Activate
→ For Each Name In Worksheets("Zusammenfassung").Range(RangeGWG).Cells
TextA = UCase(Trim(Name.Value))
.
.
.
Der Code bleibt bei der mit → bezeichneten Zeile hängen.
Wo liegt der Fehler?
Besten Dank für Eure Hilfe
Gruss
Daniel