Sub
Wenn6()
Dim
arrA()
As
Variant
, x
As
Long
, rng
As
Range
arrA = Range(Cells(1), Cells(Rows.Count, 1).
End
(xlUp))
For
x = 1
To
UBound(arrA, 1)
If
Len(arrA(x, 1)) = 6
Then
If
Not
rng
Is
Nothing
Then
Set
rng = Union(rng, Cells(x, 1).Resize(, 2))
Else
Set
rng = Cells(x, 1).Resize(, 2)
End
If
End
If
Next
x
With
rng.Font
.Bold =
True
.Size = 12
End
With
End
Sub