Thema Datum  Von Nutzer Rating
Antwort
Rot Microsoft-Excel funktioniert nicht mehr
24.08.2015 15:05:48 Bertelo
NotSolved
25.08.2015 16:25:48 Gast508
NotSolved

Ansicht des Beitrags:
Von:
Bertelo
Datum:
24.08.2015 15:05:48
Views:
1028
Rating: Antwort:
  Ja
Thema:
Microsoft-Excel funktioniert nicht mehr

Hallo,

Folgendes Programm funktioniert und wird auch erfolgreich beendet. Möchte man jedoch Excel schließen kommt die Fehlermeldung:

"Microsoft Excel funktioniert nicht mehr."

Das Programm speichert einen Ausschnitt aus einem Tabellenblatt und speichert dieses als .jpg ab.

Der Fehler wird durch die hervorgehobene Zeile verursacht:  (ws.Delete)

Ich denke es liegt an einer falschen Deklaration oder daran. dass das Tabellenblatt noch verwendet wird.

Kann mir jmd helfen?

P.S. Die "DoEvents" sind aus der Fehlersuche heraus entstanden.



Public Sub SaveRangeScreenshot(ByVal rng As Excel.Range)

Dim objChart    As ChartObject
Dim BlattName   As String
Dim ws          As Excel.Worksheet
Dim pic         As Picture
Dim sDatei      As String
Dim sZielDatei  As String
Dim sPfad       As String
Dim strFilename As String


On Error GoTo ErrHandler

Application.ScreenUpdating = False
Application.DisplayAlerts = False

        sPfad = ActiveWorkbook.Path & "\"
        sDatei = Worksheets("Tabelle1").Cells(2, 6).Value

        sZielDatei = sPfad & sDatei _
        & "_" & Format(Date, "yyyy_MM_dd_") _
        & Format(Time, "hh-nn-ss")


strFilename = sZielDatei & ".jpg"

rng.Copy
DoEvents
Set ws = ThisWorkbook.Worksheets.Add
DoEvents
Set pic = ws.Pictures.Paste(Link:=True)
DoEvents
pic.CopyPicture Appearance:=xlScreen, Format:=xlPicture
DoEvents
Set objChart = ws.ChartObjects.Add(0, 0, pic.Width, pic.Height)
DoEvents
With objChart.Chart
DoEvents
  .Paste
  DoEvents
  .Export strFilename
  DoEvents
End With

DoEvents

ErrExit:
  On Error Resume Next
  DoEvents
  ws.Delete

  DoEvents
  Set ws = Nothing
  Set pic = Nothing
  Set objChart = Nothing
  Application.DisplayAlerts = True
  Application.ScreenUpdating = True

  Exit Sub

ErrHandler:
  MsgBox Err.Description, vbCritical, "Fehler " & Err.Number & " aufgetreten!"
  Resume ErrExit

End Sub


Private Sub CommandButton1_Click()

Call SaveRangeScreenshot(Range("A2:D10"))

End Sub


 

 

 

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Microsoft-Excel funktioniert nicht mehr
24.08.2015 15:05:48 Bertelo
NotSolved
25.08.2015 16:25:48 Gast508
NotSolved