Habe schon wieder eine Frage.Wie kann ich über eine Schaltfläche das aktive Tabellenblatt löschen.Eventuell mit Abfrage " Wollen Sie dieses Blatt löschen" Könnte mir bitte jemand den Code verraten?
Danke Heinz
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Application.DisplayAlerts = False
Sh.Delete
Application.DisplayAlerts = True
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim neuer_Blattname As String
If Target.Address = "$A$6" Or Target.Address = "$A$52" Then
neuer_Blattname = Range("A6") & " bis " & Range("A52")
ActiveSheet.Name = neuer_Blattname
End If
End Sub