füge den folgenden Code in ein allgemeines Modul im VB-Editor ein:
Bei der Ausgabe in der Aktiven Zelle wird 104-105-108-102-101 angezeigt, die Darstellung 104105108102101 (Exponentialdarstellung) kann durch Kommentieren des Textes zwischen If und End If und Auskommentieren der Zeile 'Rückgabe = Rückgabe & StrNeu 'Rückgabe als Zahlenfolge erfolgen...
HTH
jinx
nächste frage *g*
zum de-kodieren müsste man ja den 104-105-108 etc. string irgendwie aufgrund der "-" tokenizen, wie löst man das am besten?
1000 dank, stevi
so ganz ohne VBA wird's nicht gehen, aber auch kein Problem.
Ich hoffe , dass sich die Vorgehensweise bei Office XP nicht geändert hat.
Normalerweise musst du mit Alt + F11 in den VBA-Modus und in ein normales Modul den unten aufgeführten Code reinkopieren. Falls du nicht weißt, wie das läuft , kannst du es auch so machen: Klicke in der Menüleiste Extras/Makro/Makros... .Unter Makroname gibst du jetzt den Namen CODE_Wort ein und bestätigst den Namen mit der Return-Taste. Jetzt befindest du dich im VBA-Modus und überschreibst den Code
Sub CODE_Wort()
End Sub
mit dem nun folgenden Code:
Jetzt das VBA-Fenster schließen. Ab jetzt steht dir die benutzerdefinierte Funktion CODE_Wort zur Verfügung.
Gebe nun in einer Zelle z.B. =CODE_Wort("Juhu") ein und du bekommst das Wort in Zahlen.
Gruß Klaus
liebe grüße und danke, stevi
da ich nicht weiß, wie Du die Zahlen benötigst, hier einige weitere Vorschläge:
Schreiben der Werte in nebeneinanderliegende Zellen:
Len(Wert)
StrHilf = Mid(Wert, i, 1)
ActiveCell.Offset(0, i).Value = Asc(StrHilf)
Einfügen eines Zeilenumbruches:
Rückgabe = Rückgabe & Chr(10) & StrNeu
Auslesen geht analog zum Aufsplitten:
If i = 1 Then
a = 1
a = i * 3 + 1
End If
StrHilf = Mid(Wert, a, 3)
cu
jinx
Ist genauso zu handhaben wie die Funktion zum kodieren.
Gruß Klaus