Fehlermeldung bei Copy-Methode
15.02.2007 21:26:00
Sophie
habe folgendes Problem.
Hier unten ein kurzer Ausschnitt aus meinem Programm.
Möchte einen Doppel- Bereich kopieren, der erste Bereich ist immer gleich, um den zweiten Bereich festzulegen suche ich in der Spalte A den Anfangsbereich und Endbereich, wobei der Endbereich immer um 1 Zeile erhöht werden muß, damit ich komplett alle Daten bekomme. Funktioniert soweit ganz gut, nur kommt es ab und zu vor, daß der Endbereich sagen wir z.B. die Zeile 135 verbunden ist mit Zeile 136, jetzt bekomme ich immer eine Fehlermeldung, das verbundene Zellen...
Wie kann ich dieses Problem hier lösen?
Ich hoffe einer von Euch weiß mir Rat!
ActiveWorkbook.Sheets("Ausw.-Monat " & i).Range("A1:IV5, A" & Range("A1").End(xlDown).Row & ":IV" & Range("A65536").End(xlUp).Row + 1).Copy
Workbooks("Auswertesoftware.xls").Sheets("Zwischenspeicher").Range("A" & j).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Schönen Gruß
Dankeschön
Sophie