Sucheingabe automatisch vervollständigen

[MaMü11]

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

[Elex]

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

[RPP63]

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

[MaMü11]

Danke, es hat super funktioniert:)