Den unten eingefügten Code habe ich mit dem Makrorekorder in relativer Aufzeichnung aufgenommen. Es werden immer wieder zwei Spalten hinten ankopiert (von Zeile 9 bis 75)
(Das sind praktisch binäre Kombinationen, die unten immer um eine Stelle länger werden sollen. Das alte Muster wird also wieder zweimal hinten ankopiert und darunter immer eine 1 und im zweiten Fall eine 0 angefügt)
Mein Problem ist nun, und ich bin in VBA leider noch immer bescheiden...es soll immer nur eine 1 angehängt werden, wenn nicht in Zeile 8 dieser neuen Spalte eine 0 UND vor der mit dem neu angehängten Wert eine 1 steht
Und er soll nur eine 0 anhängen, wenn nicht in Zeile 8 dieser neuen Spalte eine 1 UND vor der mit dem neu angehängten Wert eine 0 steht
Danke im Voraus
Sub Makro1()
' Makro1 Makro
For a = 754 To 1685
ActiveCell.Range("A1:A75").Select
Selection.Copy
ActiveCell.Offset(0, a).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(13, -1).Range("A1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "1"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "0"
ActiveCell.Offset(-13, a * -1).Range("A1").Select
Next a
End Sub