|
Hallo,
hm, merkwürdig, heute sieht das auf meinem Rechner auch richtig gut aus. Komisch, das war echt buggy letztens?!?
ja, klar, den Code kann man ganz einfach erweitern. Es gibt die beiden Arrays
kuerzel = Array("A123", "A124", "A125")
texte = Array(vbCrLf & ":Kunde anschreiben", vbCrLf & ":blabl bla bla", ":Bla bla bla 2")
in welche du das Kürzel und den dazugehörigen Text in der richtigen (identischen) Reihenfolge eintragen musst:
kuerzel = Array("Abkürzung1", "Abkürzung2", "Abkürzung3", "Abkürzung4")
texte = Array("Text1", "Text2", "Text3", "Text4")
Die einzelnen Elemente in den Arrays müssen Strings (Zeichenketten) sein und du musst sie durch Komma trennen. Das ist schon alles. Falls das aus dem Beispiel für dich nich ausreichend klar wird, einfach noch mal nachfragen.
Ich weiß nicht, ob 100 dann nicht irgendwann zu viel wird (zu viel Rechenzeit benötigt). Das musst du einfach ausprobieren.
Wenn die Abkürzungen immer ein "A" gefolgt von drei Ziffern sind, dann könnte man die Rechenzeit evtl. auch herabsetzen, indem man noch eine Abfrage einfügt. Spontan fällt mir da ein:
Function ersetze_Abkuerzungen(ByVal txt As String) As String
Dim kuerzel, texte
Dim i As Long
If Right(txt, 4) Like "A###" Then
kuerzel = Array("A123", "A124", "A125")
texte = Array(vbCrLf & ":Kunde anschreiben", vbCrLf & ":blabl bla bla", ":Bla bla bla 2")
For i = 0 To 2 'LBound(kuerzel) To UBound(kuerzel)
txt = Replace(txt, kuerzel(i), texte(i))
Next
End If
ersetze_Abkuerzungen = txt
End Function
Es gibt ja auch noch den anderen Ideen-Ast, kannst natürlich auch den verwenden.
Grüße, Ulrich
|