Kommas bei Zahlen ändern, im Satz aber normal lassen

Vielen Dank, das hat mein problem gelöst !

Hallo Simon,

probiere mal an einer Kopie deiner Mappe folgenden Code:

Sub Komma()

Dim rngC As Range

Dim re, ptrn, Match, Matches

Dim strTmp As String

Dim varIn As Variant, varOut As Variant

Dim i As Integer, n As Integer
varIn = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9")

varOut = Array(" null ", " eins ", " zwei ", " drei ", " vier ", " f?nf ", " sechs ", " sieben ", " acht ", " neun ")Set re = CreateObject("vbscript.regexp")

ptrn = "([.,][0-9]{1,})"

re.Pattern = ptrn

re.IgnoreCase = False

re.Global = True

For Each rngC In ActiveSheet.UsedRange

   Set Matches = re.Execute(rngC)

   For Each Match In Matches

      strTmp = Match

         For n = LBound(varIn) To UBound(varIn)

            strTmp = Replace(strTmp, varIn(n), varOut(n))

         Next

         strTmp = Replace(strTmp, ",", " komma ")

         rngC = Replace(rngC, Match, strTmp)

   Next

Next

End Sub

Claus

Hallo Simon,

ich bin davon ausgegangen, dass deine Zahlen innerhalb von Strings stehen. Sollten deine Zahlen alleine in Zellen stehen, könnte man das Ganze noch etwas vereinfachen.

Claus

udn was mache ich mit den Kommas, das sind 5 ultraange Zahlen die mit Kommata voneinader getrennt sind......die sollen halt jede fuer sich in eine Zelle, aber Kommas werden von der Teilfunktion ja auch als Zeichen gelesen....

Hallo Björn,

meines Erachtens nach kann man keine Kommas im Dateinamen eingeben.

Lass uns bitte einen Screenshot von einem dieser Beispiele zukommen lassen, sodass ich genau sehen kann was du meinst.

MfG