Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1460to1464
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro Symbole alle zwei Zeilen per Klick einfügen

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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Makro Symbole alle zwei Zeilen per Klick einfügen
02.12.2015 13:42:30
Rudi
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

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

319 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige