Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1276to1280
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Umlaute beim Datenimport

Umlaute beim Datenimport
ing.grohn
Hallo Forum,
beim Datenimport in Excel 2007 (CSV-Datei) kommen die Umlaute nicht über (im Editor ist alles OK)!
Hintergrund ist wahrscheinlich die Windows-Server-Version (in Excel "Punkt" als Dezimaltrenner, _ hab ich geändert). Die Daten werden mit einem Makro übernommen:

Workbooks.OpenText _
Filename:=DatBez, _
Origin:=xlWindows, _
StartRow:=1, _
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=True, _
Semicolon:=True, _
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)), _
TrailingMinusNumbers:=True

funktioniert unter 2003 und 2010 (Win 7) problemlos.
Welcher Wert für Origin:=xlWindows muß ich wählen damit der Zeichensatz stimmt?
Kann das nicht probieren, weil ich kein 2007 habe.
Bedanke mich für Eure Hilfe
Mit freundlichen Grüßen
ALbrecht

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Umlaute beim Datenimport
10.09.2012 11:39:45
Rudi
Hallo,
wie soll man das testen?
xlWindows ist OK.
Gruß
Rudi

AW: Umlaute beim Datenimport
10.09.2012 13:19:41
ing.grohn
Hallo Rudi,
vielen Dank erstmal für Deine Antwort.
Zugegeben, der Code ist so nicht zu testen: Im Prinzip ist das die Makroaufzeichnung des Imports von 2003.
Offensichtlich ist der Wert von "xlWindows" bei 2003 und 2010 unter Win 7 identisch (=2). Bei 2007 unter Windows-Server (2000?), englisch, scheint er aber anders zu sein.
Nur, welchen Wert hat "xlWindows" in der Server-Version oder muss er haben? (ich kann es nicht testen (kein Win Server, kein 2007)
Mit freundlichen Grüßen
Albrecht

Anzeige
AW: Umlaute beim Datenimport
10.09.2012 13:23:17
Rudi
Hallo,
dafür sind doch die Konstanten da, dass man sich nicht um den Wert kümmern muss.
So ist es egal, ob sie in der einen Version 1 beinhaltet und in einer anderen 123.
Gruß
Rudi

AW: Umlaute beim Datenimport
10.09.2012 13:41:07
ing.grohn
Hallo Rudi,
und warum seh dann irgend ein "Kästchen" o.ä. und kein Umlaut (wie äöü)?
Dir ist doch die Einstellung des Kommas nicht unbekannt bei einer gemischten Installation oder?
Mit freundlichen Grüßen
Albrecht

AW: Umlaute beim Datenimport
10.09.2012 13:50:29
Rudi
Hallo,
ehrlich gesagt benutze ich die Opentext-Methode nie. Eherr sowas:
Sub Datei_Importieren()
Dim strFileName As String, arrDaten, arrTmp, lngR As Long, lngLast As Long
Const cStrDelim As String = ";" 'Trennzeichen
Const cLngFirst As Long = 1 'erste zu beschreibende Zeile
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.Title = "Datei wählen"
.InitialFileName = "c:\test\*.csv"  'Pfad anpassen
If .Show = -1 Then
strFileName = .SelectedItems(1)
End If
End With
If strFileName  "" Then
Application.ScreenUpdating = False
Open strFileName For Input As #1
arrDaten = Split(Input(LOF(1), 1), vbCrLf)
Close #1
For lngR = 1 To UBound(arrDaten)
arrTmp = Split(arrDaten(lngR), cStrDelim)
If UBound(arrTmp) > -1 Then
With ActiveSheet
lngLast = .Cells(Rows.Count, 1).End(xlUp).Row + 1
lngLast = Application.Max(lngLast, cLngFirst)
.Cells(lngLast, 1).Resize(, UBound(arrTmp) + 1) _
= Application.Transpose(Application.Transpose(arrTmp))
End With
End If
Next lngR
End If
End Sub
Was hat die Einstellung des Dezimaltrennzeichens mit Umlauten zu tun?
Gruß
Rudi

Anzeige
AW: Umlaute beim Datenimport
10.09.2012 13:55:10
ing.grohn
Hallo Rudi,
Dein Beispiel werde ich mir näher ansehen und später berichten (ist nicht ganz einfach mit dem Test).
Zur Frage: k. A. aber, dass mit dem Komma hat ja was mit "Ländern" zu tun und die Umlaute ja irgendwie auch!!
Mit freundlichen Grüßen
Albrecht

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige