Kopieren: Makro funktioniert plötzlich nicht mehr
07.06.2018 17:42:51
Stephan
seit Jahr und Tag arbeite ich mit einem Makro, das mit aus einer markierten Excel-Zelle nur den reinen Text (Rohtext), also ohne Formatierung.
Nur excelintern ist das Makro nicht so wichtig, weil man ja ohne Format als Einfügemethode wählen kann (auch hierzu habe ich ein Makro), wohl aber, wenn man den Text in andere Anwendungen hineinkopieren will.
Kopierte man damit z. B. den Euro-Betrag einer Zelle, die als Währung formatiert war (z. B. 17,11 ), so kam als Ergebnis beim Einfügen die reine Zahl (ggf. mit Kommastellen) heraus (also im Beispiel: 17,11).
Das Makro sieht so aus:
-------------------- Schnipp! --------------------
Sub Rohtext_kopieren()
' Rohtext_kopieren Makro
Set Wert = New DataObject
Wert.SetText ActiveCell.Value
Wert.PutInClipboard
End Sub
-------------------- Schnapp! --------------------
Ich habe zwar nicht wirklich Einblick in VBA, aber das Makro sieht für mich OK aus, ich habe auch nichts geändert.
Warum funktioniert es plötzlich nicht mehr?
Mir ist es ein Rätsel... :-(
Vielen Dank schon im voraus für Eure Unterstützung.
Viele Grüße
Struppi