Hallo werte Helfende!
Mit
wksNeu.Range(strBereich) = "B" wird jede Zelle mit "B" befüllt. Wie kann man Excel dazu zwingen nur jede zweite Zelle mit "B" zu befüllen.
"strBereich" ist f. Mehrfachmarkierung(en):
With Selection.Areas
For i = 1 To .Count
strBereich = strBereich & .Item(i).Address(False, False) & ", "
Next i
End With
strBereich = Left$(strBereich, Len(strBereich) - 2)
Der Versuch mit
If strBereich Mod 2 Then wksNeu.Range(strBereich) = "B"
schlug leider fehl!
Danke im Voraus
Gruß
Lorenz