mid funktion

F

Fichte

Grünschnabel
hallo,

habe ein problem mit der mid funktion .... lese daten in excel ein und schreibe sie dann in eine .txt datei, dabei muss ich die kommas durch punkte ersetzen was auch auf meinem Rechner (MVB 6.0, Excell 2000) funktioniert nun bin ich mit dem Programm auf einen anderen Rechner gegangen (Excell 2002) und ich bekomme die Fehlermeldung das er das Objekt, bibliothek nicht erkennt :

For I = 1 To Len(number)
t = Mid(number, I, 1) <- hier erkennt er die mid funktion nicht mehr
If t = "," Then
dummy = dummy + "."
Else
dummy = dummy + t
End If
Next

das selbe problem habe ich mit "date":

Dateold = Format(Date, "ddmmyy") <- hier erkennt er date nicht

es wäre toll falls jemand dieses problem schonmal gelöst hat, denn ich hänge im moment gerade ein wenig fest.

fichte
 
Also dein Beispiel funktioniert bei mir unter MS Excel 2002 wunderbar. Könnte mir höchstens vorstellen, dass irgendetwas mit deinem MS Excel 2002 nicht stimmt. Vielleicht solltest du es noch mal installieren.

Noch was anderes, warum benutzt du eigentlich dafür MID und nicht REPLACE?
Zwar geht beides, aber REPLACE ist platzsparender.

Beispiel :

dummy = Replace$(Number, ",", ".")

netzbazille
 
Hei,

habe es anfangs mit replace versucht weiss allerdings nicht wie ich dort eine variable einfügen kann, da ständig mit neuen werten (number) auf meine funktion zugegriffen wird daher hatte ich mich für die mid funktion entschieden .....

gruss fichte
 
Wenn ich dich richtig verstanden habe, geht es einfach so :

Number = "9,8"
FindStr = ","
NewStr = "."

dummy = Replace$(Number,FindStr,NewStr)

ergibt :
dummy = "9.8"

Gruß

netzbazille
 
Um antworten zu können musst du eingeloggt sein.

Neue Beiträge

Zurück