Formel benötigt: Zeichenpaare drehen

[tuxberlin]

Hallo Ihr Lieben.

Kaum registriert und schon eine Frage.
Tut mri leid ist nicht die feine Art aber ich weiss mir gerade nicht zu helfen.

Ich habe eine Excel Tabelle vor mir mit 750 Einträgen.
Personaldaten mit einer Spalte ID Nummmer der Zugangskarte.

Das neue Kartenlesegerät verwendet jetzt aber leider eine "Pseudoverschlüsselung"
indem es die Kartendaten in HEX umwandelt und dann "gedreht" abspeichert.

Leider nicht einfach nur gespiegelt sondern Pärchenweise gedreht.
Damit komme ich mit meinem Amatuerwissen nicht weiter.
Vor dem Import muss ich also nun alle Zeichen der Spalte RFID
wie folgt drehen:

AABBCCDD => DDCCBBAA

Beispiel:
12345678 => 78563412

Hier das ganze nochmal optisch aufbereitet:

Dateien bitte im Forum hochladen: https://www.clever-excel-forum.de/Thread...ng-stellen

Wenn da jemand einen Denkanstoß oder noch besser ein Snippet hat für mich
wäre ich seeeeeeeeeeeeeeehr Dankbar :)

Liebe Grüße

Tobi

[steve1da]

Hola,

bitte keine Bilder. Lade eine Exceldatei hoch.

Gruß,
steve1da

[tuxberlin]

Hola,

bitte keine Bilder. Lade eine Exceldatei hoch.

Gruß,
steve1da

Ja ne is klar. Mit den Zugangsdaten und Personaldaten.
Eher unwahrscheinlich zumal da NIX drin ist was helfen würde.

[LCohen]

=TEXTVERKETTEN(;;TEIL(A1;(99-ZEILE($1:$98))*2-1;2))

[Fennek]

Hallo,

aus dem Gedächtnis:

Ein Virus nutzte so etwas:

Code:

RegEx.Pattern = ".{2}"

Dies sollte von rechts nach links immer 2 Zeichen lesen, das Hex-to-Dez-to-Chr muss man noch hinzufügen.

Vielleicht fahre ich nachher den PC hoch, bis dahin wäre die Frage, ob Du genügend VBA-Kenntnisse hast.

mfg

[WillWissen]

Moin tux,

Ja ne is klar. Mit den Zugangsdaten und Personaldaten.

kein Mensch will deine Originaldatei sehen; es genügt, wenn du den Bildinhalt als Beispieldatei hochlädtst. Dann können Helfer ihre Vorschläge auch testen.

[RPP63]

Ich hab auch etwas:

	A	B
6	AABBCCDD	DDCCBBAA
7	12345678	78563412

Zelle	Formel
B6	=TEXTVERKETTEN(;1;TEIL(A6;{7.5.3.1};2))
B7	=TEXTVERKETTEN(;1;TEIL(A7;{7.5.3.1};2))

Gruß Ralf

[Fennek]

Ungeprüft:

Code:

Tx = cells(1,1)
for i = 1 to len(Tx) step 2
    ret = ret & chr("&H" & mid(Tx, i, 2))
next i

Out = StrReverse(Tx)

[tuxberlin]

Danke hat super geklappt
den Denkanstop mit =TEIL habe ich gebraucht.
nicht schön aber selten und geht:

Code:

=TEXTKETTE(TEIL(DEZINHEX(A3);7;2);TEIL(DEZINHEX(A3);5;2);TEIL(DEZINHEX(A3);3;2);TEIL(DEZINHEX(A3);1;2))

[RPP63]

Stimmt, ist nicht schön!
Warum nutzt Du nicht die Matrixkonstante, die ich Dir oben vorgestellt habe?

	A	B
7	12345678	4E3822C

Zelle	Formel
B7	=TEXTKETTE(DEZINHEX(TEIL(A7;{7.5.3.1};2)))

---

aber brauchst Du nicht eher HEXINDEZ()?

	A	B
8	4E59DA69	1052188978

Zelle	Formel
B8	=TEXTKETTE(HEXINDEZ(TEIL(A8;{7.5.3.1};2)))