wie kan me met deze formule helpen

[stroke19]

ik had deze formule gebruikt alleen dan maakt het niet uit waar ik druk overal verschijnt er een tijd
maar ik wil dus op een specifieke plek aanduiden

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Value = Format(Now(), "hh:mm:ss")
End Sub

dus gebruikte ik in de plaats van de bovenste 2de zin deze formule

Target.Value = Range("A1").Value

alleen dan verschijnt er geen tijd meer als ik ergs druk kan iemand mij helpen

 

[wampier]

je moet niet target.value aanpassen, maar de cel waar je de update wil

 

[stroke19]

je moet niet target.value aanpassen, maar de cel waar je de update wil

kan je me dat miss uitleggen

 

[wampier]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1").value = Format(Now(), "hh:mm:ss")
End Sub

 

[ExcelAmateur]

stroke19 ,

Volgens mij moet je ook geen Now() gebruiken, want iedere keer dat je de file opent veranderd de tijd.
Gebruik Time

 

[stroke19]

stroke19 ,

Volgens mij moet je ook geen Now() gebruiken, want iedere keer dat je de file opent veranderd de tijd.
Gebruik Time

ok dat ga ik dan even wijzige en proberen ik laat het wel even weten of het werkt tx

 

[stroke19]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1").value = Format(Now(), "hh:mm:ss")
End Sub

even proberen of het werkt tx

 

[stroke19]

nu werkt hij goed op de plek dat ik het wil en heb now voor time gewijzig maar nog steeds blijft hij de tij wijzige maakt niet uit waar ik druk

 

[ExcelAmateur]

Ik weet niet of het werkt maar als je deze regel er boven zet?

If Taget <> range("A1") then Exit Sub

 

[stroke19]

Ik weet niet of het werkt maar als je deze regel er boven zet?

If Taget <> range("A1") then Exit Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Taget <> range("A1") then Exit Sub
Range("A1").value = Format(Now(), "hh:mm:ss")
End Sub

zo bedoel je dan toch heb het zo geprobeerd maar hij blijft wijzige en als ik de zin er helemaal boven zet krijg je een fout melding

 

[stroke19]

ook hij pakt hem nu wel nu is het enige probleem dat de tijd er niet uitgehaald kan worden

 

[ExcelAmateur]

Test deze code eens.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address > "$A$1" Then Exit Sub
  Range("A1").Value = Format(Time(), "hh:mm:ss")
End Sub

 

[stroke19]

Test deze code eens.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address > "$A$1" Then Exit Sub
  Range("A1").Value = Format(Time(), "hh:mm:ss")
End Sub

zo perfect deze kan ik deze dan ook op een manier op laat staan A1 to A9 laten werken

 

[stroke19]

denk dat ik het gelijk had moeten vragen nu laat ik je allemaal extra werk doen

de formule werkt perfect alleen wil ik dan voor meerder cellen gebruiken alleen als ik dat doe
dan selecteerd hij gelijk alle cellen die in de formulen vermeld staan en ik wil het gewoon selectief dus pas als ik hem aanklik

 

[snb]

Heb je de zoekfunktie van dit forum al eens gebruikt ?

 

[stroke19]

Heb je de zoekfunktie van dit forum al eens gebruikt ?

waarom die vraag
ExcelAmateur is perfect om deze vraag aan te stellen hij is bijna compleet

 

[ExcelAmateur]

Probeer deze code eens.
Het was een goede raad van snb.
Ik heb de zoekmachine hiervoor ook gebruikt.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not (Intersect(Target, Range("A1:A9")) Is Nothing) Then
    Target.Value = Format(Time(), "hh:mm:ss")
  End If
End Sub

 

[stroke19]

Probeer deze code eens.
Het was een goede raad van snb.
Ik heb de zoekmachine hiervoor ook gebruikt.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not (Intersect(Target, Range("A1:A9")) Is Nothing) Then
    Target.Value = Format(Time(), "hh:mm:ss")
  End If
End Sub

ik ga hem proberen en hoe bedoel je zoekmachine deze formule gevonden dat wist ik niet

 

[stroke19]

zo top man en als ik er dan en cel bij wil dus dan geen cel A1 Maar cel I1 moet ik dan gewoon onder deze formule de zelfde zetten maar dan met de I1

 

[ExcelAmateur]

Rechts boven bij de vragen staat "Door zoek di Forum"
Ik heb gezocht op tijd alleen in een berijk plaatsen.
Daar heb ik dan een regel uitgehaald en aangepast.

Door het te proberen zie je het resultaat.
Zie ook je andere vraag, je was ongeduldig.

Suc6