ich habe ein Makro geschrieben, dass mir aus einer Calc-Tabelle (mit Terminen) eine ICS Datei macht!
Dabei suche ich nach Umlauten und wandele sie um, damit ich in der ICS Datei keine Probleme bekommen.
Ich benutze das Makro nur einmal im Jahr.
Bei dem aktuellen Umlauf ist mir aufgefallen, dass, wenn ich einen String mit einem SS zum Umwandel schicke, er immer denkt, dass er ein ß gefunden hat und damit aus "Kasse" im ersten umlauf "Kassse", im zweiten Umlauf "Kasssse" und so weiter wird. Fazit das Makro "hängt"
Das habe ich so noch nicht gehabt.
Kann mir jemand einen Tipp geben wie ich das Problem lösen kann?
Anbei der Codeschnipsel für die Umwandlung
Code: Alles auswählen
Function RemoveUmlaute(sDescription as String) as String
sDummy = ""
REM .........GELÖSCHTER BEREICH..............
If CBool(Instr(sDescription, "ß")) Then
sDummy=""
Do
' alle Vorkommen des ß umwandeln!
sDummy = Left(sDescription,Instr(sDescription,"ß")-1) + "ss" + Right(sDescription,len(sDescription) - Instr(sDescription,"ß"))
sDescription = sDummy
Loop until not CBool(Instr(sDescription, "ß"))
endIf
Windows: 10p Libreoffice 7.2.0.4