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

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