Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1176to1180
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
Inhaltsverzeichnis

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

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
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.
Anzeige
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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige