Thema Datum  Von Nutzer Rating
Antwort
07.12.2015 16:41:34 Sven
Solved
Blau Makro zum Einfügen von Zeilen aus einer txt. Datei mit speziellen Kriterien
 07.12.2015 17:26:21 Gast42156
Solved
07.12.2015 23:57:42 Gast18909
NotSolved

Ansicht des Beitrags:
Von:
Gast42156		 Datum:
07.12.2015 17:26:21		 Views:
945		 Rating:
     
Antwort:
 Nein
Thema:
Makro zum Einfügen von Zeilen aus einer txt. Datei mit speziellen Kriterien		 
Sub einlesen()

j = 1
    Open "D:\Dropbox\Diplomarbeit\HPLC-ERgebnisse\Test\test.txt" For Input As #1
    Do While Not EOF(1)
        Line Input #1, temp
    
        If InStr(temp, "Start1") > 0 Then
        Schalter = 1
        End If
        

        Do While Schalter = 1
        Line Input #1, temp2

        If InStr(temp2, "Ende1") > 0 Then
        Schalter=0
        Exit Do
        End If

        txtarray = Split(temp2, " ")
        Cells(j, 1) = txtarray(UBound(txtarray))
        j = j + 1
    
        Loop
    Loop
    Close #1
End Sub

 

 

So Siehts bisher aus aber aus irgendeinem Grund höhrt er nicht bei Ende 1 auf sondern importiert auch von jeder Zeile bis zum Ende das letzte Element.

 

Sieht einer den Fehler oder hat eine bessere Lösung?
Vielen Dank im Vorraus.
(kann man seine Beiträge nachträglich bearbeiten?)

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
07.12.2015 16:41:34 Sven
Solved
Blau Makro zum Einfügen von Zeilen aus einer txt. Datei mit speziellen Kriterien
 07.12.2015 17:26:21 Gast42156
Solved
07.12.2015 23:57:42 Gast18909
NotSolved