txt.datei in Excel öffnen Leerzeichen löschen etc

Forumthread: txt.datei in Excel öffnen Leerzeichen löschen etc

18.07.2014 15:27:36

B. Varli

HI leute,
ich hab ne text Datei die ich hochladen werde.
Ich würde gerne die txt.Datei mit VBA in Excel öffnen und die Leerzeichen löschen.
Ich hab ein Vorher nacher beispiel so wie es in Excel aussehen soll.
https://www.herber.de/bbs/user/91573.xls So soll es aussehen
https://www.herber.de/bbs/user/91574.txt Und das ist die Quell datei.
Seit tagen bekomm ich das net hin
Mit freundlichen Grüßen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: txt.datei in Excel öffnen Leerzeichen löschen etc

18.07.2014 15:45:30

Daniel

Hi
probiere als ersten Schritt mal das Einlesen der Datei über die Importfunktion (Daten - Externe Daten - Aus Text)
hier kannst du die Spaltenbreiten festlegen, Leerzeichen werden bei Zahln automatsich entfernt.
sieht mit dem Recorder aufgezeichnet in etwa so aus:

Sub Makro1()
' Makro1 Makro
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= "TEXT;C:\...\...\...\91574.txt", _
Destination:=Range("$A$1"))
.Name = "91574"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 13
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileFixedColumnWidths = Array(8, 4, 5, 9, 2, 4, 12, 37, 16, 19, 11, 2)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub

gruß Daniel

AW: txt.datei in Excel öffnen Leerzeichen löschen etc

20.07.2014 11:32:20

B. Varli

Hi Daniel,
Danke für deine antwort
werde es sofort ausprobieren ;-).
Mit freundlichen Grüßen

AW: txt.datei in Excel öffnen Leerzeichen löschen etc

20.07.2014 11:45:01

B. Varli

HEYY Daniel,
du bist echt meine Reetung!!!
Danke dir Vielmals.
der 3000 Zeiler wurde in 2 sek formatiert und so wie es sein sollte!!
Gruß

Beliebteste Forumthreads (12 Monate)

txt.datei in Excel öffnen Leerzeichen löschen etc

Forumthread: txt.datei in Excel öffnen Leerzeichen löschen etc

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

txt.datei in Excel öffnen Leerzeichen löschen etc

Forumthread: txt.datei in Excel öffnen Leerzeichen löschen etc

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread