VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Unterschiedliche Namen mit Rahmenlinien trennen

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

    


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