vooraf ingevulde waarde

[michel1009]

Hallo

Ik wil via excel een lijst maken waarin mijn techneuten bij een overdracht van dienst o.a. materiaal nrs in moeten vullen
Al deze materiaal nrs beginnen standaard met A31.
Is het mogelijk om in de in te vullen cel standaard al A31 in te vullen? zodat de techneut alleen nog maar de rest van het materiaal nr hoeft in te vullen

bvd

 

[Cobbe]

Pas de celeigenshap aan:

aangepast - \A31#

 

[JanBG]

Hoi,

Heb je hier wat aan?

=TEKST.SAMENV(A1;"-";B1)

Bekijk bijlage Map1.xlsx

 

[SjonR]

of met VBA

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And InStr(Target, "A31") = 0 Then Target.Value = "A31" & Target.Value
End Sub

Er vanuitgaande dat je nummers in Kolom A staan.

 

[edmoor]

Deze zet als de cel leeg is de tekst A31 er in, zet de cel in edit mode en zet de cursor direct achter die A31.
Je kan dan direct gaan typen:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
        If Target.Value = "" Then
            Target.Value = "A31"
            Application.SendKeys ("{F2}+{END}")
        End If
    End If
End Sub

Werkt voor cijfers en letters.
Als je alleen cijfers gebruikt kan je die van Cobbe gebruiken.
Het bereik kan je uiteraard aanpassen.

 

[HSV]

Let op:
Application.sendkeys schakelt je numlock uit zodat je geen getallen kan typen, en veranderd de 2,4,6, en 8 in pijltjestoetsen.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count = 1 And Not Intersect(Target, Range("A1:A10")) Is Nothing Then
        If Target.Value = "" Then
            Target.Value = "A31"
            Application.SendKeys "{F2}+{NUMLOCK}"
            Application.SendKeys "{NUMLOCK}"
        End If
    End If
End Sub

 

[edmoor]

Een True er achter is voldoende:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count = 1 And Not Intersect(Target, Range("A1:A10")) Is Nothing Then
       If Target.Value = "" Then
            Target.Value = "A31"
            Application.SendKeys ("{F2}+{END}"), True
        End If
    End If
End Sub

Code controleert nu tevens op aantal van Target.

 

[HSV]

Had ik geprobeerd met 'true', werkt hier niet. Excel 2007-W10.

 

[edmoor]

Het werkt hier met Office 2016 prima, maar alleen als NumLock standaard aan staat.
Als hij uit staat wordt er getoggled.
Hoe moeilijk kan het zijn voor MS!