ich bekomme regelmäßig Exceltabellen zugesandt, die ich weiterverarbeiten muss.
Leider sind dort immer wieder mal verbundene Zellen vorhanden.
Da ich das meistens nicht sofort erkenne möchte ich es prüfen lassen.
Der erste Teil mit den Zellen markieren funktioniert gut, aber die Meldung, dass keine verbundenen Zellen vorhanden sind funktioniert nicht.
Sub Verbundene_Zellen_einfärben()
Dim Zelle As Range
For Each Zelle In ActiveSheet.UsedRange
If Zelle.MergeCells Then Zelle.Interior.ColorIndex = 45 'orange
Next Zelle
Else Zelle.MergeCells = False Then '?
MsgBox "Keine verbundenen Zellen gefunden"
End If
End Sub
Kann mir bitte jemand auf die Sprünge helfen?
Vielen Dank - Erwin