Inhoud cel verwijderen

[Phill]

Graag had ik wat hulp gehad met onderstaande vraag.
Als in Blad1 een bepaalde datum en opdrachtnummer staat, wil ik graag dat de datum gezocht wordt in de Maandplanning en vervolgens in die kolom de cel(len) met het opdrachtnummer leeggemaakt wordt.

Als bijlage stuur ik een voorbeeld bestand mee.

Alvast bedankt voor jullie hulp.

Bekijk bijlage Celinhoud verwijderen.xls

 

[Cobbe]

Deze zou u een stuk verder moeten helpen:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Oeps
 If Not Intersect(Target, Range("B1:B2")) Is Nothing Then
 Application.EnableEvents = False
  With Sheets("Maandplanning")
   datumkolom = .Range("B3:II3").Find(Range("B1")).Column
    For Each cl In .Range(.Cells(4, datumkolom), .Cells(100, datumkolom))
     If cl.Value = Range("B2") Then .Cells(cl.Row, datumkolom) = ""
    Next
  End With
 End If
Oeps:
Application.EnableEvents = True
End Sub

 

[Phill]

Beste Cobbe,

Als ik de code plaats en middels F8 wil kijken wat deze vervolgens doet, gebeurt er niets.
Als ik dan ByVal Target As Range tussen de haakjes verwijder, worden de onderstaande stappen gevolgd, maar gebeurt er verder niets.
On Error GoTo Oeps
If Not Intersect(Target, Range("B1:B2")) Is Nothing Then
Application.EnableEvents = True

Wat gaat hier fout?

 

[Cobbe]

De fout treedt op indien je de code laat lopen zonder Blad1 in beeld te hebben.

 

[Phill]

Nee, dat is het niet, want blad1 is in beeld.

 

[Cobbe]

Dat is het wel, de code is correct maar wordt niet juist toegepast.

Zie maar in het bestand en dubbelklik maar eens op B1 en check dan Maandplanning eens.

 

[Phill]

Ja, het werkt perfect.
Ik begrijp alleen niet hoe.
Ik kan de dubbelklik-actie ook niet achterhalen.
Is het mogelijk om de dubbelklik-actie in een macro op te nemen?

 

[Cobbe]

De code word getriggerd door middel van een change_event, dus dat dubbelklikken is nergens voor nodig, diende enkel om de uitleg.

Als je ofwel de datum ofwel de code in B1 en/of B2 wijzigt wordt de code automatisch uitgevoerd.

 

[Phill]

oké, ik begrijp het.
Heel hartelijk bedankt voor je hulp.

Groetjes Phill