Eingabe wahlweise von Text und Zahlen in einer Zelle

24/07/2009 - 20:41 von Much | Report spam
Hallo an Alle,
Ich benötige ein benutzerdefiniertes Eingabeformat für Excel, und zwar
möchte ich
wahlweise folgendes eingeben.

W502323 oder M502323 und in der Zelle soll es formatiert so aussehen.
W50 - 2323 oder M50 - 2323
die letzten vier Stellen sollen zwingend sein, d.h. bei Eingabe von
W50101 oder M50101 sollen die fehlenden Stellen durch eine 0 an der ersten
Stelle der letzten vier aufgefüllt werden.
W50 - 0101 oder M50 - 0101
Ich hab keine Möglichkeit gefunden, vielleicht kennt ihr eine.
Danke für eure Mühe.
 

Lesen sie die antworten

#1 Alexander Wolff
25/07/2009 - 08:01 | Warnen spam
wahlweise folgendes eingeben.

W502323 oder M502323 und in der Zelle soll es formatiert so aussehen.
W50 - 2323 oder M50 - 2323
die letzten vier Stellen sollen zwingend sein, d.h. bei Eingabe von
W50101 oder M50101 sollen die fehlenden Stellen durch eine 0 an der ersten
Stelle der letzten vier aufgefüllt werden.
W50 - 0101 oder M50 - 0101



Ich gestatte mir, Deine Anforderung insoweit abzuwandeln, als dass das
gewünschte gleich zum Inhalt wird, statt nur zum Format. Denn Excel kann a)
alphanum. nicht (so gut) und b) nicht innerhalb einer 5stelligen Eingabe
anders als die führende Ziffer 6stellig auffüllen - via Format.

Klicke rechts auf Deinen Blatt-Karteireiter und wàhle "Code anzeigen". Dort
füge ein:

Private Sub Worksheet_Change(ByVal Target As Range)
'Interpretation von eingegebenem hh:mm als mm:ss (über /60)
Application.EnableEvents = False
'sonst ruft es sich immer wieder auf, wegen Target-Änderung im Code
If Target.Column = 8 Then
'Bitte hier Spalte H=8 auf gewünschte Spalte àndern!
a = Left(Target, 3)
b = Mid(Target, 4, 4)
'làngeres als 4 Ziffern fàllt hinten runter!
L = Len(b)
k = String(4 - L, "0")
Target = a & " - " & k & b
End If
Application.EnableEvents = True
End Sub

Nun funktioniert das von Dir Gewünschte in Spalte H.
Moin+Gruss Alexander - MVP for MS Excel - www.xxcl.de - mso2000sp3 --7-2

Ähnliche fragen