ich könnte noch einmal Professionelle Hilfe aus dem Forum gebrauchen.
Im Tabellenblatt (Tabelle1) soll von der Zelle K461 bis K1001 jede 2te Zelle über eine Schaltfläche im aktiven Tabellenblatt auf "Nein" gesetzt werden.
Es muss doch möglich sein, dieses über einen kürzeren Code auszuführen.
Wer kann da behilflich sein ?
LG
Moni
Mein Code lautet:
Tabelle1.Range("K461,K463,K465,K467,K469,K471,K473,K475,K477,K479").Value = "Nein"
Tabelle1.Range("K481,K483,K485,K487,K489,K491,K493,K495,K497,K499").Value = "Nein"
Tabelle1.Range("K501,K503,K505,K507,K509,K511,K513,K515,K517,K519").Value = "Nein"
Tabelle1.Range("K521,K523,K525,K527,K529,K531,K533,K535,K537,K539").Value = "Nein"
usw.