Excel verändert Formatierung/Einstellung

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub BatchinputBlattKopieren() Dim Datei As String If Worksheets("Batchinputmappe").Range("A1") = "" Then MsgBox ("Die Batchinputmappe ist leer und wird daher nicht kopiert.") Exit Sub End If Worksheets("Batchinputmappe").Copy MsgBox ("Die Batchinputmappe ist erstellt und kann als TXT-file gespeichert werden.") End Sub

Hi JoWE,
genau das ist mein Problem. Das Blatt landet alleine (und es sind alles Werte, keine Formeln) in "Mappe1". Wenn das aber als TXT (Tabstopp getrennt) abgespeichert wird, hab ich in der Textdatei:
BUDAT .............WRBTR
3/30/2022........."148,777.53"
Die Punkte sind für die Daten die dazwischen liegen.
Das einzige was mir auffällt in der neuen Mappe, ist dass das Eurozeichen in der Formatierungbereich des Ribbons auf $ anstatt steht. Dabei sind sowohl mein Workbook als auch das woher die Daten bezogen werden, auf Euro. Kann mir jetzt höchstens vorstellen, dass die Datei die ich zum Einlesen bekomme, andere Einstellungen hat - aber ich kopiere ja auch nur die Werte.
Die kopierten Werte werden in einer weiteren Tabelle mit XVERWEIS angepasst, diese Daten pivotisiert und in eine weitere Tabelle verformelt. Per VBA in ein anderes Blatt kopiert wo sich die Daten aus dem Buchungssatz dieses wieder per Formeln holen. Der Buchungssatz kommt dann als Wert in das finale Blatt, welches kopiert wird.
Bin echt ratlos.... :(
Viele Grüße,
Andy74

Hi JoWE,
Danke für deinen Beitrag!
MS-DOS als eigenschaft für TXT hab ich noch nie probiert. Hab da immer Tab-Stopps genommen, weil ich einmal eine TXT Datei hatte die nicht funktioniert hatte - weil sie als UNICODE gespeichert wurde.
In der Zwischenzeit hab ich das Makro umgeschrieben:


Sub BatchinputBlattKopieren()
Dim Hauptdatei As String, NeueDatei As String, BIBlatt As String
Dim LetzteZeile As Long
BIBlatt = "Batchinputmappe"
If Worksheets(BIBlatt).Range("A1") = "" Then
MsgBox ("Die Batchinputmappe ist leer und wird daher nicht kopiert.")
Exit Sub
End If
Hauptdatei = ActiveWorkbook.Name
Workbooks.Add
NeueDatei = ActiveWorkbook.Name
Workbooks(Hauptdatei).Activate
Worksheets(BIBlatt).Activate
LetzteZeile = Range("A10000").End(xlUp).Row
Range("A1:M" & LetzteZeile).Copy
Workbooks(NeueDatei).Activate
Range("A1").PasteSpecial xlPasteAll
MsgBox ("Die Batchinputmappe ist erstellt und kann als TXT-file gespeichert werden.")
End Sub

.... und jetzt läuft es mit dem Abspeichern.
Das einzige was mir jetzt noch auffällt, weil ich auch die Spracheinstellungen von Office überprüft habe (man weiß ja nie, was MS-Office Produkten so quer schießt...), ist dass es zwei Verhalten gibt:
a) neue Datei über das Menu in Excel - liefert eine neue Mappe mit Euro-Zeichen im Formatierungsbereich
b) neue Datei über Workbooks.Add - liefert eine neue Mappe mit Dollar-Zeichen im Formatierungsbereich
Keine Ahnung warum, aber wichtig ist, dass der Rest erstmal läuft :)
Danke & Grüße,
Andy74

Beliebteste Forumthreads (12 Monate)

Excel verändert Formatierung/Einstellung

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread