Makro Symbole alle zwei Zeilen per Klick einfügen
02.12.2015 13:34:13
karin
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
Anzeige