Gruppe
Feature
Bereich
Bedingt
Thema
Unterschiedliche Namen mit Rahmenlinien trennen
Problem
Unterschiedliche Namen in einer Liste sollen durch Rahmenlinien getrennt werden.
Lösung
Folgende Formel unter" Bedingte Formatierung" einsetzen und Format festlegen: =A1<>A2
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