Teneriffa Süd Abflug
2006 - 16:30 *lol* meine Antwort war zu spä den thread mal 10 Minuten nicht aktualisiert... *g*:]:DDer größte Fehler eines modernen Computers sitzt meist davor:] 15. 2006 - 16:31 Vielen Dank für eure schnellen Antworten! Ich hab das bisher so:... String directory; while ((directory = adLine())! = null)... Zitat Original von herbivore So wie ich das sehe, hab ichs bereits so. Kann mir da wer ein Beispiel geben für eine bestimmte Zeile? Vba textdatei bestimmte zeile auslesen in english. Dank auch an an Marcel, damit werd ichs auch mal versuchen, wobei ich mit deinem Code noch absolut nicht durchsteige;-) *Linus sowas von einem Anfänger* thx in Advance 15. 2006 - 16:51 oh, oh, wenn du so ein großer Anfänger bist, wie du schreibst, und den relativ einfachen Code von der Marcel nicht blickst, dann solltest du dir dringend die Grundlagen mittels eines Buches aneignen. Das kann ein Forum nicht leisten. 15. 2006 - 17:06 Hi Linus, schreib vielleicht einfach eine for-schleife mit einem Integer-Zähler, welcher bei jedem Schleifendurchlauf um eins erhöht wird.
Mir ist nur nicht ganz klar, woher in deiner Tabelle die Zahlen 76004 bzw. 76005 kommen - in der Textdatei steht jeweils 176004, 276004 bzw. 176005, 276005. Vorgehensweise: Lesen von Text aus Dateien mit StreamReader - Visual Basic | Microsoft Docs. Ich habe jetzt mal angenommen, die Textdatei hat ein Semikolon als Trennzeichen (bei dir könnten es Tabs sein, dann müsste man den Code entsprechend anpassen). Mit folgendem Code funktioniert der erste Teil der Aufgabe bei mir: Sub einlesen() Dim textzeile As String, wert() As String, zeile As Integer, spalte As Integer zeile = 2 spalte = 2 Open "C:\Test\" For Input As #1 ' Datei öffnen - den Pfad entsprechend anpassen Do While Not EOF(1) ' datei durchlaufen bis das Ende erreicht ist Line Input #1, textzeile ' erste Zeile in Variable zeile speichern wert = Split(textzeile, ";") ' Zeile in Felder zerlegen (evtl. vbTab statt ";") Cells(zeile, spalte) = wert(2) ' in die Tabelle schreiben Cells(zeile, spalte)(1, 0) = wert(3) Line Input #1, textzeile ' zweite Zeile in Variable zeile speichern Cells(zeile, spalte)(2, 0) = wert(2) ' in die Tabelle schreiben Cells(zeile, spalte)(3, 0) = wert(3) Cells(zeile, spalte)(4, 0) = wert(4) spalte = spalte + 1 Loop Close #1 ' Datei schließen End Sub De zweiten Teil - das Zurückschreiben - fasse ich erst dann an, wenn ich weiß, ob das bisher gestrickte in deinem Sinn ist.