Tabellenblatt kopieren und umbennen

[Werner.M]

Hallo,

mein Fehler, mir ist nicht aufgefallen, dass da dein .Value am Ende nicht hin gehört.

Code:

Sub tabellenblatterstellen()
Dim NeueTabelle As Range

For Each NeueTabelle In Worksheets("Übersicht").Range("A1:A10") 'alle Zellinhalte von A1 bis A10 durchgehen
  If Not IsEmpty(NeueTabelle) Then
      If NeueTabelle.Offset(0, 1) <> "bereits angelegt" Then
          Sheets("Vorlage").Copy After:=Sheets(Sheets.Count) 'Vorlagetabelle als letztes Blatt in die Arbeitsmappe kopieren
          Application.DisplayAlerts = False 'Rückfrage (nach dem Löschen einer bestehenden Tabelle) unterdrücken
          'Versuch, eine gleichnamige Tabelle zu löschen; bei Fehler (= Tabelle ohnehin nicht vorhanden) einfach weitermachen
          On Error Resume Next: Sheets(NeueTabelle).Delete: On Error GoTo 0
          Application.DisplayAlerts = True 'Systemeldungen wieder einschalten
          Sheets(Sheets.Count).Name = NeueTabelle 'neue Tabelle (= letztes Blatt der Mappe) umbenennen
          NeueTabelle.Offset(0, 1) = "bereits angelegt"
      End If
  End If
Next

End Sub

Gruß Werner

[krautblatt]

Hallo,

Danke an alle. Hab jetzt einen großen Sprung nach vorn gemacht mit eurer Hilfe

LG Fabian