Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Frage an Oberschlumpf zu CodeImport

Forumthread: Frage an Oberschlumpf zu CodeImport

Frage an Oberschlumpf zu CodeImport
Holger
Hallo,
du hast mir den Code zum FileImport gegeben, der mir sehr hilft.
Allerdings wie kann ich steuern, welche Zeile des Files wann eingelesen wird?
Denn ich will nicht, die Zellen absteigend füllen, sondern ich muss
teilweise Variablen einlesen.
Denn EndOfFile ist nicht zuverlässig und im aktuellen Fall läuft er einmal zuviel durch das File:
Sub Import
Open PATHtxt For Input As #1
Do While Not EOF(1)
Line Input #1, lInhalt
wsContracts.Range("S2").Value = lInhalt 'Steht im File in Zeile 1
strNewPeriod = lInhalt 'Steht im File in Zeile 2
Loop
Close #1
MsgBox strNewPeriod
End Sub

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Ach, wenn sonst jemand die Lösung weiss ? k.t.
16.09.2010 13:28:13
Holger
AW: Ach, wenn sonst jemand die Lösung weiss ? k.t.
16.09.2010 13:37:10
EvilRik
Hallo Holger,
mit Open ... For Input as ... kannst du meines Wissens nur zeilenweise einlesen.
Du könntest ja noch einen Zähler mitlaufen lassen, wenn du die Zeilennummer weißt.
z.B.

Sub Import
Open PATHtxt For Input As #1
Do While Not EOF(1)
Line Input #1, lInhalt
Zähler=Zähler+1
If Zähler= 1 then wsContracts.Range("S2").Value = lInhalt
If Zähler=2 then strNewPeriod = lInhalt
If Zähler >2 then goto ende
Loop
ende:
Close #1
MsgBox strNewPeriod
End Sub

Gruß Henrik
Anzeige
AW: Ach, wenn sonst jemand die Lösung weiss ? k.t.
16.09.2010 13:45:03
Holger
Hallo Henrik,
das dachte ich mir schon fast.
Ok, ein Zähler könnte die Lösung sein, ich probiere es gleich mal aus.
AW: Ach, wenn sonst jemand die Lösung weiss ? k.t.
16.09.2010 13:45:07
Holger
Hallo Henrik,
das dachte ich mir schon fast.
Ok, ein Zähler könnte die Lösung sein, ich probiere es gleich mal aus.
DANKE, klappt perfekt mit Zähler k.t.
16.09.2010 13:45:32
Holger
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige