Thema: Unterschiedliche Namen mit Rahmenlinien trennen

StandardModule: basMain

Sub ArbeitsblattLoeschen()
   Const csCpt1 As String = "Blatt anlegen"
   Const csCpt2 As String = "Blatt löschen"
   Dim oBtn As Button
   Set oBtn = ActiveSheet.Buttons(Application.Caller)
   If oBtn.Caption = csCpt1 Then
      Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
      ActiveSheet.Name = "Dummy"
      oBtn.Caption = csCpt2
      oBtn.Parent.Select
   Else
      Application.DisplayAlerts = False
      Worksheets("Dummy").Delete
      Application.DisplayAlerts = True
      oBtn.Caption = csCpt1
   End If
End Sub

Beiträge aus dem Excel-Forum zu den Themen Feature und Bedingt