vanuit cel in sheet i.pv. datapad

[FrodoB]

Zie onderstaande code in userform;

Private Sub ShowData_Click()
TextBox280.Text = Format(FileDateTime("H:\PP\daelzicht\data\FemkeHalsema\algemene.txt"))
TextBox281.Text = Format(FileDateTime("H:\PP\daelzicht\data\FemkeHalsema\medisch.txt"))

Kan ik in plaats hiervan ook verwijzen naar (cel F21 in sheet data) waar H:\PP\daelzicht\data\FemkeHalsema\algemene.txt staat?

Alvast bedankt Frodo

 

[Wigi]

TextBox280.Text = Format(FileDateTime([data!F21]))

Waarom gebruik je de Format functie?

 

[FrodoB]

TextBox280.Text = Format(FileDateTime([data!F21]))

Waarom gebruik je de Format functie?

Zo werkt de functie dus niet
Dat was nl.ook mijn idee.

Waarom ik de Format functie gebruik? Omdat ik er namelijk niet achter be hoe ik het anders zou kunnen doen.

Groet, Frodo

 

[Wigi]

Kopieer wat er staat in cel H21 op blad data, en plak dat in de verkenner. Open je daarmee niet een bestand (of een verkeerd bestand) dan ligt daar het probleem.

Selecteer met de muis ook eens het woord Format, en druk op F1. Dan krijg je te zien hoe je het wel zinvol kan gebruiken.

Wigi

 

[FrodoB]

opgelost

Private Sub TijdKnop()
If ClientKnop1.Visible = True Then
Dim Cap1 As Variant
Frame1d.Visible = True
Cap1 = Replace(ClientKnop1.Caption, " ", "")
TextBox1a.Text = Format(FileDateTime(DataPad & Cap1 & "\algemene.txt"))
TextBox1m.Text = Format(FileDateTime(DataPad & Cap1 & "\medisch.txt"))
Else: Frame1d.Visible = False

End If

Met dank aan Jacques