Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
748to752
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
748to752
748to752
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten aus Datei mit > 100.000Zeilen

Daten aus Datei mit > 100.000Zeilen
03.04.2006 13:00:14
Günther
Hallo,
habe mit der Suche leider nichts zu meinem Problem gefunden.
Ich habe eine Preisliste, tab oder Komma getrennte txt-file mit 200.000 Artikeln.
Ich weiß, ich kanns mit Excel nicht öffnen.
Kann ich in einer Exceltabelle (so eine Art Rechnungsformular) z.b. in Zelle A10 eine Artikelnummer eingeben, und bekomme dann in B10 und C10 Preis und Artikelbezeichnung aus dieser Preisliste?
Wäre echt toll, wenn jemand eine Idee hat.
Gruß
Günther

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten aus Datei mit > 100.000Zeilen
03.04.2006 13:12:54
yogi
Tach Günther
so kannst du das Teil einlesen und auf mehrere Blätter verteilen:
Dim x as Long
Open xyz.txt For Input As #1
sheet_is=1
x = 1
Worksheets(sheet_is).select
Do While Not EOF(1)
Input #1, cells(xx,1), cells(x,2),....
x=x+1
if x&gt64000 then
sheet_is=sheet_is + 1
Worksheets(sheet_is).Select
x=1
End If
Loop
Close #1
Gruss
yogi
AW: Daten aus Datei mit > 100.000Zeilen
03.04.2006 13:44:26
IngGi
Hallo Günther,
so kannst du Artikelbezeichnung direkt aus deiner Datei holen, ohne diese in Excel öffnen zu müssen. Der Datenaufbau der Datei muss so aussehen:
Artikelnummer,Artikelbezeichnung,Preis
Sonst muss das Makro entsprechend angepasst werden. Das Makro kommt in das Modul des Tabellenblattes, in welches die Daten hineinkommen.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim strQuellDat As String
Dim strZeile As String
Dim strArtNr As String
Dim strArtBez As String
Dim strPreis As String
Dim ff As Integer
If Intersect(Target, Range("A10")) Is Nothing Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
strQuellDat = "C:\Temp\Test.txt"
Application.EnableEvents = False
Range("B10:C10").ClearContents
ff = FreeFile
Open strQuellDat For Input As #ff
Do Until EOF(ff)
Line Input #ff, strZeile
strArtNr = Left(strZeile, InStr(1, strZeile, ",") - 1)
If CStr(Range("A10")) = strArtNr Then
strArtBez = Mid(strZeile, InStr(1, strZeile, ",") + 1, Len(strZeile) - InStr(1, strZeile, ",") _
- (Len(strZeile) - InStrRev(strZeile, ",") + 1))
strPreis = Right(strZeile, Len(strZeile) - InStrRev(strZeile, ","))
Range("B10") = strArtBez
Range("C10") = CDbl(strPreis)
Application.EnableEvents = True
Exit Do
End If
Loop
Close #ff
If Range("B10") = "" Then Range("B10") = "Artikel nicht gefunden!"
Application.EnableEvents = True
End Sub
Gruß Ingolf
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige