title image


Smiley Re: Makrofrage für Datenimport
Hallo,

vielleicht so:













Sub Datei_importieren()



Dim Datei As String, Text As String  

Dim Zeile As Long, Spalte As Long  



On Error GoTo Fehler    



Spalte = IIf(IsEmpty([iv27]), [iv27].End(xlToLeft).Column, 256)    



'Quelldatei festlegen

Datei = ThisWorkbook.Path & "\test.txt"



Open Datei For Input As #1              ' Quelldatei öffnen.

Zeile = 27



Do While Not EOF(1)              ' Schleife bis Dateiende

    Line Input #1, Text        ' Text lesen

    ActiveSheet.Cells(Zeile, Spalte + 1) = Text

    Zeile = Zeile + 1

Loop



Close #1    'Quelldatei schließen



Exit Sub  



Fehler:

Close #1

    MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _

    & "Beschreibung: " & Err.Description _

    , vbCritical, "da ist leider ein Fehler aufgetreten"

End Sub  









Gruß

Alfons

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: