Code bischen abändern
07.09.2017 23:58:38
Lorenz
Im untenstehenden Code der (da aus diesem Forum) ausgezeichnet funktioniert, hat nach meinen Ansprüchen einen kleinen Schönheitsmangel. Und zwar: wird durchgehend ein Bereich markiert wird die rechte Nachbarzelle gelöscht. Werden hingegen mehrere (auch nicht zusammenhängende) Bereiche (Klick + Shift) Selectiert dann bleiben die Einträge rechts daneben bestehen. Genauso brauche ich es auch bei durchgehender Markierung einiger Zellen.
Dim Bereich As String, arrBereich As String, i As Long, strBereich As String
Dim KO$(0, 1 To 50)
For i = 1 To 13
If Cells(i, ActiveCell.Column) = 1 Then Exit Sub
Next
For i = 1 To 50
If (i) = 1 And 1 = 1 Then KO(0, i) = "Ko"
Next
For i = 1 To Selection.Areas.Count
Bereich = Bereich & Selection.Areas(i).Address(False, False) & ", "
Selection.Areas(i) = KO
Selection.Areas(i).Font.ColorIndex = xlAutomatic
With wksWert
Range(Selection.Areas(i).Address) = KO
End With
Next i
Gruß
Lorenz