Habe folgenden Code den ich abändern möchte und Eure Hilfe benötige!
Dim AktiveZeile1 As String
AktiveZeile1 = ActiveCell.Row
'Für Spalte "A"! A=1, B=2, C=3, ...
If Target.Column = 1 And Target.Count = 1 And Range("A" & AktiveZeile1) "" Then
Application.EnableEvents = False
Target.Offset(0, 0) = UCase(Left(Target, 1)) & " " & Format(Mid(Target, 2), "000")
Application.EnableEvents = True
Range("B" & AktiveZeile1).Select
End If
Ausgabeformat z. B. = B 2310 (1 Buchstabe Großschreibung /Leerzeichen/ 3 Zahlen)
Nun hätte ich gerne den Buchstaben vordefiniert, ich möchte nur die Zahl eintragen und der Buchstabe wird automatisch eingetragen
Ist das irgendwie möglich?
Bitte um Hilfe
Gruß
Leitz G.