|
Hallo,
Die Variablendeklarationen benötige ich für vorangestellten Code und auch im weiteren Verlauf.
Desweiteren benötige ich ihn dafür, weil beide Zellen in unterschiedlichen Workbooks sind.
Mittlerweile habe ich mich heute noch einmal drangesetzt und die Vergleichsoppereation noch einmal überarbeitet.
Die Lösung habe ich mittlerweile auch gefunden.
If Workbooks(QName.Name).Worksheets(QSheet.Name).Range(QLetzteÄnderung & QZeile) = Workbooks(ZName).Worksheets(ZSheet).Range(ZLetzteÄnderung & ZZeile).Value Then
Das wird alles in eine Zeile geschrieben, und schon passt es.
Ich bin froh das ich eine so einfache Lösung gefunden habe, die es mir ermöglicht, den Code später auch noch zu verstehen.
Danke für die Bemühungen.
Bernd
|