Text in einer Zahl darstellen, umwandeln

Hallo liebe Forum-Leser,
liebe Cracks, liebe Hobbybastler, liebe....,habe ich jemanden vergessen,
ich grüße alle die sich für Excel interessieren...und vor allem, Hans W. Herber.
Das PROBLEM:
Der Wert in B2, ein Textfeld mit dem Inhalt "Name", soll in einer Zahl
umgewandelt werden. Der Cloue, diese Zahl soll auch in einer anderen Excelmappe
wieder in Text verwandelt werden! ...natürlich wieder zurück in "Name".
Geht das überhaupt ??????
Ich habe lange gesucht, leider nixx gefunden, die Sache mit Funktion ANZAHl
trifft nicht zu - Hat Jemand von Euch eine Lösung ? Ich habe leider so wenig
Ahnung von Excel, nicht mal ansatzweise eine Idee..... :((
Vielen Dank für Euer Interesse..
LG
Stefan

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Function Convert_to_Number(ByVal myString As String) Dim i As Long Dim x() As Byte x = StrConv(myString, vbFromUnicode) For i = 0 To UBound(x) z = z + CStr(x(i) + 100) Next i Convert_to_Number = Val(z) End Function

Function Convert_to_String(ByVal myNumber As Double) Dim k, y, j, NumberAsString As String Dim i, l As Integer NumberAsString = CStr(myNumber) If Len(NumberAsString) Mod 3 <> 0 Then MsgBox "Error: String has not correct length to be converted" Exit Function End If For i = 1 To Len(NumberAsString) / 3 k = Mid(NumberAsString, (i - 1) * 3 + 1, 3) l = Val(k) - 100 y = String(1, l) j = j + y Next i Convert_to_String = j End Function

Hallo Stefan,
Tut mir leid dass das so schlecht geklappt hat, da hab ich wohl nicht genug getestet.
Versuchs bitte mit dieser Datei:
https://www.herber.de/bbs/user/23719.xls
Es gibt zwei Dinge die ich als Problem sehe:
a) Funktionen arbeiten immer in einem bestimmten Raum, fuer den sie geschrieben wurden. Dabei gibt es zwei Dinge die das beeinflussen: 1) ob die Programmierung in einem Modul oder einem Arbeitsblatt steckt und 2) ob die Funktion als "privat" oder "public" deklariert ist; solltest Du irgendwo ein VBA-Buch zur Hand haben wird da sicher was zum Thema Gueltigkeitsbereich erklaert. Auch die VBA-Hilfe sagt was dazu, aber die Ausdrucksweise dort wird Dir denke ich nicht viel weiterhelfen. Auf jeden Fall denke ich dass das bei Dir ein Problem gewesen sein koennte: ich hab meine Funktionen in einem Modul, Du hattest Deine vielleicht auf Arbeitsblatt-Ebene...
b) Meine Funktionen haben es nicht verkraftet dass ich wirklich eine ZAHL erstellen wollte. Jeder Buchstabe mehr macht die Zahl um drei Stellen laenger. Excel kann wohl 12 stellige Zahlen ausgeben ("Name"), 18 Stellen sind aber offenbar zuviel ("Stefan"). Deshalb wurde, als ich das jetzt probiert habe, meine Zahl falsch ausgegeben - und konnte deshalb auch nicht mehr richtig zurueckgerechnet werden. Ich hab es jetzt aufgegeben eine Zahl zu produzieren: was Du in der Datei siehst sieht aus wie eine Zahl, ist aber nur ein String. Also - probier nicht damit zu rechnen! Dafuer funktioniert die Rueckumwandlung ziemlich gut. Ich nehme an Du versuchst irgendwas wie eine Verschluesselung, das sollte damit funktionieren.
Ich hoffe es klappt jetzt!
Schoene Gruesse
Stefan

Beliebteste Forumthreads (12 Monate)

Text in einer Zahl darstellen, umwandeln

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

346 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Text in einer Zahl darstellen, umwandeln

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

346 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread