Fehlerhandling bei Command Buttons
29.04.2014 07:28:27
Jürgen
ich habe eine Tabelle in der sehr viele Command Buttons sind. Diese rufen verschiedenen Tabellen auf. Ich habe zwar alle Tabellen ausgeblendet und geschützt, so dass ein Löschen durch den Benutzer praktisch nicht möglich ist. Dennoch möchte ich ein Fehlerhandling in den Aufruf der Tabelle einbauen.
Wie geht Ihr hier vor? Hab noch keine Fehlerhandling für Command Buttons erstellt.
Mir würde eine MsgBox mit dem betroffenen Command Button ausreichen. Im Moment fällt mir nur ein, das ich per On Error ein zweites Makro aufrufe, dem ich per Variablenübergabe den Namen des Command Button übergebe und dort die MsgBox aufrufen lasse.
Private Sub cmd_Mustertabelle_1_Click()
On Error Goto AufrufFehlermeldung
With Sheets("Mustertabelle 1")
.Visible = xlVisible
.Activate
Exit Sub
AufrufFehlermeldung:
Call Fehlermeldung("cmd_Mustertabelle_1")
'Und hier dann dann das Makro mit der MsgBox aufrufen
End Sub
Oder, habt Ihr noch einfachere andere Ideen. Ich möchte nur, dass mir der Benutzer die Meldung schicken kann und ich weiß dann wenigstens gleich, wo der Fehler aufgetreten ist und wo ich suchen muss.
Wie immer, besten Dank im voraus.
Viele Grüße
Jürgen
Anzeige