AW: Immer noch kommt hin und wieder ein Fehler
04.12.2018 12:34:13
Luschi
Hallo Stefan,
genau das ist ein altes Kriegsleiden von Excel, wenn es zu viele Einzelbereiche gibt,
deshalb löse ich das Problem so:
Dim zelle As Range, rgBer As Range, vArr As Variant, sBer As String, i As Integer
'Berreich als Text festlegen
sBer = "B15:B22,B24:B31,B33:B40,B42:B49,B51:B58,B60:B67"
'Array erstellen
vArr = Split(sBer, ",", -1, vbTextCompare)
'jeden Arraywert zu einem Range-Bereich zusammenbauen
For i = LBound(vArr) To UBound(vArr)
If rgBer Is Nothing Then
Set rgBer = Range(vArr(i))
Else
Set rgBer = Union(rgBer, Range(vArr(i)))
End If
Next i
Debug.Print rgBer.Address
For Each zelle In rgBer.Cells
zelle.EntireRow.RowHeight = 0.5 - 14.5 * (zelle > 0)
Next zelle
Gruß von Luschi
aus klein-Paris