Laufzeitfehler 1004 - PasteSpecial-Methode
30.11.2013 17:16:56
Thomas
Ich bastle mir gerade ein Makro mit dem ich ausgefüllte Sheets in eine Datei zusammenkopiere. Es funktioniert bis jetzt auch alles gut (eventuell ist das Makro etwas kompliziert aufgebaut) doch hängt es jetzt am Punkt wo es die kopierten Zahlen/Text wieder als Wertkopie einfügen soll (fette Markierung unten im Code).
Es kommt der Laufzeitfehler 1004: Die PasteSpecial-Methode des Range-Objektes konnte nicht ausgeführt werden.
Weiss jemand von euch was ich da falsch mache?
Sub Zusammenfügen()
Dim wb As Workbook
Dim ws As Worksheet
Dim RG%, rgCell%
Dim Pfad As String
Dim Höhe As Byte
Dim Breite As Byte
Dim Höhe_von As Integer
Dim Höhe_bis As Integer
'Start-Variablen festlegen
rgCell = 2
RG = Sheets("Gebiete").Cells(rgCell, 3).Value
Pfad = ThisWorkbook.Path & "\" & RG & ".xls"
Breite = 11
Höhe = 6
Höhe_von = 6
Höhe_bis = 0
Do
Set wb = Workbooks.Open(Pfad) 'Datei öffnen
Do
Application.DisplayAlerts = False
If Sheets("Übersicht").Cells(Höhe, 2) > 0 Then
Höhe = Höhe + 1
End If
Loop Until Sheets("Übersicht").Cells(Höhe, 2) = 0
Höhe = Höhe - 1
Range(Cells(6, 1), Cells(Höhe, Breite)).Copy
Application.DisplayAlerts = False
wb.Close savechanges:=False 'Datei schließen
Application.DisplayAlerts = True
Höhe_bis = Höhe_bis + Höhe
Range(Cells(Höhe_von, 1), Cells(Höhe_bis, 11)).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'Variablen anpassen
rgCell = rgCell + 1
RG = Sheets("Gebiete").Cells(rgCell, 3).Value
Pfad = ThisWorkbook.Path & "\" & RG & ".xls"
MsgBox (Pfad)
Höhe = 6
Loop Until RG = 694 'bis Region 694
End Sub
Vielen Dank!Thomas