Konvertierung Zahlen bei Datei-Öffnen mit Makro

Hallo zusammen,
mir liegt eine Excel-Datei vor, die mir SAP zur Verfügung stellt.
Öffne ich diese Datei normal, dann werden Zahlen ganz normal angezeigt. Öffne ich diese Datei aber mit diesem Makro:
Dim strFilename 'Dateiname
Dim wbkWorkbook As Workbook 'Arbeitsmappe
strFilename = Application.GetOpenFilename("XL Files (*.xls), *.xls")
If VarType(strFilename) = vbBoolean Then MsgBox "Abbrechen gedrückt": Exit Sub
Set wbkWorkbook = Workbooks.Open(strFilename)
dann werden Zahlen merkwürdig konvertiert. Möglicherweise liegt dies daran, dass das Makro das amerikanische Format voraussetzt, obwohl ich deutsche Formate in der Datei bekomme:
1.000 wird zu 1
400.000 wird zu 400
1.000,00 wir als Text interpretiert
1,00 wird als Text interpretiert
1 wird zu 1
Wie kann ich dem Excel-Makro sagen, dass die Datei deutsche Formate enthält? Es wäre sehr mühselig die Daten per Makro wieder zu korrigieren...
Danke!
Patrick

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub aatest() Dim strFilename 'Dateiname Dim wbkWorkbook As Workbook 'Arbeitsmappe Application.DecimalSeparator = "." Application.ThousandsSeparator = "," strFilename = Application.GetOpenFilename("XL Files (*.xls), *.xls") If VarType(strFilename) = vbBoolean Then MsgBox "Abbrechen gedrückt": Exit Sub Set wbkWorkbook = Workbooks.Open(strFilename) Application.DecimalSeparator = "," Application.ThousandsSeparator = "." End Sub

Ha, das ist gut!!! Die Zahlen sind korrekt. Und es war wirklich eine txt im xls-Mantel!
Aber ich habe noch ein Problem:
Vorher hatte ich die Möglichkeit die Datei flexibel auszuwählen:
Dim strFilename 'Dateiname
Dim wbkWorkbook As Workbook 'Arbeitsmappe
strFilename = Application.GetOpenFilename("XL Files (*.xls), *.xls")
If VarType(strFilename) = vbBoolean Then MsgBox "Abbrechen gedrückt": Exit Sub
Set wbkWorkbook = Workbooks.Open(strFilename)
With wbkWorkbook 'Das ist die geöffnete Arbeitsmappe (Objekt wurde mit Set zugewiesen)
usw.
Die OpenText bekomme ich wieder nur mit statischer Datei hin!
'''''''''DIES muss wieder flexibel werden!
Workbooks.OpenText FileName:= _
"C:\Documents and Settings\mch1364a\Desktop\Statistik.xls", _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), _
Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array( _
16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), Array(22, 1), _
Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), Array(27, 1), Array(28, 1), Array( _
29, 1), Array(30, 1), Array(31, 1), Array(32, 1), Array(33, 1), Array(34, 1), Array(35, 1), _
Array(36, 1), Array(37, 1), Array(38, 1), Array(39, 1), Array(40, 1), Array(41, 1), Array( _
42, 1), Array(43, 1), Array(44, 1), Array(45, 1), Array(46, 1), Array(47, 1), Array(48, 1), _
Array(49, 1), Array(50, 1), Array(51, 1), Array(52, 1), Array(53, 1), Array(54, 1), Array( _
55, 1), Array(56, 1), Array(57, 1), Array(58, 1), Array(59, 1), Array(60, 1), Array(61, 1), _
Array(62, 1), Array(63, 1), Array(64, 1), Array(65, 1), Array(66, 1), Array(67, 1), Array( _
68, 1), Array(69, 1), Array(70, 1), Array(71, 1), Array(72, 1), Array(73, 1), Array(74, 1), _
Array(75, 1), Array(76, 1), Array(77, 1), Array(78, 1), Array(79, 1), Array(80, 1))
'''''''''DIES muss wieder flexibel werden! Ende!

Sub aatest() Dim strFilename 'Dateiname Dim wbkWorkbook As Workbook 'Arbeitsmappe Dim arrFieldinfo(1 To 80, 1 To 2) As Long, lngSpalte As Long strFilename = Application.GetOpenFilename("XL Files (*.xls), *.xls") If VarType(strFilename) = vbBoolean Then MsgBox "Abbrechen gedrückt": Exit Sub 'Fieldinfo für Format der Spalten einrichten For lngSpalte = 1 To 80 arrFieldinfo(lngSpalte, 1) = lngSpalte Select Case lngSpalte Case 991 arrFieldinfo(lngSpalte, 2) = 2 'Text Case 992 arrFieldinfo(lngSpalte, 2) = 3 'Datum MTJ - Monat-Tag-Jahr Case 993 arrFieldinfo(lngSpalte, 2) = 4 'Datum TMJ - Tag-Monat-Jahr Case 994 arrFieldinfo(lngSpalte, 2) = 5 'Datum JMT - Jahr-Monat-Tag Case 995 arrFieldinfo(lngSpalte, 2) = 9 'Spalte überspringen Case Else arrFieldinfo(lngSpalte, 2) = 1 'Standardformat End Select Next 'Textdatei öffnen Workbooks.OpenText Filename:=strFilename, _ StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False, _ Space:=False, Other:=False, FieldInfo:=arrFieldinfo, DecimalSeparator:=",", _ ThousandsSeparator:="." Set wbkWorkbook = ActiveWorkbook With wbkWorkbook 'Das ist die geöffnete Text-Datei (Objekt wurde mit Set zugewiesen) 'usw. .Worksheets(1).Columns.AutoFit End With End Sub

For lngSpalte = 1 To 80 arrFieldinfo(lngSpalte, 1) = lngSpalte Select Case lngSpalte Case 991 arrFieldinfo(lngSpalte, 2) = 2 'Text Case 992 arrFieldinfo(lngSpalte, 2) = 3 'Datum MTJ - Monat-Tag-Jahr Case 993 arrFieldinfo(lngSpalte, 2) = 4 'Datum TMJ - Tag-Monat-Jahr Case 994 arrFieldinfo(lngSpalte, 2) = 5 'Datum JMT - Jahr-Monat-Tag Case 995 arrFieldinfo(lngSpalte, 2) = 9 'Spalte überspringen Case Else arrFieldinfo(lngSpalte, 2) = 1 'Standardformat End Select Next

Beliebteste Forumthreads (12 Monate)

Konvertierung Zahlen bei Datei-Öffnen mit Makro

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

258 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Konvertierung Zahlen bei Datei-Öffnen mit Makro

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

258 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread