Die Methode Sheets für das Objekt _Global ist ...
18.03.2004 15:59:56
dave
Die Methode Sheets für das Objekt _Global ist fehlgeschlagen.
Sub datei_einlesen()
Dim iRow As Integer, iCol As Integer
Dim sFile As String, sTxt As String
antwort = TextDerZwischenablageEinlesen()
sFile = "\\rittsrv103\home$\david.truttmann\Eigene Dateien\eingabe_" & antwort & ".txt"
If Dir(sFile) = "" Then
Beep
Exit Sub
End If
iRow = 1
iCol = 1
Close
Open sFile For Input As #1
Do Until EOF(1)
Line Input #1, sTxt
Do While InStr(sTxt, ";")
Cells(iRow, iCol).Value
test = Left(sTxt, InStr(sTxt, ";") - 1)
sTxt = Right(sTxt, Len(sTxt) - InStr(sTxt, ";"))
iCol = iCol + 1
Loop
Cells(iRow, iCol).Value = sTxt
iRow = iRow + 1
iCol = 1
Loop
Close
End Sub