Cel leeg maken dmv Label name

[Noord2011]

Beste mensen,

Ik wil door middel van een label1. Caption name (address) de sheet selecteren en het range leeg maken.

Bijv. Mijn Label1. Caption is Sheet1$B$10, dan moet in sheet 1 range B10 leeg worden dmv Clear.

Het label1 staat op Userform1

Alvast bedankt

Mv/Gr

Private Sub CommandButton1_Click()
"van naam label sheet selecteren en range leegmaken"
End Sub

 

[Roncancio]

Private Sub CommandButton1_Click()
Dim iPos As Integer
    iPos = InStr(1, Label1.Caption, "$")
    Worksheets(Left(Label1.Caption, iPos - 2)).Range(Mid(Label1.Caption, iPos)).ClearContents

End Sub

Met vriendelijke groet,


Roncancio

 

[sylvester-ponte]

hoi Noord25

zorg wel dat de naam van het blad bestaat. anders krijg je een fout melding
let wel op bij mij moet achter Sheet1 een ! staan. zo dus Sheet1!$B$10

  t = UserForm1.Label1.Caption
  Range(t).Parent.Select  'dan zie je het blad dat bij je selectie die op de label staat deze regel kan je ook weg laten
  Range(t).ClearContents

groet sylvester