datum in vba - module

[grema]

hoi,


weet er iemand hoe ik in onderstaande (opgemaakt door Ferenc en ... ) - ik de data van vandaag automatisch kan laten verschijnen in een textbox ( blijkbaar doet men code ofset 36 het niet )

Tevens : hoe kan ik het verschil ingeven zodanig dat tussen 1 ste verwittiging naar klant nieuwe textbox met data van opbellen (manueel ingegeven op moment van bellen ) er automatisch een nieuwe dat wordt ingegeven om
de klant binnen een periode van 7 dagen opnieuw te verwittigen .
Dit om niet te vergeten te bellen )

  For Each c In MyRange.Range("A3:A300")
        If c = stZoekenLinks And c.Offset(, 1) = stZoekenRechts Then
            With MyRange.Range("A" & c.Row)
                .Offset(, 0) = Application.WorksheetFunction.Proper(txbVoornaam.Text)
                .Offset(, 1) = Application.WorksheetFunction.Proper(txbAdres.Text)
                .Offset(, 2) = txbTelefoonnummer.Text
                .Offset(, 3) = txbGSM.Text
                .Offset(, 4) = txbArtikel1.Text
                .Offset(, 5) = txbArtikel1aantal.Text
                .Offset(, 6) = txbStokartikel1.Text
                .Offset(, 7) = "=F" & c.Row & "-G" & c.Row
                .Offset(, 8) = txbArtnr1.Text
                .Offset(, 9) = TxbLev1.Text
                .Offset(, 10) = Txbfaktnr1.Text
                .Offset(, 11) = txbArtikel2.Text
                .Offset(, 12) = txbArtikel2aantal.Text
                .Offset(, 13) = txbStokartikel2.Text
                .Offset(, 14) = "=J" & c.Row & "-K" & c.Row
                .Offset(, 15) = TxbArtnr2.Text
                .Offset(, 16) = TxbLev2.Text
                .Offset(, 17) = Txbfaktnr2.Text
                .Offset(, 18) = txbArtikel3.Text
                .Offset(, 19) = txbArtikel3aantal.Text
                .Offset(, 20) = txbStokartikel3.Text
                .Offset(, 21) = "=N" & c.Row & "-O" & c.Row
                .Offset(, 22) = Txbartnr3.Text
                .Offset(, 23) = TxbLev3.Text
                .Offset(, 24) = Txbfaktnr3.Text
                .Offset(, 25) = txbArtikel4.Text
                .Offset(, 26) = txbArtikel4aantal.Text
                .Offset(, 27) = txbStokartikel4.Text
                .Offset(, 28) = "=R" & c.Row & "-S" & c.Row
                .Offset(, 29) = TxbArtnr4.Text
                .Offset(, 30) = TxbLev4.Text
                .Offset(, 31) = Txbfaktnr4.Text
                .Offset(, 32) = txbKlantnummer.Text
                .Offset(, 33) = txbBTWnummer.Text
                .Offset(, 34) = txbBesteldata.Text
                .Offset(, 34).NumberFormat = "[$-413]dddd dd mmmm yyyy;@"
                .Offset(, 34).ColorIndex = 5
                .Offset(, 35) = TxbAfhaalrek.Text
                [COLOR="Blue"].Offset(, 36) = "dddd dd mmmm yyyy[/COLOR];@"

met dank

grema

 

[grema]

het is dan toch gelukt joepie

toch bedankt aan zij die even een blik wierpen en een poging wensten te maken om te helpen

Groet

grema

 

[Wigi]

volgens mij

.Offset(, 36) = Format(Date,"dddd dd mmmm yyyy")

Wigi

 

[grema]

Wigi ,

had het ondertussen opgelost via :

  txbVandaag.Text = MyRange.Range("A1")

met in cel rij 1 kolom A : =(vandaag()) te plaatsen .

toch bedankt voor reactie .