Gebied wissen

[Thankyou]

Beste Helpers,

Mijn eerste vraag op helpmij.nl.
VBA is nog niet mijn "ding", een simpel stukje kopieren en bereiken aanpassen lukt maar verder kom ik niet.

Ik heb in een blad een 2-tal codes staan:

Sub picture_klik2()
    Dim Msg, Style, Title, Response, MyString
        Msg = "Alles wissen ?"
        Style = vbOKCancel
        Title = "Wissen"
        Response = MsgBox(Msg, Style, Title)
    If Response = vbOK Then
 MyString = "OK"
        Application.ScreenUpdating = False
         Worksheets("blad1").Range("C3:H148").ClearContents
         Worksheets("blad1").Range("B3:B148").ClearContents          
         [COLOR="red"]Worksheets("blad1").Range("A3:A148").ClearContents
         Worksheets("blad1").Range("B3").Select[/COLOR] 
        Application.ScreenUpdating = True
    Else
 MyString = "Cancel"
    End If
End Sub
----------------------------------------------------------------

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B3:B148")) Is Nothing Then
        Target.Offset(, -1).Value = Date
      End
    End If
End Sub

Nu is mijn uitdaging dat het rode gedeelte niet uitgevoerd wordt. Kolom A wordt wel over de gehele kolom gevuld met de datum van vandaag, zodra kolom B gewist wordt, maar kolom A wordt niet gewist.

Ik heb het idee dat zodra kolom B gewist wordt VBA "doorstapt" naar Private Sub Worksheet_Change.

de vraag: Hoe krijg ik het heleblad netjes schoon terwijl toch bij het invullen van kolom B automatisch de datum van vandaag in kolom A terecht komt?

 

[HSV]

Hallo Martin,

Application.EnableEvents = False

en zet het onderaan weer op True

Je kan de code ook verkorten in:

Sub picture_klik2()
  Application.EnableEvents = False
     If MsgBox("Alles wiisen ?", vbYesNo, "Wissen") = vbYes Then
       Range("A3:H148").ClearContents
     End If
  Application.EnableEvents = True
End sub

 

[Thankyou]

@Harry,

Wederom is mijn respect gestegen, ik zal geen grapjes meer maken over andere auto's met een A in het midden . . .

Harry, heel erg bedankt het werkt als *A*, uhh trein

Groet,