MergeArea Auflistung

10/09/2010 - 19:42 von HelmutMit | Report spam
Hallo NG,
wie kann man alle verbundenen Zellen in einem Tabellenblatt in einer
Schleife bearbeiten? Gibt es eine Auflistung, etwa in der Art: For
each Ma in .. Für welches Objekt?
Oder wie könnte man das sonst noch machen?
Danke für jeden Hinweis.
Gruß Helmut
 

Lesen sie die antworten

#1 Claus Busch
10/09/2010 - 20:44 | Warnen spam
Hallo Helmut,

Am Fri, 10 Sep 2010 10:42:05 -0700 (PDT) schrieb HelmutMit:

wie kann man alle verbundenen Zellen in einem Tabellenblatt in einer
Schleife bearbeiten? Gibt es eine Auflistung, etwa in der Art: For
each Ma in .. Für welches Objekt?
Oder wie könnte man das sonst noch machen?



probiers mal so:
Sub VerbundZellen()
Dim rngZelle As Range
Dim ma As Range
Dim Antwort As String

With ActiveSheet
For Each rngZelle In .UsedRange
If rngZelle.MergeCells Then
Set ma = rngZelle.MergeArea
If InStr(Antwort, ma.Address(0, 0)) = 0 Then
Antwort = Antwort & ma.Address(0, 0) & ", "
End If
End If
Next
End With
MsgBox Left(Antwort, Len(Antwort) - 2)
End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Ähnliche fragen