Cellen wissen met macro

[Fosters]

Beste forumgebruikers,

Ik ben op zoek naar een macro waarmee ik met een druk op de knop cellen kan wissen.
De cellen die gewist moeten worden zijn:

B9 t/m B2742
C9 t/m C2742
D9 t/m D2742
G9 t/m G2742

Met het zelf opnemen kwam ik er niet helemaal uit :S

 

[ExcelAmateur]

Ik kan zo niet zien op welk blad dit gedaan moet worden.
Maar hier heb je alvast een stukje code.

Sub Wissen()
  Range("B9:B2742").ClearContents
  Range("C9:C2742").Clearcontents
  Range("D9:D2742").ClearContents
  Range("G9:G2742").ClearContents
End Sub

 

[zapatr]

Met het zelf opnemen kwam ik er niet helemaal uit :S

Dat is vreemd. Met zelf opnemen moet dat toch zonder problemen lukken hoor.
Maar als dat niet het geval is, gebruik dan:

Sub macro1()
[B9:G2742].ClearContents
End Sub

 

[ExcelAmateur]

Zit nog even goed te kijken maar de code kan korter.

zapatr,
Bij de code van jouw wis hij ook de cellen van kolom E en F.
Dus zou het zo moeten zijn denk ik.

Private Sub CommandButton1_Click()
  Range("B9:D2742").ClearContents
  Range("G9:G2742").ClearContents
End Sub

 

[Fosters]

Bedankt voor je hulp! De eerste kolom lukt al met het script, alleen op de tweede regel blijft het hangen.

Het tabblad is gewoon Blad1 trouwens...

 

[ExcelAmateur]

Fosters,

Dat hij op de 2e regel blijf hangen klopt, ik had een foutje gemaakt.
Neem de code van mijn vorige bericht die werkt wel goed.

 

[Fosters]

Onze berichten hebben elkaar gekruist volgens mij.
Met je tweede code werkt het inderdaad zoals gewenst!

Bedankt voor de hulp!

 

[ExcelAmateur]

Zet je de vraag dan ook als opgelost. :thumb:

 

[Warme bakkertje]

Of

Private Sub CommandButton1_Click()
  Union([B9:D2742], [G9:G2742]).ClearContents
End Sub