10.05.2018, 12:06
Hallo,
mein Fehler, mir ist nicht aufgefallen, dass da dein .Value am Ende nicht hin gehört.
Gruß Werner
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 SubGruß Werner
