ich habe eine Frage und hoffe, dass diese jemand von euch beantworten kann. Ich bin gerade dabei, mit Excel eine Schichteinteilung für die Arbeit zu erstellen. Eine Schichtdauer wird mit einer verbundenen Zelle dargestellt.
Mein Makro sucht alle verbundenen Zellen im vorgegebenen Bereich und soll, wenn eine verbundene Zelle gefunden wurde die Anzahl der Zellen in diese schreiben.
So weit bin ich bisher gekommen:
Sub Verbundene_Zellen_suchen_und_jeweilige_Anzahl_ermitteln()
Dim rngZelle As Range
For Each rngZelle In Range("B4:Z78")
If rngZelle.MergeCells Then
'hier soll die Anzahl der verbundenen Zellen ermittelt werden
'und der Wert in die Zelle geschrieben werden
End If
Next rngZelle
End Sub
Ich bedanke mich für eure Hilfe und bin mir sicher, dass jemand eine Lösung weiß.
Viele Grüße
Michael