Aktueller Inhalt von MaxPower

Vielen dank! In der ("Stoerungshilfe_ID") steht immer erstmal ne null.

eine idee hab ich noch wenn er die Variable "field" als string anlegt und dann versucht ne Int in eine string reinzuladen, kann es sein das er das dann einfach nicht macht?

Ok dann weis ich nicht weiter, tatsache ist Ich hatte eine Variable benutzt die angelegt war und diese den datentyp Int gegeben und es ging nicht und es wurden auch immer nur zahlen in das E/A-feld eingegeben. Trotzdem vielen lieben dank!!!!!

Vielen dank Harald, natürlich habe ich ("Stoerungshilfe_ID") nicht aber das habe ich schon vorher angepasst und die Variable war als Int definiert, und habe es dann als Real getestet ging auch nicht, UInt habe ich nicht probiert und String geht. Meine Vermutung: Smarttags müssen als String...

habs hab die ("Stoerungshilfe_ID") als String definiert

Hallo nochmal, also das skript funktioniert, bis auf eine außnahme: die SmartTags("Stoerungshilfe_ID") benutzt er einfach nicht. Sprich wenn ich aus dieser zeile If field(0) = SmartTags("Stoerungshilfe_ID") If field(0) = 1 bzw 2, 3 und so weiter mache dann liest er die Zeile, aber nicht wenn...

Vielen dank hat mich schon ein gutes stück weiter gebracht, ich gebe morgen noch mal rückmeldung, ganz haut es noch nicht hin schönen Abend

Soll ich die CSV hier hochladen?

nicht lachen das ist erstmal nur eine Probe .csv Sorry

naja die .csv hat am Ende ca 7500 Zeilen

Warum nicht ist Int besser? Er muss in der .csv die richtige Zeile benutzen Also ja das Skript muss er erstmal "anfahren" ja mit Eingabe der ID der Fehlermeldung ist die Zeile bekannt da ID=Zeile

Zwei Dimensional, eben lade Zeile und dann Lade 10 Spalten, die einzelnen Spalten "Smarttags" lade ich dann hier rein die Variablen hinter den Smarttags sind vom Typ String da hier in der .csv ein Text drin steht gerne nehme ich auch einen komplett anderen Lösungsansatz

HiField(1,10) Diese 1 muss ich irgendwie von außen bevor das Skript anfängt zu arbeiten beeinflussen können

Dim fso, f, ts, Path, field, MyZf, i, j, HiField(5000,10) i=0 j=0 Path = "c:\Siemens\Stoerungshilfe.csv" On Error Resume Next Set fso = CreateObject("Scripting.FileSystemObject") If Err.Number <> 0 Then Err.Clear Exit Sub End If Set f = fso.OpenTextFile(Path, 1, 0, -2) If...