Laufzeitfehlermeldung '1004' unterdrücken

Computer: Software & Programmierung Office Software
1

Ich habe auf einem Userform einen Button der ein Makro startet.
Dieses Makro läuft nur dann, wenn ich vorherige Daten in die Tabellen
kopiert habe. Falls die Daten Fehlen, kommt „Laufzeitfehlermeldung ‚1004‘“.
Jetzt möchte ich aber keine Fehlermeldung erhalten falls ich den Button versehentlich drücke. Also einfach übergehen, als ob gar nichts war. Da muss es doch was geben… On Error Resume Next, geht leider nicht!

Der Code:
Private Sub GraphUpdate_Click()

Set Diagramm = Sheets(„Tabelle1“).ChartObjects(1).Chart
Diagramm.Parent.Width = Image1.Width
Diagramm.Parent.Height = Image1.Height
Diagramm.Export Filename:=„C:\Diagramm.gif“, FilterName:=„GIF“
Image1.Picture = LoadPicture(„c:\diagramm.gif“)
End Sub

Danke
Flexo

2

Hallo,

nutze folgenden Code:

Private Sub GraphUpdate\_Click()
On Error Goto Fehler
Set Diagramm = Sheets("Tabelle1").ChartObjects(1).Chart
Diagramm.Parent.Width = Image1.Width
Diagramm.Parent.Height = Image1.Height
Diagramm.Export Filename:="C:\Diagramm.gif",
FilterName:="GIF"
Image1.Picture = LoadPicture("c:\diagramm.gif")
On Error Goto 0
Fehler:
Exit Sub
End Sub

Viel Spaß beim Testen, tester!

3

Genau das wars… funzt bestens !

Danke