Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 12:37:19
gew. Mittelwert Spalten mit Text ignorieren
23.04.2024 12:29:20
VBA nur Zeilen mit bestimmten Eintrag selektieren
23.04.2024 11:26:57
Probleme mit tbl.Listrows.add
23.04.2024 10:55:14
Zeilen sortieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
300to304
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
300to304
300to304
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fehlermeldung abfangen

Fehlermeldung abfangen
31.08.2003 15:21:48
Tom
Hallo
Mit dem Makrorekorder habe ich folgendes Marko aufgezeichnet und einer Befehlsschaltfläche zugewiesen.

Sub kopieren()
Sheets("Auftragsbestätigung").Select
Sheets("Auftragsbestätigung").Copy After:=Sheets(2)
Sheets("Auftragsbestätigung (2)").Select
Sheets("Auftragsbestätigung (2)").Name = "Rechnung"
Sheets("Rechnung").Select
Sheets("Rechnung").Copy After:=Sheets(3)
Sheets("Rechnung (2)").Select
Sheets("Rechnung (2)").Name = "Lieferschein"
Sheets("Berechnung").Select
End Sub

Wenn ich aber aus Versehen das Makro zweimal ausführe erscheint eine Fehlermeldung, weil die Tabelle schon existiert.
Wie muss ich den Code ergänzen, dass in diesem Fall eine Meldung erscheint und das Makro dann abgebrochen wird.
Im Voraus vielen Dank für Tipps.
Tom

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehlermeldung abfangen
31.08.2003 15:54:22
Folker
Hallo Tom,

das Abfangen des Fehler könnte wie folgt aussehen. Du solltest dir auch die select Anweisungen sparen, da damit nur zwischen den Sheets hin und hergesprungen wird und das Performance kostet. Mit sheets("XXX"). referenziertst du ja schon das sheet.

Gruss Folker

Sub kopieren()
on error goto exists
Sheets("Auftragsbestätigung").Copy After:=Sheets(2)
Sheets("Auftragsbestätigung (2)").Name = "Rechnung"
Sheets("Rechnung").Copy After:=Sheets(3)
Sheets("Rechnung (2)").Name = "Lieferschein"
exit sub
exists:
msgbox("Tabelle existiert schon!")
End Sub

Anzeige
AW: Fehlermeldung abfangen
31.08.2003 16:09:44
Tom
Hallo Folker

Vielen Dank für den Tipp.
Bei deinem Code wird trotzdem noch die Tabelle Auftragsbestätigung kopiert mit dem Namen Auftragsbestätigung (2).
Wie kann ich diese Ausführung unterbinden?
Tom
AW: Fehlermeldung abfangen
31.08.2003 16:12:29
Hajo_Zi
Hallo Tom


Sub kopieren()
On Error GoTo exists
Sheets("Auftragsbestätigung").Copy After:=Sheets(2)
ActiveSheet.Name = "Rechnung"
Sheets("Rechnung").Copy After:=Sheets(3)
ActiveSheet.Name = "Lieferschein"
Exit Sub
exists:
MsgBox ("Tabelle existiert schon!")
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
End Sub


Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

Zurzeit gibt es wieder Probleme mit der E-Mail Benachrichtigung.

Ich bekomme Mails zu Beiträgen an denen ich nicht beteiligt bin und zusätzlich noch Mails zu meinen eigenen Beiträgen.
Das Problem mit den eigenen Benachrichtigung kann gelöst werden durch Lösche und Neuanmelden. Dieses möchte ich aber nicht jeden Tag machen.
Um dieses Problem erstmal zu beseitigen habe ich die automatische Mailbenachrichtigung abgeschaltet.
Aus diesem Grunde ist es dem Zufall überlassen ob auf Rückfragen Antworten von mir kommen.
Anzeige
AW: Fehlermeldung abfangen
31.08.2003 16:16:48
tom
Hallo Hajo

Code funktioniert jetzt bestens.
Vielen Dank für die Hilfe.

Tom
Danke für die Rückmeldung oT
31.08.2003 16:17:37
Hajo_Zi

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige