Punkt in Komma
22.01.2004 08:27:52
Jasmin
ich möchte einen Punkt in ein Komma umwandeln. Hier mein Code:
Sub PunktDurchKommaErsetzen()
Dim codealt As String, codeneu As String
Dim i As Integer, Number As Integer, ch As String
Dim AlteDatei, Kopie As String
AlteDatei = Application.GetOpenFilename '("Exceldateien (*.xls), *.xls", , "Datei auswählen")
If AlteDatei = False Then Exit Sub
Kopie = Left(AlteDatei, Len(AlteDatei) - 4) & "_Neu" & ".xls"
MsgBox "Die konvertierte Datei wird unter dem Namen: " & Kopie & " gespeichert", vbInformation, "Speichern der Kopie"
codealt = "."
codeneu = ","
'Der Code für ein , ist 44, der für einen . ist 46 (ASC-Funktion)
Open AlteDatei For Input As 1
Open Kopie For Output As 2
While EOF(1) = False
ch = Input(1, #1)
If ch = codealt Then ch = codeneu
Print #2, ch;
Wend
Close 1
Close 2
End Sub
Leider läufts nicht. Wer weiß Rat?
Grüße Jasmin