An dem Schritt, bei dem das mit Zellen funktioniert, sind wir noch nicht angelangt. ;)
Wenn du den Code im VBA-Editor in ein Modul gepackt hast, geh' ins Menü Ausführen -> Makro ausführen (bzw. drück die Taste F5) und wähle "Test" aus und Klick dann auf "Ausführen".
Solltest du das unten im Bild zu sehende Direktfenster bei dir nicht sehen, gehe ins Menü Ansicht und klick dort auf den Punkt Direktfenster.
Wenn du andere Ausdrücke ausprobieren möchtest, passe die Zeile 9 im Quelltext an:
(also diese hier)
'einfach mal drei Beispiele
vntExpr = Array("Apfel100gelb", "Äpfel98ge lb", "Ap-fel1.00Farbegelb")
Wenn du es direkt aus einer Zelle nehmen willst, sagen wir vom Tabellenblatt "Tabelle1" aus Zelle B3, dann ändere Zeile 9 wie folgt ab:
vntExpr = Array(Worksheets("Tabelle1").Range("B3"))
Grüße
|