title image


Smiley Die gibt es schon - aber nur mit VBA
Hi,



so in der Art:



Option Explicit



Sub til()

Dim C As Range

Dim l As Long, i As Long

Dim arr() As String

For Each C In ActiveSheet.UsedRange

If C.MergeArea.Address C.Address Then

l = l + 1

ReDim Preserve arr(1 To l)

arr(l) = C.MergeArea.Address

End If

Next C

Cells.MergeCells = False

If MsgBox("Alle verbundenen Zellen entfernt. Soll ich sie jetzt" & _

"wieder verbinden?", vbYesNo, "Und weiter?") = vbNo Then Exit Sub

For i = 1 To l

Range(arr(i)).MergeCells = True

Next i

End Sub
Grüße vom Pianoman

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: