ich hätte gerne, dass nachstehender Code so abgeändert wird, dass, falls eine Tabelle mit gleichem Namen in der Datei schon existiert, nachgefragt wird, ob die bestehende Tabelle gelöscht werden soll oder nicht:
Tabelle mit gleichem Namen bereits vorhanden! Soll diese gelöscht werden:
Ja/Nein
bei Ja: löschen und neu anlegen,
bei Nein: Code nicht ausführen
Vielen Dank für eure Hilfe
Gruß
Fritz
Sub Mitglieder_anlegen()
Worksheets("Tabelle2").Activate
ActiveSheet.Unprotect Password:="xxx"
Dim mysheet As Worksheet
Dim x As Boolean
cb = Cells(1, 4)
x = False
For Each mysheet In ActiveWorkbook.Worksheets
If mysheet.Name = cb Then
x = True
Else
End If
Next
If x = True Then
Else
Application.EnableEvents = False
Application.ScreenUpdating = False
Sheets("Tabelle2").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = cb
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
Cells.Select
Range("B1").Activate
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AD1:AI1").Select
End Sub