nun das mit dem Array einlesen funktioniert dank eurer Hilfe inzwischen bestens, nur mit dem ersetzten der angeführten z.B. Μ in wieder lesbare Griechische Buchstaben, beiße ich mir die Zähne aus, will und will nicht gelingen.
Habe mir eine entsprechende Function erstellt, lese z.B. das Μ aus und suche dann dafür den entsprechenden Ersatz mit welchem ersetzt werden soll, nur er findet bei Vergabe mit Alt + 924 nicht das richtige Griechische Zeichen dafür.
Wer kann mir bitte sagen was ich da falsch mach?
Muster:
Function StringKML_to_StringKonform(Zeichenkette As String, DatSatz) As String
Dim ZeichenZuPruefen As String
Dim ZeichenketteSTRINGkonform As String
Dim CleanZeichenKette, SuchWert As String
Dim i, x, Anzahl, position1, position2 As Long
Dim Ranch_Bereich As String
Dim AR_ASCI, sArray As Variant
Dim Su_Array As Variant
Ranch_Bereich = "C39:F176" ' WebZeichen in ASCI-Zeichen Array einlesen
AR_ASCI = Worksheets("Icon BOA").Range(Ranch_Bereich).Value
sArray = AR_ASCI
Anzahl = 0
Anzahl = (Len(Zeichenkette) - Len(Replace(Zeichenkette, "&", "")))
If (DatSatz = 2 Or DatSatz = 4 Or DatSatz = 5 Or DatSatz = 9 Or DatSatz = 15) And Anzahl > 0 _
Then
Rem Stop
End If
CleanZeichenKette = Zeichenkette
If Anzahl > 0 Then
Su_Array = Split(Zeichenkette, "&")
For i = 1 To UBound(Su_Array)
If Right(Su_Array(i), 1) ";" Then
Su_Array(i) = Left(Su_Array(i), InStr(1, Su_Array(i), ";"))
End If
If Left(Su_Array(i), 1) "&" Then
Su_Array(i) = "&" & Su_Array(i)
End If
Next i
For i = 1 To UBound(Su_Array)
ZeichenZuPruefen = Su_Array(i)
Select Case ZeichenZuPruefen
Case "&": ZeichenZuPruefen = "&"
Case "": ZeichenZuPruefen = ">"
Case "Ͱ": ZeichenZuPruefen = "p"
Case "ͱ": ZeichenZuPruefen = "q"
Case "Ͳ": ZeichenZuPruefen = "r"
Case "ͳ": ZeichenZuPruefen = "s"
Case "ʹ": ZeichenZuPruefen = "t"
Case "͵": ZeichenZuPruefen = "u"
Case "Ͷ": ZeichenZuPruefen = "v"
Case "ͷ": ZeichenZuPruefen = "w"
Case "ͺ": ZeichenZuPruefen = "z"
Case "ͻ": ZeichenZuPruefen = "{"
Case "ͼ": ZeichenZuPruefen = "|"
Case "ͽ": ZeichenZuPruefen = "}"
Case ";": ZeichenZuPruefen = "~"
Case "Ϳ": ZeichenZuPruefen = "¦"
Case "΄": ZeichenZuPruefen = "ä"
Case "΅": ZeichenZuPruefen = "à"
Case "Ά": ZeichenZuPruefen = "å"
Case "·": ZeichenZuPruefen = "ç"
Case "Έ": ZeichenZuPruefen = "ê"
Case "Ή": ZeichenZuPruefen = "ë"
Case "Ί": ZeichenZuPruefen = "è"
Case "Ό": ZeichenZuPruefen = "0"
Case "": ZeichenZuPruefen = "ì"
Case "Ύ": ZeichenZuPruefen = "Ä"
Case "Ώ": ZeichenZuPruefen = "Å"
Case "ΐ": ZeichenZuPruefen = "É"
Case "Α": ZeichenZuPruefen = "æ"
Case "Β": ZeichenZuPruefen = "Æ"
Case "Γ": ZeichenZuPruefen = "ô"
Case "Δ": ZeichenZuPruefen = "ö"
Case "Ε": ZeichenZuPruefen = "ò"
Case "Ζ": ZeichenZuPruefen = "û"
Case "Η": ZeichenZuPruefen = "ù"
Case "Θ": ZeichenZuPruefen = "ÿ"
Case "Ι": ZeichenZuPruefen = "Ö"
Case "Κ": ZeichenZuPruefen = "Ü"
Case "Λ": ZeichenZuPruefen = "ø"
Case "Μ": ZeichenZuPruefen = "£"
Case "Ν": ZeichenZuPruefen = "Ø"
Case "Ξ": ZeichenZuPruefen = "×"
Case "Ο": ZeichenZuPruefen = ""
Case "Π": ZeichenZuPruefen = "á"
Case "Ρ": ZeichenZuPruefen = "í"
Case "Σ": ZeichenZuPruefen = "ú"
Case "Τ": ZeichenZuPruefen = "ñ"
Case "Υ": ZeichenZuPruefen = "Ñ"
Case "Φ": ZeichenZuPruefen = "ª"
Case "Χ": ZeichenZuPruefen = "º"
Case "Ψ": ZeichenZuPruefen = "¿"
Case "Ω": ZeichenZuPruefen = "®"
Case "Ϊ": ZeichenZuPruefen = "¬"
Case "Ϋ": ZeichenZuPruefen = "½"
Case "ά": ZeichenZuPruefen = "¼"
Case "έ": ZeichenZuPruefen = "¡"
Case "ή": ZeichenZuPruefen = "«"
Case "ί": ZeichenZuPruefen = "»"
Case "ΰ": ZeichenZuPruefen = "¦"
Case "α": ZeichenZuPruefen = "¦"
Case "β": ZeichenZuPruefen = "¦"
Case "γ": ZeichenZuPruefen = "¦"
Case "δ": ZeichenZuPruefen = "¦"
Case "ε": ZeichenZuPruefen = "Á"
Case "ζ": ZeichenZuPruefen = "Â"
Case "η": ZeichenZuPruefen = "À"
Case "θ": ZeichenZuPruefen = "©"
Case "ι": ZeichenZuPruefen = "¦"
Case "κ": ZeichenZuPruefen = "¦"
Case "μ": ZeichenZuPruefen = "+"
Case "ν": ZeichenZuPruefen = "¢"
Case "ξ": ZeichenZuPruefen = "¥"
Case "ο": ZeichenZuPruefen = "+"
Case "π": ZeichenZuPruefen = "+"
Case "ρ": ZeichenZuPruefen = "-"
Case "ς": ZeichenZuPruefen = "-"
Case "σ": ZeichenZuPruefen = "+"
Case "τ": ZeichenZuPruefen = "-"
Case "υ": ZeichenZuPruefen = "+"
Case "φ": ZeichenZuPruefen = "ã"
Case "χ": ZeichenZuPruefen = "Ã"
Case "ψ": ZeichenZuPruefen = "+"
Case "ω": ZeichenZuPruefen = "+"
Case "ϊ": ZeichenZuPruefen = "-"
Case "ϋ": ZeichenZuPruefen = "-"
Case "ό": ZeichenZuPruefen = "¦"
Case "ύ": ZeichenZuPruefen = "-"
Case "ώ": ZeichenZuPruefen = "+"
Case "Ϗ": ZeichenZuPruefen = "¤"
Case "ϐ": ZeichenZuPruefen = "ð"
Case "ϑ": ZeichenZuPruefen = "Ð"
Case "ϒ": ZeichenZuPruefen = "Ê"
Case "ϓ": ZeichenZuPruefen = "Ë"
Case "ϔ": ZeichenZuPruefen = "È"
Case "ϕ": ZeichenZuPruefen = "i"
Case "ϖ": ZeichenZuPruefen = "Í"
Case "ϗ": ZeichenZuPruefen = "Î"
Case "Ϙ": ZeichenZuPruefen = "Ï"
Case "ϙ": ZeichenZuPruefen = "+"
Case "Ϛ": ZeichenZuPruefen = "+"
Case "ϛ": ZeichenZuPruefen = "¦"
Case "Ϝ": ZeichenZuPruefen = "_"
Case "ϝ": ZeichenZuPruefen = "¦"
Case "Ϟ": ZeichenZuPruefen = "Ì"
Case "ϟ": ZeichenZuPruefen = "¯"
Case "Ϡ": ZeichenZuPruefen = "Ó"
Case "ϡ": ZeichenZuPruefen = "-"
Case "Ϣ": ZeichenZuPruefen = "Ô"
Case "ϣ": ZeichenZuPruefen = "Ò"
Case "Ϥ": ZeichenZuPruefen = "õ"
Case "ϥ": ZeichenZuPruefen = "Õ"
Case "Ϧ": ZeichenZuPruefen = "µ"
Case "ϧ": ZeichenZuPruefen = "þ"
Case "Ϩ": ZeichenZuPruefen = "Þ"
Case "ϩ": ZeichenZuPruefen = "Ú"
Case "Ϫ": ZeichenZuPruefen = "Û"
Case "ϫ": ZeichenZuPruefen = "Ù"
Case "Ϭ": ZeichenZuPruefen = "ý"
Case "ϭ": ZeichenZuPruefen = "Ý"
Case "Ϯ": ZeichenZuPruefen = "¯"
Case "ϯ": ZeichenZuPruefen = "´"
Case "ϰ": ZeichenZuPruefen = ""
Case "ϱ": ZeichenZuPruefen = "±"
Case "ϲ": ZeichenZuPruefen = "="
Case "ϳ": ZeichenZuPruefen = "¾"
Case "ϴ": ZeichenZuPruefen = "è"
Case "ϵ": ZeichenZuPruefen = "§"
Case "϶": ZeichenZuPruefen = "÷"
Case "Ϸ": ZeichenZuPruefen = "¸"
Case "ϸ": ZeichenZuPruefen = "°"
Case "Ϲ": ZeichenZuPruefen = "¨"
Case "Ϻ": ZeichenZuPruefen = "·"
Case "ϻ": ZeichenZuPruefen = "¹"
Case "ϼ": ZeichenZuPruefen = "³"
Case "Ͻ": ZeichenZuPruefen = "²"
Case "Ͼ": ZeichenZuPruefen = "¦"
Case "Ͽ": ZeichenZuPruefen = "?"
End Select
ZeichenketteSTRINGkonform = ZeichenketteSTRINGkonform & ZeichenZuPruefen
Next i
StringKML_to_StringKonform = ZeichenketteSTRINGkonform 'CleanZeichenKette
Else
StringKML_to_StringKonform = CleanZeichenKette
End If
Anzahl = 0
End Function
komisch da wandelt er es gleich richtig um und man sieht die "Μ" nicht mehr