Makro Symbole alle zwei Zeilen per Klick einfügen

Bild

Betrifft: Makro Symbole alle zwei Zeilen per Klick einfügen
von: karin
Geschrieben am: 02.12.2015 13:34:13

GUten Tag,
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

Bild

Betrifft: Makro Symbole alle zwei Zeilen per Klick einfügen
von: Rudi Maintaire
Geschrieben am: 02.12.2015 13:42:30
Hallo,

Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A20:A60")) Is Nothing And Target.Count = 1 Then
if target.row mod 2=0 then 'nur gerade Zeilen
'if target.offset(-1)=""  'alternativ darüber leer
    Select Case Target.Value
    Case ""
        Target.Value = ChrW(10004)
    Case ChrW(10004)
        Target.Value = ChrW(10008)
    Case ChrW(10008)
        Target.Value = ""
    End Select
    
target.Offset(0, 1).Select
end if
End If
End Sub


Bild

Betrifft: Makro Symbole alle zwei Zeilen per Klick einfügen
von: karin
Geschrieben am: 02.12.2015 15:44:47
Dankeschön!!

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Makro Symbole alle zwei Zeilen per Klick einfügen "