Archive for: ‘November 2005’

@Formeln schnell testen

24. November 2005 Posted by Manfred Meise

Sie wollen eine erstellte Formel schnell testen? Dann bentigen Sie 4 Tastaturanschlge ...
  • kopieren Sie die Formel in die Zwischenablage (CTRL-C),
  • rufen Sie ein neues Memo auf (CTRL-M),
  • fgen den Inhalt der Zwischenablage in die "Betreff"-Zeile ein (CTRL-V)
  • und fhren sie dort aus (SHIFT-F9)

Ist doch einfach!!  

Zeichen aus anderen Zeichenstzen erstzen

22. November 2005 Posted by Manfred Meise

Manchmal beinhalten Zeichenketten Zeichen aus anderen Zeichenstzen. Diese knnen mit nachfolgendem Script schnell ersetzt werden.

Function
ReplaceChars(Byval sSource As String) As String
      Dim vReplace(28) As Variant
      Dim vReplacement(28) As Variant
      Dim vResult As Variant
     
      vReplace(0) = ""
      vReplacement(0) = "Ae"
      vReplace(1) = ""
      vReplacement(1) = "ae"
      vReplace(2) = ""
      vReplacement(2) = "Oe"
      vReplace(3) = ""
      vReplacement(3) = "oe"
      vReplace(4) = ""
      vReplacement(4) = "Ue"
      vReplace(5) = ""
      vReplacement(5) = "ue"
      vReplace(6) = ""
      vReplacement(6) = "ss"
      vReplace(7) = "Å"
      vReplacement(7) = "A"
      vReplace(8) = ""
      vReplacement(8) = "a"
      vReplace(9) = ""
      vReplacement(9) = "a"
      vReplace(10) = "à"
      vReplacement(10) = "a"
      vReplace(11) = "å"
      vReplacement(11) = "a"
      vReplace(12) = ""
      vReplacement(12) = "E"
      vReplace(13) = ""
      vReplacement(13) = "e"
      vReplace(14) = "è"
      vReplacement(14) = "e"
      vReplace(15) = "ê"
      vReplacement(15) = "e"
      vReplace(16) = ""
      vReplacement(16) = "C"
      vReplace(17) = ""
      vReplacement(17) = "c"
      vReplace(18) = "Æ"
      vReplacement(18) = "Ae"
      vReplace(19) = "æ"
      vReplacement(19) = "ae"
      vReplace(20) = ""
      vReplacement(20) = "o"
      vReplace(21) = "ò"
      vReplacement(21) = "o"
      vReplace(22) = ""
      vReplacement(22) = "o"
      vReplace(23) = "û"
      vReplacement(23) = "u"
      vReplace(24) = ""
      vReplacement(24) = "u"
      vReplace(25) = "ÿ"
      vReplacement(25) = "y"
      vReplace(26) = ""
      vReplacement(26) = "i"
      vReplace(27) = "Ñ"
      vReplacement(27) = "N"
      vReplace(28) = "ñ"
      vReplacement(28) = "n"
     
      vResult = Replace(sSource, vReplace, vReplacement)
     
      ReplaceChars = vResult
End
Function