Thema: Werte aus Textdatei importieren und umwandeln

StandardModule: Modul1

Sub Importieren()
   Dim arr As Variant
   Dim vValue As Variant
   Dim iRow As Integer, iCol As Integer
   Dim sFile As String, sTxt As String
   sFile = ThisWorkbook.Path & "\setminus.txt"
   If Dir(sFile) = "" Then
      Beep
      MsgBox "Kann die Textdatei " & sFile & " nicht finden!"
      Exit Sub
   End If
   Close
   Open sFile For Input As #1
   Do Until EOF(1)
      iRow = iRow + 1
      Line Input #1, sTxt
      arr = fncSplit(sTxt, vbTab)
      For iCol = 0 To UBound(arr)
         vValue = arr(iCol)
         If Right(vValue, 1) = "H" Then
            vValue = CDbl(Left(vValue, Len(vValue) - 1))
         ElseIf Right(vValue, 1) = "S" Then
            vValue = CDbl(Left(vValue, Len(vValue) - 1)) * -1
         End If
         Cells(iRow, iCol + 1).Value = vValue
      Next iCol
   Loop
   Close
End Sub
   
Function fncSplit( _
   SplitText As String, _
   Delimiter As Variant _
   ) As Variant
   Dim iFile As Integer, iCounter As Integer
   Dim arr() As String
   Dim sTxt As String
   Do While SplitText <> ""
      ReDim Preserve arr(iCounter)
      If InStr(SplitText, Delimiter) Then
         sTxt = Left(SplitText, _
            InStr(SplitText, Delimiter) - 1)
         arr(iCounter) = sTxt
         SplitText = Right(SplitText, Len(SplitText) - _
            InStr(SplitText, Delimiter))
      Else
         arr(iCounter) = SplitText
         SplitText = ""
      End If
      iCounter = iCounter + 1
   Loop
   fncSplit = arr
End Function

Beiträge aus dem Excel-Forum zu den Themen Extern und TextImport