Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
660to664
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
660to664
660to664
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Laufzeitfehler '5' - ungültiger Prozeduraufruf

Laufzeitfehler '5' - ungültiger Prozeduraufruf
06.09.2005 12:54:51
Ralf
hallo,
habe in einem Makro folgenden Fehler - wer kann helfen:
Dim vAct As Variant
Dim iRow As Integer, iCol As Integer
Dim sTxt As String, sTmp As String
iRow = 8
Rows(iRow & ":" & Rows.Count).ClearContents
Close
Open "Y:\.... \UMS.txt" For Input As #1
Do Until EOF(1)
Line Input #1, sTxt
Do While Len(sTxt) &gt 1
iCol = 0
=&gt sTmp = Left(sTxt, InStr(sTxt, vbLf) - 1) =&gt UNGÜLTIGER PROZEDURAUFRUF ODER UNGÜLTIGES ARGUMENT
Do While Len(sTmp) &gt 1
iCol = iCol + 1
vAct = Left(sTmp, InStr(sTmp, Chr(124)) - 1)
If InStr(vAct, ",") Then
vAct = WorksheetFunction.Substitute(vAct, ",", ".")
End If
Cells(iRow, iCol).Value = vAct
sTmp = Right(sTmp, Len(sTmp) - InStr(sTmp, Chr(124)))
Loop
sTxt = Right(sTxt, Len(sTxt) - InStr(sTxt, vbLf))
iRow = iRow + 1
Loop
Loop
Close

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Laufzeitfehler '5' - ungültiger Prozeduraufruf
06.09.2005 13:03:26
Uduuh
Hallo,
wenn kein Linefeed in sTxt ist, gibt InStr 0 zurück. Und Left(stxt,-1) geht halt nicht.
Gruß aus’m Pott
Udo

AW: Laufzeitfehler '5' - ungültiger Prozeduraufruf
06.09.2005 13:21:44
Ralf
kann ich das ausschließen?
AW: Laufzeitfehler '5' - ungültiger Prozeduraufruf
06.09.2005 13:31:54
u_
Hallo,
if instr(stxt,vblf)&gt1 then ...
Gruß
Geist ist geil!
AW: Laufzeitfehler '5' - ungültiger Prozeduraufruf
07.09.2005 11:38:33
Ralf
so das funktioniert soweit.
jetzt bekomme ich einen Überlauf "Laufzeitfehler '6'"
Dim vAct As Variant
Dim iRow As Integer, iCol As Integer
Dim sTxt As String, sTmp As String
iRow = 8
Rows(iRow & ":" & Rows.Count).ClearContents
Close
Open "Y:\Weber Holztechnik GmbH\UMS.txt" For Input As #1
Do Until EOF(1)
Line Input #1, sTxt
Do While Len(sTxt) &gt 1
iCol = 0
If InStr(sTxt, vbLf) &gt 1 Then
sTmp = Left(sTxt, InStr(sTxt, vbLf) - 1)
End If
Do While Len(sTmp) &gt 1
iCol = iCol + 1
vAct = Left(sTmp, InStr(sTmp, Chr(124)) - 1)
If InStr(vAct, ",") Then
vAct = WorksheetFunction.Substitute(vAct, ",", ".")
End If
Cells(iRow, iCol).Value = vAct
sTmp = Right(sTmp, Len(sTmp) - InStr(sTmp, Chr(124)))
Loop
sTxt = Right(sTxt, Len(sTxt) - InStr(sTxt, vbLf))
===&gt iRow = iRow + 1 ==&gt Wert 32767
Loop
Loop
Close
Anzeige
AW: Laufzeitfehler '5' - ungültiger Prozeduraufruf
07.09.2005 11:40:01
Ralf
so das funktioniert soweit.
jetzt bekomme ich einen Überlauf "Laufzeitfehler '6'"
Dim vAct As Variant
Dim iRow As Integer, iCol As Integer
Dim sTxt As String, sTmp As String
iRow = 8
Rows(iRow & ":" & Rows.Count).ClearContents
Close
Open "Y:\Weber Holztechnik GmbH\UMS.txt" For Input As #1
Do Until EOF(1)
Line Input #1, sTxt
Do While Len(sTxt) &gt 1
iCol = 0
If InStr(sTxt, vbLf) &gt 1 Then
sTmp = Left(sTxt, InStr(sTxt, vbLf) - 1)
End If
Do While Len(sTmp) &gt 1
iCol = iCol + 1
vAct = Left(sTmp, InStr(sTmp, Chr(124)) - 1)
If InStr(vAct, ",") Then
vAct = WorksheetFunction.Substitute(vAct, ",", ".")
End If
Cells(iRow, iCol).Value = vAct
sTmp = Right(sTmp, Len(sTmp) - InStr(sTmp, Chr(124)))
Loop
sTxt = Right(sTxt, Len(sTxt) - InStr(sTxt, vbLf))
===&gt iRow = iRow + 1 ==&gt Wert 32767
Loop
Loop
Close
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige