brauche Hilfe bei der Überarbeitung meines Programms. Also, das Programm tut folgendes:
Wenn in der Hilfstabelle in Spalte E ein "ja" steht, kopiert er die Vorlage "leer" und benennt sie mit dem Namen aus Spalte C um.
Soweit ganz gut.
Existiert der Name schon als Tabellenblatt, gibt es jedoch einen Laufzeitfehler 1004. Darum "Resume Next".
Vorteil:
ES gibt keinen Laufzeitfehler und für neue Namen in der Hilfstabelle wird ein neues Blatt erstellt.
Nachteil:
Die Vorlage "leer" wird trotzdem vorher kopiert und erscheint in der Tabelle als "leer(2)" oder "leer(3)" usw.
Irgendeine Idee wie man es realisieren kann, dass kein Laufzeitfehler angezeigt wird und auch keine Kopie von leer, dafür aber für neue Namen ein Blatt erstellt wird?
Hier das Programm:
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
On Error Resume Next
Application.ScreenUpdating = False
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)
If ActiveCell.Value = "ja" Then
x = Worksheets.Count
Sheets("leer").Select
Sheets("leer").Copy After:=Sheets(x)
Sheets(Worksheets.Count).Select
ActiveSheet.Unprotect
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
ActiveSheet.Protect
End If
Next bytZeile
Application.ScreenUpdating = True
End Sub
Hab schon alles mögliche versucht, bis am Ende gar nichts mehr lief.
Bin für jede Hilfe dankbar.
Gruß
andi