Tekstvak

[TJ86]

Goedemiddag,

ik heb in Excel een tekstvak.

Graag zou ik, zoals te zien in bijgevoegd voorbeeld, 2 standaard regels willen toevoegen zodra men op het tekstvak klikt. Zoals een soort opmerkingen vak.
Diegene die de opmerking toevoegt (gebruikersnaam in cel F26) en de huidige datum en tijd dienen dan als eerste regel te worden toegevoegd (bovenaan het tekstvak) en als 2e een lege regel zodat men direct kan beginnen met typen.

Ik hoop dat deze uitleg enigszins duidelijkheid verschaft?

Alvast bedankt voor uw replies.

 

[AD1957]

Zo?

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox1.Text = Range("F26").Value & "  " & "dd." & " " & Format(Now, "dd:mm:yyyy-hh:mm") & vbNewLine
End Sub

 

[mvdvlist]

Of zo...Even dubbelklikken...

 

[sylvester-ponte]

voor textbox2 met de gebruikersnaam in F26:

Private Sub TextBox2_GotFocus()
    temp = [F26] & " - ( " & Now & " ):" & Chr(10) & Chr(10)
    TextBox2 = temp & TextBox2
    TextBox2.SelLength = 0
    TextBox2.SelStart = Len(temp) - 1  
End Sub

 

[mvdvlist]

Jouw oplossing is veel mooier, Silvester...


Ik heb hem nog een KLEIN beetje aangepast, je hoeft maar met EEN Tekstvak te werken.

Private Sub TextBox1_GotFocus()
    temp = [F26] & " - ( " & Now & " ):" & Chr(10) & Chr(10)
    TextBox1 = temp & TextBox1
    TextBox1.SelStart = Len(temp) - 1
    TextBox1.SelLength = 0
End Sub

 

[HSV]

Standaardwaarde van 'SelLength' is nul.

 

[TJ86]

Super super super bedankt!!

 

[mvdvlist]

Weer wat geleerd, HSV...