vba cellen wissen

[bowlingman]

Hallo,
Ik probeer met onderstaande code cellen te wissen, maar er wordt niets gewist.
Staat er ergens een fout in de code

Private Sub cmbNieuw_Click()
    If MsgBox("Alles Wissen! Wilt U doorgaan?", vbYesNo) = vbYes Then
        With Sheets("Betalingen")
            Range("B6:BJ15").ClearContents
        End With
        Next
        With Sheets("Trekkingen")
            Range("B2:V110").ClearContents
        End With
    End If
Sheets("Trekkingen").Select
MsgBox "Startdatums aanpassen", vbExclamation, "Opgelet !"
End Sub

Alvast bedankt

 

[lam201]

Hi,

als je with sheets .. end with gebruikt, moet je een . (punt) gebruiken waar je normaal sheets("..") zou gebruiken.
dus:

With Sheets("Betalingen")
            [COLOR="#FF0000"].[/COLOR]Range("B6:BJ15").ClearContents
        End With

zonder de punt wordt het bereik op het actieve werkblad gewist.


Lambert

 

[edmoor]

Die With is helemaal niet nodig:

Private Sub cmbNieuw_Click()
    If MsgBox("Alles Wissen! Wilt U doorgaan?", vbYesNo) = vbYes Then
        Sheets("Betalingen").Range("B6:BJ15").ClearContents
        Sheets("Trekkingen").Range("B2:V110").ClearContents
    End If
    Sheets("Trekkingen").Select
    MsgBox "Startdatums aanpassen", vbExclamation, "Opgelet !"
End Sub

 

[bowlingman]

Super,
Beide bedankt voor de reactie.
Had niet gezien dat ik geen "." had gezet.
Ik heb de code van Ed maar genomen, kwestie van minder schrijfwerk.

Grtjs.
Armand