ich habe folgendes Problem:
Ich lösche aus einem Workbook alle Daten und sende die neuen Daten + Formatierungen.
For i = 1 To 3
wbUser.Worksheets(i).UsedRange.Clear
ThisWorkbook.Worksheets(i).UsedRange.Copy
wbUser.Worksheets(i).Cells(1, 1).PasteSpecial Paste:=xlPasteValues, SkipBlanks:=False, _
Transpose:=False
wbUser.Worksheets(i).Cells(1, 1).PasteSpecial Paste:=xlPasteAll, SkipBlanks:=False, Transpose:= _
False
wbUser.Worksheets(i).UsedRange.Validation.Delete
Next i
Dies funktionierte auch bis dato ohne Probleme.Neuerdings bleibt aber entweder Worksheet(1) oder (2) der Zielmappe leer!
Versuche ich manuell aus der Quellmappe einzufügen, bekomme ich die Info: "Bei einer Markierung von nicht angrenzenden Zellen ist die Ausführung dieses Befelhs nicht möglich."
Selbst wenn ich nur eine Zelle markiere und rüberkopieren möchte.
Aus allen anderen Quellen ist es möglich! - Hat Jemand ähnliche Erfahrungen und evtl. eine Lösung?
Ich hatte schon versucht eine 1:1 Kopie mit einer neuen Mappe zu erstellen, da sich Excel ja gern mal selbst die Integrität zerschießt, aber ohne Erfolg.
Bitte um Hilfe!