On Error GoTo
13.12.2007 14:43:00
Melanie
ich habe mal eine Frage zum folgenden Makro. Wenn ich es ausführe werden die Angaben unter Fehler immer ausgeführt unabhängig davon, ob ein Fehler passiert oder nicht.
Was mache ich falsch?
Danke im Voraus für Eure Hilfe!
Grüße, Melanie
Sub monatneu()
On Error GoTo Fehler
'Blatt für Monat anlegen:
Sheets("Erstellen").Range("e11").Select
liste = Range("B4", Selection.End(xlDown)).Value
monatname = Range("D151").Value
Sheets("Vorlage").Visible = True
Sheets("Vorlage").Copy Before:=Sheets("Erstellen")
Sheets("Vorlage (2)").Name = monatname
Sheets(monatname).Select
Range("A4:AG4").Copy
Range("A4:AG4").PasteSpecial Paste:=xlValues
Range("B5:B104").Value = liste
ActiveSheet.Protect
Sheets(Array("Vorlage", "Grundlagen")).Visible = False
ActiveWorkbook.Save
Exit Sub
Fehler:
If Err.Number 0 Then
MsgBox "Bei der Erstellung des neuen Tabellenblattes ist ein Fehler aufgetreten. Bitte überprü _
fen Sie, ob das Tabellenblatt bereits vorhanden ist. "
Application.DisplayAlerts = False
Sheets("Vorlage (2)").Delete
Sheets("Vorlage").Visible = False
Application.DisplayAlerts = True
End If
End Sub