Laufzeitfehlermeldung durch MsgBox ersetzen

Computer: Software & Programmierung Office Software
1

Hallo

Mich würde mal interessieren, ob es möglich ist… anstatt die standartmässige Laufzeitfehlermeldung durch eine MsgBox zu ersetzen.

Das Laufzeitfehler kommt ist normal, denn es sind mehrer Aufgaben miteinander verbunden und wenn man ein Schritt nicht macht… kommt die
Meldung. Nun möcht ich einfach nur das ein Kästchen mit „Bitte komplett ausfüllen“ kommt.

Danke
Flexo

2

Hallo,

ja, z.B. so:

Sub fehler()
On Error GoTo fehler: 'Fehlerbehandlung
Dim fehlervariable As Integer 'hiermit löse ich einen Fehler aus
Let fehlervariable = 1E+16 'hiermit löse ich einen Fehler aus
fehler: 'Fehlerroutine
MsgBox "Fehler!"
End Sub

Gruß, Bernd

P.S.:

standartmässige

es ist keine „Standarte“ sondern ein „Standard“!

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

3

Hallo,

ja, z.B. so:

Sub fehler()
On Error GoTo fehler: 'Fehlerbehandlung
Dim fehlervariable As Integer 'hiermit löse ich einen
Fehler aus
Let fehlervariable = 1E+16 'hiermit löse ich einen
Fehler aus
fehler: 'Fehlerroutine
MsgBox „Fehler!“
End Sub

Gruß, Bernd

Hallo Bernd,

ich habe diesen Code und da kommt genau diese Fehler. Der Fehler
soll ja auch kommen, aber ich möchte eine MsgBox als Fehlerausgabe haben.

Gruss
Flexo

Private Sub CommandButton1_Click()

Range(„B11:C31“).Select
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets(„Tabelle1“).Range(„B11:C31“), _
PlotBy:=xlColumns
ActiveChart.SeriesCollection(1).Name = „=“„Volt“""
ActiveChart.SeriesCollection(1).Name = „=Tabelle1!R4C4“
ActiveChart.Location Where:=xlLocationAsObject, Name:=„Tabelle1“
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = „Volt“
.Axes(xlValue, xlPrimary).HasTitle = False
End With
With ActiveChart
.HasAxis(xlCategory, xlPrimary) = True
.HasAxis(xlValue, xlPrimary) = True
End With
ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic
ActiveChart.Legend.Select
Selection.Delete

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“)