Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
364to368
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
364to368
364to368
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Fehlerbehandlungsroutine

Fehlerbehandlungsroutine
21.01.2004 07:39:35
Peter
Hallo Forum,
Ist es möglich die Fehlermeldung: "Kann einen Blatt nicht den
gleichen Namen geben ......"
direkt in einer Fehlerbehebungsroutine abzufangen und dieses
Blatt mit den gleichen Namen zu löschen?
(ohne Zwischenschaltung von Hinweisboxen oder eigenen Userformen)
z.B. on Error goto Fehler
Fehler: Fehlernr ... und jetzt soll das
entsprechende Blatt gelöscht werden.
Ich hoffe ich habe mich einigermaßen verständlich ausgedrückt.
Vielen Dank Peter

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehlerbehandlungsroutine
21.01.2004 08:58:36
Matthias G
Hallo Peter,
folgende Prozedur macht was (wenn ich es richtig verstanden habe):

Sub Umbenennen(NameAlt, NameNeu As String)
Dim dummy As String
On Error GoTo Nichtda
dummy = Sheets(NameNeu).Name ' hier wird ein Fehler ausgelöst, wenn das Blatt nicht existiert
'wenn dieses existiert, es löschen ohne Nachfrage:
Application.DisplayAlerts = False
Sheets(NameNeu).Delete
Nichtda:
Application.DisplayAlerts = True
On Error GoTo 0
Sheets(NameAlt).Name = NameNeu
End Sub

VORSICHT: Die Tabelle NameNeu wird ohne Rückfrage gelöscht!
Gruß
Matthias
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige