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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen