Frage zu einem kaputten Visual-Basic-Script in Excel für Windows
Moin.
Ich habe hier eine Excel-Tabelle mit folgendem Makro:
Irgend etwas hat dieses Makro verändert. Denn ursprünglich enthielten die Anweisungen returnVal = Replace() nicht wie jetzt kryptische Sonderzeichen sondern sollten einfach nur die Umlaute durch Selbstlaute ohne Pünktchen ersetzen.
Warum ist das Skript kaputt?
Und wie muss ich vorgehen, damit das Skript wieder funktioniert?
Ich habe hier eine Excel-Tabelle mit folgendem Makro:
Show Plain Text
- Public Function WasDerBauerNichtFrisst(theValue As Range)
- Dim returnVal As String
- Dim theChar As Integer
- Dim replacement As String
- replacement = "_"
- returnVal = theValue.Text
- returnVal = Replace(returnVal, "€", "A")
- returnVal = Replace(returnVal, "…", "O")
- returnVal = Replace(returnVal, "†", "U")
- returnVal = Replace(returnVal, "Š", "a")
- returnVal = Replace(returnVal, "š", "o")
- returnVal = Replace(returnVal, "Ÿ", "u")
- returnVal = Replace(returnVal, "§", "s")
- returnVal = Replace(returnVal, " ", "")
- For i = 1 To Len(returnVal)
- theChar = AscW(Mid$(returnVal, i))
- ' A..Z a..z 0..9 &
- If (theChar >= 65 And theChar <= 90) Or _
- (theChar >= 97 And theChar <= 122) Or _
- (theChar >= 48 And theChar <= 57) Or _
- (theChar = 38) Then
- '' Frisst der Bauer
- Else
- '' Frisst er nicht
- returnVal = Left(returnVal, i - 1) & replacement & Mid(returnVal, i + 1)
- End If
- Next i
- WasDerBauerNichtFrisst = returnVal
- End Function
Irgend etwas hat dieses Makro verändert. Denn ursprünglich enthielten die Anweisungen returnVal = Replace() nicht wie jetzt kryptische Sonderzeichen sondern sollten einfach nur die Umlaute durch Selbstlaute ohne Pünktchen ersetzen.
Warum ist das Skript kaputt?
Und wie muss ich vorgehen, damit das Skript wieder funktioniert?