Text als Text importieren

Hallo Franz,
meine Daten werden alle sauber als Text importiert, wenn ich zu Fuß den Punkt durch Komma ersetze ist alles Ok, aber mit dem aufgezeichnetem Makro geht es nicht.
Das ist sehr seltsam.
Danke Harry

Private Sub Daten_importieren_Click()
Dim strFilename As String
Dim Pfad$
Dim dtmFaktDatum As String
Dim lngBankBCNR As String
Dim strBankName As String
Dim strBankOrt As String
Dim lngI As Long 'Zähler
strFilename = Application.GetOpenFilename("Textdateien (*.txt), *.txt")
If strFilename  "Falsch" Then
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & strFilename, Destination:=Range("A10" _
))
.Name = ""
.FieldNames = True
.RowNumbers = True
.FillAdjacentFormulas = True
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, _
2, 2, 2, 2, 2)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=True
End With
End If
End Sub


Private Sub Punkt_ersetzen_durch_Komma_Click()
Cells.Replace What:=".", Replacement:=",", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

Hallo Harry,
wenn deine Zahlen in der Textdatei im Deutschen-Format (Dezimalzeichen=",", 1000er-Trennzeichen = "." vorliegen, dann hast du jetzt 2 Möglichkeiten.
A: Import-Makro apassen und Trennzeichen vorgeben

            .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1, 1)
.TextFileDecimalSeparator = ","
.TextFileThousandsSeparator = "."

Das Problem ist, dass beim Import via VBA standardmäßig Daten aus der Sicht des US-Formats interpretiert werden.
B: Daten als Text importieren, dann Zahlen umwandeln.
Hier muss du dein Makro anpassen.
1. Zahlenformat im relevanten Zellbereich ändern von Text in gewünschtes Zahlenformat
2. Punkt in den Zahlen durch Leerstring ersetzen
3. Zahleninhalte mit 1 multiplizieren, damit Zahlen-Texte kleiner 1000 in Zahlen umgewandelt werden.

Private Sub Punkt_ersetzen_durch_Komma_Click()
Dim Zelle As Range
Application.ScreenUpdating = False
With ActiveSheet
With .Range(.Cells(10, 1), .Cells.SpecialCells(xlCellTypeLastCell))
.NumberFormat = "#,##0" 'oder "#,##0.00" wenn mit Nachkommastellen
.Replace What:=".", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
For Each Zelle In .Cells
If IsNumeric(Zelle.Text) Then Zelle.Value = Zelle.Value * 1
Next
End With
End With
Application.ScreenUpdating = True
End Sub

Gruß
Franz

Forumthread: Text als Text importieren

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial