Eingabe wie bei Paysafecard

[Remibet]

Hallo zusammen,

Unser Geschäft akzeptiert paysafecard. Zur Kontrolle werden alle Paysafecard-Karten mit dem 16 stelligen code in einer Exceltabelle gesammelt und gespeichert.
Der Code besteht aus 4x4 Zeichen, gleich 16 Zeichen!
Nun möchte ich das nach Eingabe von 4 Zeichen in einer Zelle, das der Cursor automatisch in der danebenliegenden Zelle weiterschreibt. Es sind in Vergangenheit zu viele Fehler da gemacht worden.
Habe Erfolglos gegoogelt, geht das mit Excel Überhaupt?

Test Datei anbei.

Danke schon vorab  :17:

[Fennek]

Hallo,

A: darf/sollte man diese Kartennummern unverschlüsselt speichern?

B: Am einfachsten dürfte es sein, alle 16 Zeichen in eine Zelle zu schreiben und dann mit einen kleinen Makro und der Cells.Parse [xxxx-xxxx-xxxx-xxxx] auf 4 Zellen zu verteilen.

mfg

(aus dem Gedächtnis)

[RPP63]

Moin!
Sind es immer Ziffern, sind es immer genau 16?
Dienen die Zifferngruppen "nur" der Übersichtlichkeit?
Dann Datengültigkeit, Länge ist 16
Das Splitten dann mittels ziehbarer Formel:

	A	B	C	D	E
1	1234567812345678	1234	5678	1234	5678

Zelle	Formel
B1	=TEIL($A1;SPALTE(A1)*4-3;4)
C1	=TEIL($A1;SPALTE(B1)*4-3;4)
D1	=TEIL($A1;SPALTE(C1)*4-3;4)
E1	=TEIL($A1;SPALTE(D1)*4-3;4)

Zelle	Gültigkeitstyp	Operator	Wert1	Wert2
A1	Textlänge	gleich	16

Automatismus ist nicht so ohne weiteres möglich, da VBA im Bearbeitungsmodus kein auswertbares Ereignis triggert!

Gruß Ralf

[RPP63]

Noch ein wichtiger Hinweis:
Die Eingabezelle MUSS als Text formatiert sein, ansonsten greift die Anzeigegenauigkeit von Zahlen (15 Stellen)! 

[RPP63]

Per VBA in gleicher Zelle.
Voraussetzung wie oben (Textformat, Datengültigkeit)

Ins Modul des Tabellenblatts:

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
  If .Column = 1 And .CountLarge = 1 Then
    Application.EnableEvents = False
    .Value = Format(.Value, "@@@@ @@@@ @@@@ @@@@")
    Application.EnableEvents = True
  End If
End With
End Sub

Gruß Ralf

[Remibet]

Hallo Ralf und alle anderen,

werde gleich eure Vorschläge mal testen. Danke!

und Ja es sind immer Ziffern und immer 16 Stück...
und sie werden nur intern der Übersichtkeit gesammelt :19:

[Remibet]

Habe es getestet und eigendlich gefällt es mir ganz gut. Besser wäre es natürlich wenn der Sprung nach 4 Zeichen automatisch erfolgen würde,
aber wenn Excel das nicht zuläßt kann man nichts machen.
Trotzdem eine gute Notlösung. Vielen Dank :18:

[snb]

Dazu hat MS Userforms erfunden: