Ich habe ein Makro erstellt, dass in Spalte A in bestimmten größeren Bereichen (zB A 20:A60, A70:A91 usw. )
abwechselnd ein Kreuz, Haken oder nichts setzt.
Code:
Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A20:A60")) Is Nothing And Target.Count = 1 Then
Select Case Target.Value
Case ""
Target.Value = ChrW(10004)
Case ChrW(10004)
Target.Value = ChrW(10008)
Case ChrW(10008)
Target.Value = ""
End Select
ActiveCell.Offset(0, 1).Select
End If
End Sub
Jedoch sollen die Symbolen nur alle zwei Zeilen erscheinen, dazwischen soll die Zeile leer bleiben.
Was muss ich dazu an meinem Code ändern?
VIelen Dank im Voraus
Kerstin