Code ergänzen um ersetzfunktion

[Nixontira]

Moin Moin !

ich bräuchte nochmal eure Hilfe...

Betrifft die Tabelle "Bäume" in der Beispieldatei.
Bei dem vba Code werden ja die Zahlen zwischen "%%C" und "-" auf einzelne Spalten daneben aufgeteilt. mein Problem ist allerdings, dass die Zahlen immer einen "." zur dezimaltrennung Nutzen und kein ",". Aufgrund dessen habe ich Probleme mit weiteren Formeln die auf diese Ausgabedaten zugreifen. Einmal zur Berechnung bestimmter Bereiche von Durchmessern und dann für die Anzahl von bestimmten Umfang-Bereichen. 

ich hab schon eine externe replace VBA funktion erstellt, aber diese zerschiesst die Formatierung derart, dass die Zählenwenn funktionen gar nichts mehr macht. Wäre aber auch schön, wenn das mit einem VBA-Code direkt erledigt wird.

LG

[Fennek]

Hallo,

nach einem Mini-Test:

Code:

Sub F_en()
Tx = mid(cells(25,1),5)
debug.print evluate(Tx)
end sub

liefert -10,7 (wirklich Komma,nicht Punkt)

mfg

[Nixontira]

Da passiert leider gar nichts  :22:

[Elex]

Hi

Versuch es damit.

das         .Value = Replace(.Value, ".", ",")
vor           Call .TextToColumns(rngCell, xlDelimited, Other:=True, OtherChar:="+")

[Nixontira]

Top! hat geklappt! 

Vielen Dank!

[Wastl]

Moin

Da passiert leider gar nichts  [img]
Dateiupload bitte im Forum! So geht es: Klick mich!
]

Das kann nicht sein.
Die Ausgabe erfolgt im Direktbereich deines VBA-Fensters
Aufrufen mit Hotkey Strg+G

Mein Code schreibt da, - Danke fennek -  die Einzelwerte der zelle A25 in den Direktbereich 

Code:

Sub teilen()
Tx = Split(Replace(Replace(Mid(Cells(25, 1), 5), "-12.0", ""), "+", " "))
For i = 0 To UBound(Tx)
   Ty = Tx(i)
   Debug.Print Evaluate(Ty)
Next
End Sub

[Rabe]

Hi Wastl,

jetzt mal als Verständnis-Frage:
Was soll der (Anfänger-)TE mit der Ausgabe im Direktbereich anfangen?

[Wastl]

Moin Rabe,

ich versteh nun deine Frage nicht.
in meinem Beitrag habe ich doch erklärt, wie man zum Direktbereich kommt.
Und der Direktbereich gehört zu den elementaren Anzeigen im VBA-Editor

Fennek kann das und benutzt das, du scheinbar nicht? Dann probier es aus und alle seiner Möglichkeiten
guggschdu
https://www.youtube.com/watch?v=jh8dzRU9QmQ
oder / und
http://www.online-excel.de/excel/singsel_vba.php?f=105

[Rabe]

Hi,

ich kenne den Direktbereich schon.

Der TE erkennt aus dem Begriff Direktbereich nicht, was er damit erreichen kann. Er kann es nicht in sein Makro umsetzen, um mit den Daten weiterzurechnen. Sonst hätte er nicht geschrieben: "Da passiert nichts!"
Er ist also nicht so erfahren.
Der Direktbereich ist mMn schon eine fortgeschrittene Funktion.

Er will die Einzelwerte nicht im Direktbereich stehen haben, sondern in der Tabelle.
Darum sollte mMn in dem Makro gleich der Eintrag in Zellen erfolgen und nicht in den Direktbereich. Das bringt einem Anfänger mehr.

[Wastl]

Einspruch

du gibst dem TE einen Fisch

Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben.