cel selecteren en dan verder typen aan eind van de tekst

[sylvester-ponte]

weet iemand of het mogelijk is om met een macro een cel te selecteren,
zodanig dat je direct achter de aanwezige tekst in die cel kunt door typen zonder dat de tekst eerst verdwijnt?

ik heb zitten zoeken oa in SendKeys maar daar heb ik het niet gevonden.

 

[JEC.]

Je zat goed

Zet deze dan wel achter een knop. Als je deze runt vanuit de VBA Editor gaat het niet goed.

Sub jec()
 Range("A1").Select
 Application.SendKeys "{F2}"
End Sub

 

[snb]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Address = "$A$1" Then Application.SendKeys "{F2}"
End Sub

 

[sylvester-ponte]

bedankt :thumb: ik ga sluiten

 

[HSV]

De bijeffecten krijg je op de koop toe met 'senkeys' F2.

 

[sylvester-ponte]

Harry, welke bedoel je ?

 

[HSV]

Het uitschakelen van NumLock enz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Address = "$A$1" Then
     Application.SendKeys "{F2}"
     doevents
     Application.SendKeys "{F2}"
 end if
End Sub

 

[JEC.]

Ik merkte het inderdaad ook al, apart

Hiermee voorkom je het ook

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then CreateObject("WScript.Shell").SendKeys "{F2}", True
End Sub

 

[sylvester-ponte]

vervolg vraag: nu wil ik graag dat als een cel een grijze kleur heeft dat als ik enter in druk dat "alt enter" wordt ingevoerd.
met F2 daarna ga je naar het eind van de regel,
maar als ik in het midden van de regel ga staan dan wil ik dat als ik enter invoer dat het zelfde gebeurt als dat ik Alt Enter in een niet grijze cel had gebruikt.
hier een beginnetje (in A1 staat de ijkkleur )

er staat ook een macro in ThisWorkbook

 

[JEC.]

Volgens mij kan dit niet niet als je de cel aan het bewerken bent.
Je kan wel vooraf aangeven om te alt enteren maar niet midden in de cel

 

[sylvester-ponte]

JVeer, is het misschien mogelijk om met VBA de curser ergens midden in een tekst in een cel te plaatsen?

 

[JEC.]

Zo zet je de cursor precies in het midden

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Target.Address(0, 0) = "A1" Then
   With CreateObject("wscript.shell")
     .SendKeys "{F2}", True
      For i = 1 To Len(Target) / 2
        .SendKeys "{LEFT}", True
      Next
   End With
 End If
End Sub

 

[sylvester-ponte]

misslchien weet je ook zo iets om naar de plek te gaan waar ik stond toen ik enter indrukte?

 

[JEC.]

Wat als er meerdere enters in de cel staan? Naar welke moet hij dan gaan
Deze gaat naar de plek van de eerste enter

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Target.Address(0, 0) = "A1" Then
   With CreateObject("wscript.shell")
     .SendKeys "{F2}", True
      For i = 1 To Len(Target) - InStr(Target, vbLf)
        .SendKeys "{LEFT}", True
      Next
   End With
 End If
End Sub