Scholieren.com forum - [Excel] Datum invoegen door Macro

Scholieren.com forum (https://forum.scholieren.com/index.php)

- Software & Hardware (https://forum.scholieren.com/forumdisplay.php?f=20)

- - [Excel] Datum invoegen door Macro (https://forum.scholieren.com/showthread.php?t=1630016)

lullow

26-09-2007 12:20

[Excel] Datum invoegen door Macro

OKé,

Ik ben bezig met een sheet waarbij een aantal gegevens vanzelf ingevoerd moeten worden door deze informatie uit de pc te plukken.
Nu heb ik het al voor elkaar dat hij de gebruikersnaam automatisch toevoegd.

Nu wil ik dat hij ook de Hyperlinks verwijdert en de Datum toevoegd op een bepaalde cel.
het volgende staat in de Macro:

Code:

Private Sub Workbook_Open()

If IsEmpty(Range("D62")) Then

Sheets("sheet1").Range("D62").Value = Application.UserName

End If

End Sub



Sub LinksDelete()

    Cells.Hyperlinks.Delete

End Sub



Sub DateAdd()

If IsEmpty(Range("D63")) Then

Sheets("sheet1").Range("D63").Value = TODAY()

End If

End Sub

Ziet iemand waarom het neit werkt?

Zou heel dankbaar zijn

Marcade

26-09-2007 15:31

Heu .. omdat VB niet zoiets kent als TODAY() .. AFAIK? Kan je geen gebruik maken van TIME en DATE ?

lullow

26-09-2007 15:52

Citaat:

Marcade schreef: (Bericht 26052350)

Heu .. omdat VB niet zoiets kent als TODAY() .. AFAIK? Kan je geen gebruik maken van TIME en DATE ?

helaas.. dat doeit ie ook niet.. ik ben al niet zo'n str me vb...

Marcade

26-09-2007 19:02

Citaat:

lullow schreef: (Bericht 26052490)

helaas.. dat doeit ie ook niet.. ik ben al niet zo'n str me vb...

Dan doe je toch iets raars.

Code:

Private Sub Workbook_Open()

If IsEmpty(Range("A1")) Then

Sheets("sheet1").Range("A1").Value = Application.UserName

End If



If IsEmpty(Range("A2")) Then

Sheets("sheet1").Range("A2").Value = DATE

End If

End Sub

Dit geeft bij mij netjes de gebruiker en de datum.

lullow

27-09-2007 09:18

Oké dit werkt nu,
zag dat de subjes niet goed stonden..
Maar.. nu een andere vraag die ik niet kan vinden.
Ik heb 2 cellen.. 1 voornaam 1 achternaam
Dit wil ik samenvoegen tot 1 (nieuwe) Cel
Maar van de achternaam (B4) mogen alleen de eerste 5 letters en van de voornaam(B5) de eerste 3 letters worden overgenomen. is hier ook een script voor?

lullow

27-09-2007 12:23

Oké toch na een hoop zoeken heb ik het gevonden

Code:

=LEFT(B5;5)&LEFT(B4;3)

Alle tijden zijn GMT +1. Het is nu 00:04.