Samengevoegde cel splitsen - waarde

[Bart9999]

Hallo,

Mijn doel is om samengevoegde cellen te splitsen met als resultaat dat de waarde binnen deze cel wordt overgenomen binnen alle cellen waaruit de samenvoeging bestaat (en niet alleen in de cel linksboven in het bereik van de gesplitste cellen). Iemand een oplossing? Bedankt

Bart

 

[spaarie]

Welkom op het forum Bart, maar plaats eens een Excel voorbeeldbestand waarin je dit probleem nabootst.

 

[snb]

Sub M_snb()
    c00 = Cells(1).MergeArea.Address
    Cells(1).MergeArea.UnMerge
    Range(c00) = Cells(1).Value
End Sub

 

[Bart9999]

Welkom op het forum Bart, maar plaats eens een Excel voorbeeldbestand waarin je dit probleem nabootst.

Dank, zie voorbeelddocument. Cel A1/tm A5 is samengevoegd, het doel is deze cel op te splitsen zodat de waarde 116 in de cellen A1 t/m A5 wordt weergegeven.Bekijk bijlage Samengevoegde cellen - splitsen.xlsx

 

[Peter B]

Nu hoef je alleen nog maar de oplossing van snb er in te zetten, want volgens mij doet die precies wat je vraagt.

 

[MarcelBeug]

Met deze code kun je meerdere samengevoegde cellen selecteren en splitsen.

Sub splits()
    
    Dim waarde
    Dim gebied As Range
    Dim cl As Range
    
    On Error Resume Next
    
    For Each gebied In Selection.Areas
        waarde = gebied
        gebied.UnMerge
        For Each cl In gebied
            cl.Value = waarde
        Next cl
    Next gebied
    
    On Error GoTo 0
    
End Sub

 

[Bart9999]

Sub M_snb()
c00 = Cells(1).MergeArea.Address
Cells(1).MergeArea.UnMerge
Range(c00) = Cells(1).Value
End Sub

Bedankt, op welke wijze moet ik de Marco vervolgens bewerken zodat deze werkt in mijn voorbeeldbestand? zie document.
Bekijk bijlage Samengevoegde cellen - splitsen5.xlsmBedankt

 

[edmoor]

Je hebt de Sub van snb binnen de Sub en End Sub van de CommandButton gezet. Dat kan uiteraard niet.
Laat in dat geval de Sub M_snb() en de bijbehorende End Sub weg.

Dus niet dit:

Private Sub CommandButton1_Click()
Sub M_snb()
    c00 = Cells(1).MergeArea.Address
    Cells(1).MergeArea.UnMerge
    Range(c00) = Cells(1).Value
End Sub
End Sub

Maar dit:

Private Sub CommandButton1_Click()
    c00 = Cells(1).MergeArea.Address
    Cells(1).MergeArea.UnMerge
    Range(c00) = Cells(1).Value
End Sub

 

[Bart9999]

Je hebt de Sub van snb binnen de Sub en End Sub van de CommandButton gezet. Dat kan uiteraard niet.
Laat in dat geval de Sub M_snb() en de bijbehorende End Sub weg.

Dus niet dit:

Private Sub CommandButton1_Click()
Sub M_snb()
    c00 = Cells(1).MergeArea.Address
    Cells(1).MergeArea.UnMerge
    Range(c00) = Cells(1).Value
End Sub
End Sub

Maar dit:

Private Sub CommandButton1_Click()
    c00 = Cells(1).MergeArea.Address
    Cells(1).MergeArea.UnMerge
    Range(c00) = Cells(1).Value
End Sub

Top, opgelost. Bedankt iedereen.