Gegevens wegschrijven

[Melrose123]

Hallo,

Met onderstaande code schrijf ik gegevens weg in een database (gewoon excel werkblad)

Worksheets("DBS.OfferteNAW").Activate
Range("A1").CurrentRegion.Select

ActiveCell.Offset(Selection.Rows.Count, 0).Activate
With ActiveCell
.Value = OfferteNummer
.Offset(0, 1).Value = strKlant
.Offset(0, 2).Value = strContactPersoon
.Offset(0, 3).Value = strAdres
.Offset(0, 4).Value = strPlaats
.Offset(0, 5).Value = BtwNummer

Nu worden de gegevens dus op de eerstvolgende rij geplaatst.

Maar hoe kan ik nu met code een bepaald nummer oplaten zoeken(offertenummer) en daar dan nieuwe gevens heen worden geschreven. En de bestaande gegevens worden dus overschreven.

Groeten Jannie

 

[LucHeyndrickx]

Hoi Jannie,

Dim Nummer As Integer
Nummer = 15

With Worksheets("DBS.OfferteNAW").Range("A:A").Find(Nummer)
.Offset(0, 1).Value = strKlant
.Offset(0, 2).Value = strContactPersoon
.Offset(0, 3).Value = strAdres
.Offset(0, 4).Value = strPlaats
.Offset(0, 5).Value = BtwNummer
End With

Luc