Anzeige
Archiv - Navigation
364to368
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
364to368
364to368
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA Problem.

VBA Problem.
21.01.2004 13:24:27
Thorsten
Hi mal wieder.
Dank Euch bin ich schon recht weit gekommen. Vielen Dank dafür...
Ich habe folgendes Problem. Ich möchte mehrere Daten aud Textdateien einlesen und diese in eine Tabelle schreiben lassen. Das Problem: Es werden nur die Daten der letzten eingelesenen Datei in die Tabelle geschrieben. Ich fürchte, die anderen werden überschrieben. Kann mir jemand helfen? Hier der Quellcode:

Sub TextImport()
Application.DisplayAlerts = False
Dim iRow As Integer, iCol As Integer
Dim sFile As String, sTxt As String
Dim datei As String
iRow = 1
iCol = 1
datei = Dir("C:\Test\*.ans")
Do While datei <> ""
sFile = "C:\Test\" + datei
On Error Resume Next
Close
Open sFile For Input As #1
Do Until EOF(1)
Line Input #1, sTxt
Do While InStr(sTxt, "|")
Cells(iRow, iCol).Value = Left(sTxt, InStr(sTxt, "|") - 1)
sTxt = Right(sTxt, Len(sTxt) - InStr(sTxt, "|"))
iCol = iCol + 1
Loop
Cells(iRow, iCol).Value = sTxt
iRow = iRow + 1
iCol = 1
Loop
Close
Application.ScreenUpdating = False
With Range("A1")
.AutoFilter Field:=4, Criteria1:="trans*"
.CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
Worksheets("Ergebnis").Range("A1")
End With
Worksheets("Ergebnis").Activate
Sheets("Ergebnis").Range("A:C,E:J").ClearContents
Range("D1:D1000").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1))
datei = Dir
Loop
End Sub

Vielleicht weiß jemand Rat. Wenn das noch klappt, wäre ich sogut wie fertig :)
Gruß Thorsten

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Problem.
21.01.2004 13:32:49
Ralf
Hi Thorsten,
du musst nach dem einlesen der Datei musst du die letzte leere Zelle bestimmen.
Einfach einfügen:
Windows("Tabelle1.xls").Activate
Columns(1).Select ' Auswahl der Leerzelle
Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
zeile = ActiveCell.Row
Für Colums gibst du die Spalte an (1 = A, 2 = B) die du füllst. Dann aktiviert er die Zelle unter dem letzten Eintrag und fertig.
Ralf
Anzeige
AW: VBA Problem.
21.01.2004 13:42:01
Thorsten
Hi.
Danke für die schnelle Antwort.
Werde es sofort ausprobieren und mich vielleicht nochmal melden, wenn es Problmeme gibt.
Gruß Thorsten
AW: VBA Problem.
21.01.2004 13:49:51
Thorsten
Hm. Kannst Du mir das konkret erklären, wie und wo ich das einfügen muss?
Bin absoluter VBA Laie. :)
Komme nicht weiter.
21.01.2004 14:47:31
Thorsten
Hallo.
Habe oben mein Problem geschildert.
Der Vorschlag von Ralf scheint sehr vielversprechend aber ich bin zu dumm das mit meínem Code umzusetzen...
Weiß jemand konkret, was ich machen muss?

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige