Office: Daten aus Zwischenablage einfügen

Guten Abend,

ich möchte euch um Hilfe bitten bei einem Problem, an dem ich langsam verzweifle.

Ich bekomme aus einem externen Buchhaltungsprogramm über die Zwischenablage von Windows komplette Buchungsdaten bereitgestellt. Diese enthalten Daten vom Typ Text, Datum und Zahl (Buchungsbeträge).

Diese füge ich in eine neue Tabelle (alle Zellen im Format Standard) ein, indem ich mich die Zelle A1 markiere und dann Strg+V drücke. Das klappt soweit ganz gut, ich finde in den Spalten mit Beträgen ganzzahlige Werte, z.B. 50 für 50€ und nicht ganzzahlige Werte, z.B. 9,8 für 9,80€. Dabei fällt zunächst schon mal auf, das im Beispiel die 50 rechtsbündig steht und die 9,8 linksbündig.

Wenn ich nun die komplette Spalte formatiere mit dem Typ Währung, sieht alles gut aus, d.h. ich erhalte 50,00 € und 9,80 €. Alles prima!

Nun versuche ich das Ganze mit VBA zu autmatisieren, in dem ich in einem Sub diesen Code einfüge:
Range("A2").Select
ActiveSheet.Paste
Das Ergebnis sieht zunächst genau wie oben nach dem manuellen Einfügen aus, doch jetzt kommt das Problem: Wenn ich nun versuche, die Spalte wieder im Format Währung zu formtieren, werden nur die ganzzahligen Werte korrekt formatiert, die restlichen nicht ganzzahligen Werte bleiben unverändert.
Hat jemand von euch eine Erklärung dafür oder kann mir sagen, was ich falsch mache?
Letztlich geht das Problem noch weiter: Wenn ich z.B. die Summe über die beiden Zellen des Beispiels bilde, erhalte ich als Ergebnis 50,00 € und nicht 59,80 € !!!

Vielen Dank im Voraus
Jürgen

:)

 

Hallo Jürgen,

ohne Code oder Datei kann man nur raten.
Code:

 

Hallo Herbert, ich verstehe zwar nicht, warum man da raten muss. Aber hier das ganze noch etwas einfacher beschrieben.

Der Code ist ganz einfach:
Sub Einfügen()
ActiveSheet.Range("A1").Activate
ActiveSheet.Paste
End Sub

Um das Problem nachzuvollziehen, schreibe man in den Windows-Editor:
50 9,8 (beide Zahlen tabulatorgetrennt).
Nun markiert man beide Zahlen, kopiert sie in die Zwischenablage, klickt in Excel die Zelle A1 an und fügt den Inhalt der Zwischenablage mit Strg+V ein.
Ergebnis: In A1 steht 50 (rechtsbündig), in A2 steht 9,8 (rechtsbündig). So sollte es auch sein. Summiert man beide Zellen kommt 59,8 raus, auch o.k.

Macht man das Ganze nun mittels des Sub Einfügen, erhält man:
In A1 steht 50 (rechtsbündig), in A2 steht 9,8 (aber linksbündig) !
Summiert man auch hier beide Zahlen ist das Ergebnis 50 !!!

Alle Zellen sind übrigens im Format Standard.
In den Ländereinstellungen von Windows 10 ist das Komma das Dezimaltrennzeichen und der Punkt dfas Tausender-Trennzeichen.
In Excel (2010) ist "Trennzeichen vom Betriebssystem übernehmen aktiviert.

Weitere Recherchen besagen, dass VBA in der englischen Version arbeitet. Aber auch bei einer deutschen Excelversion?

Gibt es irgendwo eine Einstellmöglichkeit?

Viele Grüße
Jürgen

 

Hallo,

ich wette mit dir, dass dein Buchhaltungsprogramm eine TXT oder sogar eine CSV exportieren kann.

Sabina

 

Zur Info....
https://www.vba-forum.de/View.aspx?z..._einf%C3%BCgen

 

Hallo Sabina, die Wette hast du verloren. Aber das würde doch auch nichts ändern. Mein simples Beispiel ist doch quasi eine TXT

Gruß Jürgen

 

Hallo Jürgen,

also, daß dein Buchhaltungsprogramm keine Exportfunktion hat, mag ich auch nicht glauben und natürlich würde das einiges ändern.

Eben, du hast dir die Antwort quasi selber gegeben: der eingefügte Wert mit "," wird als Text interpretiert. Diesen müßtest du also nur wieder expliziet in eine Fließkommazahl zurück konvertieren.

Ulrich