Office: Zahl automatisch umwandeln und abschneiden

Guten Tag

Ist es möglich per VAB bei der Eingabe einer Zahl (Bsp. 12345.6789, kopiert über die Zwischenablage) automatisch den Punkt in ein Komma umzuwandeln? Excel behandelt leider den Punkt als Tausendertrennzeichen, ich muss das aber zum weiterverarbeiten mit Nachkommastellen haben. Ajo, und das Umgewandelte müsste noch aufgerundet werden. Ich hab zwar schon diverse Sachen hier ausprobiert, aber irgendwie funzt das alles nicht. *mrcool

Danke schon mal für die Mühe. Gruß,
Akrist

:)

 

Hi Akrist
Wenn die Eingabe als Text formatiert ist(hier zB. in A1), dann versuch mal:

Gruss hary

 

Hiho

Die Zelle ist leider als Standard formatiert. Ich brauch die zur Berechnung. Wenn ich das mit dem Textformat probiere, tut sich da leider gar nix. Muss ich Excel noch was sagen? Ich hab das unter "Tab/Code anzeigen" gepackt.

Gruß,
Akrist

 

Hi
das ist ein Makro.
teste mal die Mappe.Ob es das ist was Du meinst. Bezieht sich im Moment nur auf A1.
Gruss hary
Makro noch den button zuweisen!

 

Hi
nimm diese. In der anderen war das Makro nicht zugewiesen.
Hary

 

Hi Hary

Jo, generell ist es das was ich meine. Wäre nur schön wenn es automatisch gehen würde. Und wie gesagt, ich brauch das Feld zur Berechnung. Zum Verständniss: Ich kopier mir den Wert aus Acad und da ist dann leider ein Punkt drin für die Nachkommastellen. Wenn ich das dann einfüge interpretiert das Excel als Tausendertrennzeichen. Ich weiß ja nicht ob das möglich ist das sich bestimmte Felder beim hineingehen in ein Textfeld umwandel, dann der Punkt in ein Komma geändert wird, wieder in ein Standard-Feld zurück und dann noch runden. DAS wäre der Knaller! *biggrin.gif*

Gruß,
Akrist

 

Hi
Teste mal. Der Code gehoert in den Code der Tabelle(Tab/Code anzeigen).
Du kopierst--dann klickst Du die Zelle an, in die das Kopierte reinsoll. So muesste es gehen.

Gruss hary

 

Hi Hary

Ich weiß nicht, aber irgendwie bin ich zu blöd. Es tut sich nix. Ich hab bestimmt irgendwas vergessen damit der Code überhaupt ausgeführt wird. Wenn ich einen Stop-Punkt setze tut sich nichts. Ich hab übrigens Office 2007. Trotzdem Danke schon mal für deine Hilfe!!!

Gruß,
Akrist

 

Hallo zusammen,

ich habe mal einen anderen Weg versucht: Auslesen aus der Zwischenablage. Allerdings weiß ich nicht, im welchem Format ACad dort Werte ablegt. Ich hoffe mal, es ist Text.

Dann Wert in ACad kopieren und in Excel in der gewünschten Zielzelle das Makro starten:

Code:

Zur Aufrundung habe ich keine genaueren Angaben gefunden, vielleicht überlesen. Einfach im Code an der gekennzeichneten Stelle anpassen.

Wenn zur Automatisierung zuverlässige Einschränkungen gemacht werden können (z. B. Makroaufruf nur bei Änderung eines Zahlenwertes in Spalte A), kann das Makro auch über das Change-Event gestartet werden. Da ich dazu aber nichts genaues weiß, lass ich es erstmal so.

Beachte auch den Hinweis zum notwendigen Verweis auf die MS-Forms.

Grüße
EarlFred

 

Hi EarlFred

Microsoft Forms 2.0 Object Library gibt es natürlich bei mir nicht. Wenn ich das Makro starte bekomme ich eine Fehlermeldung "Benutzerdefinierter Typ nicht fefiniert". Der bleibt bei "doAblage As DataObject" stehen. Ich glaub das ist heute nicht mein Tag. Ich hab Office XP.

Gruß,
Akrist

 

Hallo,

füg mal eine leere Userform ein, das aktiviert den Verweis.

Schau dann mal im VBE unter Extras|Verweise... nach - da sollte ein Haken an der richtigen Stelle gesetzt sein.

Grüße
EarlFred

 

hiho

das geht eigentlich ganz einfach ohne VBA
rechte Maustaste -> Inhalte einfügen -> Text

danach auf das Einfügesymbol klicken -> Importassistent (siehe Abb.assi1)
danach einfach weiter klicken bis Schritt 3 -> auf weitere klicken und Dezimaltrenner den Punkt wählen tsd den , -> und Zellenformat auf Standard lassen.
siehe Abb (assi2)

das wars und mit der Zahl kann ganz normal gerechnet werden
bzw. könnten damit auch 2000 Werte auf einmal umgewandelt werden.

 

Hahaaaa *biggrin.gif**grins *grins

@ EarlFred

Klasse, genau DAS hab ich gesucht. So sollte es sein. Das erleichtert mir bei knapp 2k Datensätzen die Arbeit!!!!!! Danke Dir!!! (Das Sahnehäubchen wäre natürlich noch eine Funktion oder so per VBA, die das im Hintergrund beim Einfügen erledigt. So geht es aber auch super!!!!)


@ chris-kaiser

Auch eine möglichkeit, da geht es aber von Hand schneller. Trotzdem Danke!

Gruß und Danke auch an den Rest,
Akrist

 

Hallo nochmal,

habe nochmal auf den Code geschaut, da war noch ein Knacks drin. Bitte ersetz den mal durch diesen:

Code:

Der Code prüft jetzt noch, ob eine auswertbare "Zahl" im Zwischenspeicher ist und auch, ob diese überhaupt lesbaren Text enthält. Die "alte" Fehlerroutine war Murx.

Zur Automatisierung: Wie gesagt, entweder legst Du Dir eine Tastenkombination auf das Makro, die Du anstelle "Strg+V" für das Einfügen nutzen kannst oder Du könntest Änderungen der Tabelle abfangen (Worksheet_Change-Ereignis) und das Makro daraufhin starten lassen.

Aber die Kriterien, wann das Makro anspringen soll (z. B. bei Änderungen in der Spalte A) müsstest Du vorgeben, wenn Du hier noch Hilfe benötigst.

Grüße
EarlFred