Hi Jens,

< hier meine Lösungsansatz der nicht funktioniert

> kein Wunder ;)

Gruß H27

'**********************************************************
Rem schreib bitte immer diese  Anweisung in die erste Zeile
Option Explicit
Rem dann mault VBA die div. Tippfehler sofort an
'**********************************************************

 Private Sub KdNr_Enter() 'Erstellung einer neuen Kundennummer
' neue KDNR soll bestehen aus:
' ersten 4 Buchstaben des Firmennamens dann ein /
 ' den ersten 4 Buchstaben des Ortes  dann en  -
'und der PLZ

'diese neue KDNR soll beim betreten des Feld KdNr eingefügt werde
 
Dim strkdnr As String
Dim strFirma As String
'********************************************************
Rem dim strFrimaneu und im Code strFirmaneu
Dim strFirmaneu As String
'********************************************************
Dim strOrt As String
Dim strOrtneu As String
Dim strPlz As String

strFirma = Me.Firma.Value
strFirmaneu = Left(strFirma, 4)
strOrt = Me.Ort.Value
strOrtneu = Left(strOrt, 4)
strPlz = Me.PLZ.Value

'********************************************************
Rem wie viele Schreibweisen von Firma gibt es ?
'strkdnr = strFimaneu & "/" & strOrtneu & "-" & strPlz
strkdnr = strFirmaneu & "/" & strOrtneu & "-" & strPlz
'********************************************************

'********************************************************
Rem dreh es um un schreib die Variable richtig
'strkndr = Me.KdNr  'net so sondern
Me.KdNr = strkdnr
'********************************************************



'**********************************************************************
Rem alternativ geht der ganze Code ohne dim und dam auch in einer Zeile

Me.KdNr = Left(Me.Firma, 4) & "/" & Left(Me.Ort, 4) & "-" & Me.PLZ

'**********************************************************************

End Sub