VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Blaue Linie, wenn Wert ungleich dem Wert der Vorgängerzelle

Gruppe

Feature

Bereich

Bedingt

Thema

Blaue Linie, wenn Wert ungleich dem Wert der Vorgängerzelle

Problem

Wenn der Wert in einer Zelle in Spalte A <> dem Wert der darunterliegenden Zelle, soll eine blaue Linie über den gesamten Datenbereich gezogen werden.

Lösung

Folgende Formel in der bedingten Formatierung: =$A1<>$A2




StandardModule: Modul1

Sub NewWkb()
   Dim vbC As Object
   Dim vbMdl As Object
   Dim iRow As Integer
   ActiveSheet.Move
   With ActiveSheet.Buttons(1)
      .OnAction = ActiveWorkbook.Name & "!Zurueck"
      .Caption = "Zurück"
   End With
   Set vbC = ActiveWorkbook.VBProject.VBComponents.Add(1)
   With vbC.codemodule
      iRow = .CountOfLines + 2
      .InsertLines iRow, "Sub Zurueck"
      .InsertLines iRow + 1, "   Worksheets.Add"
      .InsertLines iRow + 2, "   Worksheets(2).Move After:=Workbooks(""0119.xls"").worksheets(1)"
      .InsertLines iRow + 3, "   ActiveSheet.Buttons(1).Delete"
      .InsertLines iRow + 4, "End Sub"
   End With
End Sub

    


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