Thema Datum  Von Nutzer Rating
Antwort
27.06.2022 12:16:18 Jana
NotSolved
27.06.2022 12:49:00 Mase
NotSolved
27.06.2022 14:02:46 Jana
NotSolved
27.06.2022 16:01:33 Mase
NotSolved
28.06.2022 07:10:39 Jana
NotSolved
28.06.2022 07:51:34 Mase
NotSolved
Rot Vorschlag
28.06.2022 12:05:07 Mase
Solved
28.06.2022 19:18:34 Gast88827
NotSolved
28.06.2022 19:24:13 Mase
NotSolved

Ansicht des Beitrags:
Von:
Mase
Datum:
28.06.2022 12:05:07
Views:
316
Rating: Antwort:
 Nein
Thema:
Vorschlag
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
'*** Variablen für das Einlesen der Textdatei
Dim s       As String
Dim ff      As Integer
 
'*** Variablen für zeilenweise Verarbeitung
Dim v       As Variant
Dim i       As Long
         
'*** Datei öffnen, einlesen und wieder schließen
ff = FreeFile
Open "c:\Test\Testfile.txt" For Binary As #ff                   '<~~ Datei anpassen // bzw in Funktion auslagern
    s = Space(LOF(ff))
    Get #ff, , s
Close #ff
 
'*** Beispielsweise ab zweiter Zeile, zeilenweise verarbeiten
v = Split(s, vbNewLine)
For i = 2 To UBound(v)
    Debug.Print v(i)                                            'Hier elegant die Spalten in die nächstfreien Excelzellen schreiben
Next i

 


Ihre Antwort
  • 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: Name: Email:



  • 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
27.06.2022 12:16:18 Jana
NotSolved
27.06.2022 12:49:00 Mase
NotSolved
27.06.2022 14:02:46 Jana
NotSolved
27.06.2022 16:01:33 Mase
NotSolved
28.06.2022 07:10:39 Jana
NotSolved
28.06.2022 07:51:34 Mase
NotSolved
Rot Vorschlag
28.06.2022 12:05:07 Mase
Solved
28.06.2022 19:18:34 Gast88827
NotSolved
28.06.2022 19:24:13 Mase
NotSolved