2016-11-22 8 views
0

ich zur Zeit ein sehr anoying Problem mit meiner Excel-Arbeitsmappe mit Blick auf, und ich mag Sie um Hilfe bitten.MS Excel 2013 - Absturz nach der Bearbeitung Zellenwert

Meine Arbeitsmappe arbeitet als Zitat Werkzeug und erzeugt anschließend ein PDF.

Zuerst müssen Sie Daten aus verschiedenen Quellen geben (zum Beispiel PDF-Dateien und Excel-Dateien, etc.) zu einem Arbeitsblatt namens Meisters. Sie können Berechnungen mit einfachen Formeln durchführen und die Ergebnisse in ein anderes Blatt namens Calc_Overview exportieren. In diesem Prozess werden die Daten auch mit der richtigen Schriftart, Farbe und Größe formatiert.

With ActiveWorkbook.Worksheets("Master") 
    For i = 12 To .UsedRange.rows.Count 
     If .Cells(i, 2) <> "" Then 
      .Cells(i, 2).Copy Destination:=Target.Cells(k, 4) 
      .Range(.Cells(i, 4), .Cells(i, 5)).Copy _ 
      Target.Range("F" + k, "G" + k).PasteSpecial xlPasteValues 

      .Range(.Cells(i, 6), .Cells(i, 7)).Copy _ 
      Destination:=Target.Range("I" + k, "J" + k) 

      .Cells(i, 8).Copy _ 
      Destination:=Target.Cells(k, 8) 
      k = k + 1    
     End If 
    Next i 
End With 

Nach dieser Operation kann der Benutzer eine Zusammenfassung seiner eingegebenen und berechneten Daten sehen. Mit einem anderen Makro, das die Zeilen in 3 verschiedene Arbeitsblätter kopiert (je nach Art), ist der Berechnungsvorgang beendet.

Dies ist meine Kopierfunktion:

Function CopyTable(Typ As String, Counter As Integer, Count As Integer) As Integer 

    With Worksheets("Calc_Overview") 
     .Range("A" & Count & ":" & "D" & Count).Copy _ 
      Destination:=Sheets(Typ).Range("A" & 5 + Counter) 

     .Range("G" & Count & ":" & "H" & Count).Copy _ 
      Destination:=Worksheets(Typ).Range("E" & 5 + Counter) 
    End With 

    CopyTable = Counter + 1 

    End Function 

Nun mein Problem: Wenn Sie versuchen, die Daten zu bearbeiten, die in das letzte Arbeitsblatt übertragen wurde, passiert es oft, dass Excel stürzt ohne Grund. Wenn Sie nach dem Bearbeiten eines Zellenwerts die Eingabetaste drücken oder auf eine andere Zelle klicken, wird Excel abstürzen.

Ich drehte bereits die ‚automatisch Flash-Fill‘ und ‚anzeigen Schnellanalyse‘ Option zu deaktivieren, aber das Problem weiterhin auftritt ..

Hat jemand eine Ahnung, was dieses Problem verursachen könnte? Ich habe bereits die letzten Arbeitsblätter durch neue ersetzt, ohne etwas von den "kaputten" zu kopieren - auch ohne Erfolg. Ich verwende einen Windows 10 PC (x64) mit einem 32-Bit Microsoft Office 2013.

Ich freue mich wirklich auf irgendwelche Tipps oder Lösungen in Bezug auf dieses Problem!

Vielen Dank

Moritz

+1

'Zellen (CStr (i), ...)' warum diese Umwandlung von i-String? vba wird die Umwandlung zu str dann zurück zu Integer machen. BTW Dies macht Ihren Code ein bisschen laut für jemanden, der versucht zu helfen. –

+0

Haben Sie ein Ereignis 'Worksheet_Change' oder' Worksheet_SelectionChange' in Ihrem vba-Projekt? Diese werden ausgeführt, wenn Sie einen Zellenwert ändern oder wenn Sie nach der Auswahl einer Zelle die Eingabetaste drücken. Wenn ja, Sie in dieser aussehen könnten, das Problem (nur eine Vermutung) – Lukas

+0

@ A.S.H Vielen Dank für diesen Rat zu finden, ich habe das geändert! –

Antwort