Verbundene Zellen zählen
18.06.2008 15:39:00
Domtsgi
mit untenstehenden Code wird erkennt, ob gewisse Zellen verbunden sind.
Wenn die Zellen verbunden sind wird eine 1 ausgegeben sonst eine 0.
Soweit so gut...
Nun möchte ich anstelle der "1" die Anzahl der verbundenen Zellen aufgeführt haben.
Private Sub Worksheet_Activate()
Dim rngZelle As Range
For Each rngZelle In Range("e5:e380")
If rngZelle.MergeCells Then
rngZelle(1, 2) = 1 ' statt 1 möchte ich hier die Anzahl der verbundenen Zellen _
erhalten.
Else
rngZelle(1, 2) = 0
End If
Next rngZelle
End Sub
hat jemand eine Lösung?
mit freundlichen Grüssen Domtsgi
Anzeige