|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
13.06.2008 16:33:40 |
Sabine |
|
|
 Aw:Textdateien in Excel einlesen |
13.06.2008 19:06:53 |
jh |
|
|
|
17.06.2008 12:53:24 |
Sabine |
|
|
|
18.06.2008 07:41:44 |
jh |
|
|
|
19.06.2008 15:53:04 |
Sabine |
|
|
|
20.06.2008 07:33:52 |
jh |
|
|
|
21.06.2008 09:10:38 |
Sabine |
|
|
Von:
jh |
Datum:
13.06.2008 19:06:53 |
Views:
1128 |
Rating:
|
Antwort:
|
Thema:
Aw:Textdateien in Excel einlesen |
Hallo,
natürlich ist das lösbar. Deine Beschreibung dessen, was du machen
willst, ist zwar nicht ganz eindeutig, aber ich gehe mal davon aus,
dass du mit "Zeile 101 bis 200" die Zeile in der Textdatei meinst, die entsprechenden Werte aber in Excel in Spalte 2 wiederum Zeile 1 bis
100 stehen sollen.
Dim strFileName As String, intFileNummer As Integer, _
strInput As String, lngZeile As Long, intSpalte As Integer
strFileName = "C:\Excel\Testfile.txt" ' Beispiel
intFileNummer = FreeFile
lngZeile = 1
intSpalte = 1
Open strFileName For Input As #intFileNummer
Do
Line Input #intFileNummer, strInput
Cells(lngZeile, intSpalte) = strInput
lngZeile = lngZeile + 1
If lngZeile = 101 Then
lngZeile = 1
intSpalte = intSpalte + 1
If intSpalte = 257 Then
' letzte Spalte beschrieben
MsgBox "Das Blatt ist voll!"
Exit Do
End If
End If
Loop Until EOF(intFileNummer)
Close #intFileNummer
Gruß
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
13.06.2008 16:33:40 |
Sabine |
|
|
Aw:Textdateien in Excel einlesen |
13.06.2008 19:06:53 |
jh |
|
|
|
17.06.2008 12:53:24 |
Sabine |
|
|
|
18.06.2008 07:41:44 |
jh |
|
|
|
19.06.2008 15:53:04 |
Sabine |
|
|
|
20.06.2008 07:33:52 |
jh |
|
|
|
21.06.2008 09:10:38 |
Sabine |
|
|