Update: Ich habe mir aus deinem Range(Cells(ZZeile, Spalte)) ???? nochmal versucht eine Lösung zu finden, und habe gemerkt, dass ich bei meinem Versuch wohl ein Fehler eingeschlichen hatte, und es deshalb nicht Funktioniert hat. Ich habe es jetzt nochmal versucht und es hat funktioniert.
QZelle = Workbooks(QName.Name).Worksheets(QSheet.Name).Cells(QZeile, Spalte).Value
ZZelle = Workbooks(ZName).Worksheets(ZSheet).Cells(ZZeile, Spalte).Value
So passt es jetzt und läuft durch.
Auch wenn es etwas schwierig war, aufgrund deiner Antwort eine Lösung herauszufinden, hat es mir doch geholfen.
Danke
|