Tabellenblatt ohne Rückfrage löschen
23.12.2003 13:56:28
andif
eine andere Frage: Habe ein Sub, das Tabellenblätter selbständig erstellt. Läuft auch super. :)
Aber wenn die Mappe einmal zusammengestellt wurde und das Makro nochmal aufgerufen wird gibt es eine VBA-Fehlermeldung (und Panik unter den Kollegen!)
Der ErrorHandler fängt das jetzt zwar ab, erstellt trotzdem eine Tabelle "leer(2), da der Fehler erst danach, beim Umbenennen entsteht.
Wenn ich sie mit delete löschen will, bekomme ich eine "Sind sie wirklich sicher???" - Abfrage.
Beides nicht sehr Benutzer- und Kollegenfreundlich. Weiß jemand Rat? Zum besseren Verständnis hänge ich das Programm an.
Gruß
andi
Sub TabellenblätterErstellen()
Dim x As Integer
Dim strName As String
Dim bytZeile As Byte
Dim strAmtsgericht As String
Dim strAktenzeichen As String
Dim strVorname As String
For bytZeile = 2 To 100
Worksheets("Hilfstabelle").Select
Cells(bytZeile, 6).Select
strName = Cells(bytZeile, 3)
strVorname = Cells(bytZeile, 4)
strAktenzeichen = Cells(bytZeile, 2)
strAmtsgericht = Cells(bytZeile, 5)
On Error GoTo ErrorHandler
If ActiveCell.Value = "ja" Then
x = Worksheets.Count
Sheets("leer").Select
Sheets("leer").Copy After:=Sheets(x)
Sheets(Worksheets.Count).Select
Sheets(Worksheets.Count).Name = Sheets("Hilfstabelle").Cells(bytZeile, 3).Value
Sheets(Worksheets.Count).Cells(2, 2) = strName
Sheets(Worksheets.Count).Cells(3, 2) = strVorname
Sheets(Worksheets.Count).Cells(4, 2) = strAktenzeichen
Sheets(Worksheets.Count).Cells(5, 2) = strAmtsgericht
End If
Next bytZeile
ErrorHandler:
MsgBox "Die Arbeitsmappe wurde bereits zusammengestellt"
ActiveSheet.Delete
Exit Sub
End Sub
Anzeige