Hallo zusammen,
kann mir jemand sagen warum untenstehender code nicht funzt? Zwei Excelmappen sind von der Struktur aus gleich. Es soll der Bereich Zelle L11 von einer Arbeitsmappe in den Bereich L11 der andern Arbeitsmappe kopiert werden. Dies bleibt aber immer leer, und es erscheint auch keine Fehlermeldung.
For Each xlsArbeitsmappe In Workbooks
If xlsArbeitsmappe.Name ThisWorkbook.Name Then
Dim wbQ As Workbooks
Dim wbQWS As Worksheet
Dim wbQR As Range
Dim wbZ As Workbooks
Dim wbZWS As Worksheet
Dim wbZR As Range
Set wbQ = Workbooks(ThisWorkbook.Name)
Set wbQWS = wbQ("Auftragscontrolling")
Set wbQR = wbQWS.Range("L11").Value
Set wbZ = Workbooks(strFile)
Set wbZWS = wbZ("Auftragscontrolling")
Set wbZR = wbZWS.Range("L11")
wbQR.Copy
wbZR.PasteSpecial xlPasteAll
End If
Next xlsArbeitsmappe
LG
Daniel