Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: Mynority am Juni 02, 2015, 16:58:01 Nachmittag

Titel: VBA (von Excel-Datei zu Excel-Datei Daten kopieren) Debugg Problem
Beitrag von: Mynority am Juni 02, 2015, 16:58:01 Nachmittag

Hallo,

ich habe folgenden Code (Makro):
   veddich
   14:20
ub import_patents7()
'
' import_patents7 Makro
'

'
    Workbooks.Open Filename:="G:\Innovation\_Management_Docs\export_patents.xlsx"
    Windows("Ideas_patents_overview_new3.xlsm").Activate
    Rows("4:4").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    Windows("export_patents.xlsx").Activate
    Range("A2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("Ideas_patents_overview_new3.xlsm").Activate
    Range("A4").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlTop
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlTop
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Range("C2").Select
    Windows("export_patents.xlsx").Activate
    ActiveWindow.Close
End Sub


Damit wollte ich eigentlich in einem gewissen Bereich die alten Daten löschen (sind auch Bilder und verlinkte Objekte drin) und aus einer anderen Datei dort wieder hineinkopieren (inklusive der Bilder und Pdf-Links). Die neuen Daten werden immer in der gleichen Reihenfolge erstellt. Anschließend die Datei schließen mit den neuen Daten und etwas an der Formatierung noch ändern.

Leider kann ich nach dem Benutzen des Makros die Datei nicht mehr speichern. Er meint, diese sei beschädigt worden. Woran liegt das?

Hat jemand ne bessere Lösung?

Viele Grüße
Mynority