Clever-Excel-Forum

Hallo zusammen,

Ich gebe in eine Zelle auf meinem Excelblatt eine Materialnummer (bsp: „MAT000987“) ein, soweit so gut. Jetzt wäre es schon, wenn ich auch „*987“ eingeben könnte und das Programm bei erkennen eines „*“ ein MAT und so viele Nullen, dass es immer MAT+6Ziffern ergibt.

Umgesetzt werden soll dies in VBA, könnte mir da jemand behilflich sein?

Ich bedanke mich schonmal für Eure Hilfe.

Liebe Grüße
Max

Hi

Im groben einfach so.

Code:
Private Sub Worksheet_Change(ByVal Target As Range)

If Left(Target.Cells(1), 1) = "*" Then Target.Cells(1) = Format(Mid(Target.Cells(1), 2), "\MAT000000")

End Sub

Gruß Elex

Moin auch von mir!
Ich würde den entsprechenden Zellen einfach das benutzerdefinierte Zahlenformat
"MAT"000000
geben. Es reicht dann die Eingabe der Zahl ohne Asterisk *
Bedenke aber, dass weiterhin nur die Zahl als Wert in der Zelle steht:

	A
1	MAT000987

Zelle	Format	Wert
A1	"MAT"000000	987

Gruß Ralf

Danke, es hat super funktioniert:)

MaMü11

Elex

RPP63

MaMü11