VBA code wijzigen Datum verwijderen ipv Tekst

[jan excel]

Goede morgen Experts,

met onderstaande code kan ik text verwijderen die is geselcteerd in een listbox. (werkt met tekst wel)
Echter voor mijn toepassing staat er in colum A geen text maar datums.
Hoe moet de code worden gewijzigd om datums te kunnen verwijderen.

Private Sub Com_verwijderen_Click()
Dim J As Integer
Dim waarde As String
Dim K As Integer
Dim Naam As String
Rem On Error GoTo einde


Naam = ListBox1.Text [ik dacht Text te wijzigen in DATE echter krijg dan fout melding]
J = 1
Do
waarde = Worksheets("data").Cells(0 + J, 1).Value

If Naam = waarde Then
GoTo BestaandeNaam
End If
J = J + 1
If J = 9000 Then
Exit Do
End If


Loop Until waarde = ""
BestaandeNaam:
Worksheets("data").Range("A" & J & ":G" & J).Value = ""

Alvast bedankt.
Jan E

 

[snb]

Je bent de code tags vergeten !

Columns(1).Replace CDate("12-03-2012"), ""

 

[jan excel]

Hoi snb,

Bedankt voor je reactie, echter ik ben een beginner betreft VBA, e.e.a. geprobeerd maar lukt nog niet met jou code.
Waar moet deze code Columns(1).Replace CDate("12-03-2012"), "" komen te staan.

alvast bedankt.
Jan E

 

[snb]

Te oordelen naar je geplaatste code moet jou dit wel lukken...

 

[jan excel]

Hoi snb,

De code die ik heb geplaatst is een gebruikte code die ik ooit voor een ander projet gebruikte en gekopieerd in dit projekt.
De code heb ik ooit eens van iemand gekregen via het medium internet, dus heb ik niet zelf bedacht.
Vandaar dat het mij niet lukt om jou code te kunnen plaatsen, zelf heb ik deze VBA kennis niet.
Zou je dankbaar zijn als je mij kunt voort helpen.

 

[snb]

Mijn adagium is: 'gebruik geen VBA code die je niet begrijpt'.