<\/p>\n
Autor: Karl Donaubauer, Wien<\/p>\n
<\/b><\/p>\n
Es gibt einige VBA-Funktionen, die sehr nützlich sind, aber so gut wie keinen Bekanntheitsgrad haben. Das liegt vor allem daran, dass diese Funktionen von ihren Erschaffern nur sehr stiefmütterlich behandelt werden – z. B. im Falle neuer Funktionen, die in der Online-Hilfe von Access einfach nicht unter den Neuheiten zu finden sind. Daher ist es kaum verwunderlich, dass diese Funktionen von Access-Entwicklern recht selten eingesetzt werden. Anders ist dies bei Word-Programmierern, die aufgrund ihrer Textlastigkeit meist gut mit diesen Funktionen vertraut sind. Damit auch Sie in Zukunft von diesen Stiefkindern profitieren können, finden Sie im vorliegenden Beitrag eine Beschreibung interessanter, aber verwaister VBA-Funktionen.<\/b><\/p>\n
Alle Funktionen, die hier behandelt werden, sind Teil der VBA-Bibliothek (Datei: vbe6.dll bzw. Vorgänger\/Nachfolger) und zwar in den Klassen Interaction (Choose, Switch) und String (alle anderen).<\/p>\n
Sie vollbringen keine weltbewegenden Dinge, können aber verschiedene Operationen vereinfachen, die oft mit viel zu komplizierten Konstruktionen oder Workarounds gelöst werden.<\/p>\n
Schon lange Bestandteil von VBA bzw. bereits von Access-Basic sind die Funktionen Choose, Switch und StrComp ab Access 1.0, StrConv ab Access 95. Neu ab VBA 6 d. h. ab Access 2000 sind InStrRev, Join, Replace, Split und StrReverse.<\/p>\n
Das Schattendasein dieser neueren Funktionen ist nicht verwunderlich. Sie werden, wenn überhaupt, nur durch Zufall z. B. im Objektkatalog (siehe Bild 1) oder in der Online-Hilfe gefunden. Sie treten jedoch nicht in der Liste der Neuheiten in der ohnehin mangelhaften Online-Hilfe von Access 2000 oder Access 2002 auf. In Tabelle 1 finden Sie eine Zusammenstellung der vorgestellten Funktionen.<\/p>\n
| \n Funktion<\/b><\/p>\n<\/td>\n | \n Wirkung<\/b><\/p>\n<\/td>\n<\/tr>\n Choose<\/p>\n<\/td>\n Auswahl eines Eintrags einer Liste in Abhängigkeit vom Index<\/p>\n<\/td>\n<\/tr>\n Switch<\/p>\n<\/td>\n Anzeige des ersten wahren Ausdrucks einer Liste<\/p>\n<\/td>\n<\/tr>\n InStrRev<\/p>\n<\/td>\n Ausgabe der letzten Position einer Zeichenfolge, die eine bestimmte Zeichenkette enthält<\/p>\n<\/td>\n<\/tr>\n Replace<\/p>\n<\/td>\n Ersetzen einer Zeichenfolge durch eine andere<\/p>\n<\/td>\n<\/tr>\n StrComp<\/p>\n<\/td>\n Vergleich zweier Zeichenfolgen<\/p>\n<\/td>\n<\/tr>\n StrConv<\/p>\n<\/td>\n Umwandlung einer Zeichenfolge nach bestimmten Regeln<\/p>\n<\/td>\n<\/tr>\n Join<\/p>\n<\/td>\n Aneinanderhängen der Teile eines Arrays<\/p>\n<\/td>\n<\/tr>\n Split<\/p>\n<\/td>\n Zerlegen einer Zeichenfolge in einzelne Teile eines Arrays<\/p>\n<\/td>\n<\/tr>\n StrReverse<\/p>\n<\/td>\n Umdrehen einer Zeichenfolge<\/p>\n<\/td>\n<\/tr>\n<\/table>\n Tab. 1: VBA-Funktionen und deren Wirkung<\/b><\/p>\n Die Funktion Choose gibt den durch den Index festgelegten Wert aus der angebotenen Auswahlliste zurück. Die Syntax lautet folgendermaßen:<\/p>\n <\/b><\/p>\n Bild 1: Der Objektkatalog (hier von Access 2000) zeigt bekannte und wenig bekannte Funktionen relativ übersichtlich mit ihrer Klassenzugehörigkeit.<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 2: Formular mit Optionsgruppe<\/span><\/b><\/p>\n Folgendes Beispiel zeigt die Funktionsweise der Funktion:<\/p>\n Als Ergebnis gibt die Funktion den 3.Eintrag („C“) aus. Eine sinnvolle Verwendung in der Praxis findet die Funktion Choose im Zusammenhang mit Werten, die man in Formularen mithilfe von Optionsgruppen eingibt.<\/p>\n Ein Beispiel ist die Bewertung der Zahlungsmoral von Kunden, die man in einem Tabellenfeld namens Zahlungsmoral vom Typ Zahl mit der Größe Byte speichern kann. Die Werteskala ist 1, 2, 3, 4, 5 – im Sinne von sehr gut, gut, normal, schlecht und sehr schlecht.<\/p>\n Zur Eingabe im Formular wird man hier eine Optionsgruppe verwenden (siehe Bild 2). Die Rückverwandlung in Text – z. B. zum Drucken in einem Bericht – erfolgt meist mit If-Then- oder Select-Case-Konstruktionen. Eine bloße Umwandlung von Zahlen in Texte funktioniert jedoch einfacher mit der Funktion Choose.<\/p>\n Um im Code des Berichtes Zugriff auf das Tabellenfeld Zahlungsmoral zu haben, muss das Feld im Bericht vorhanden sein. Die Eigenschaft Sichtbar des Feldes wird auf Nein eingestellt, denn statt des Inhalts des Tabellenfeldes soll ja der Text angezeigt werden. Zur Anzeige des Textwertes wird ein ungebundenes Textfeld txtMoral im Detailbereich eingefügt.<\/p>\n Im Ereignis Beim Formatieren des Detailbereiches benötigt man dann nur noch eine Codezeile für die Umwandlung der Zahl in Text (s. Quellcode 1). Bild 3 zeigt die Verwendung der Funktion Choose in einem Bericht.<\/p>\n <\/b><\/p>\n Bild 3: Bericht mit Bewertung als Text<\/span><\/b><\/p>\n Quellcode 1<\/b><\/p>\n Die Funktion Choose lässt sich nicht nur in VBA, sondern auch in Ausdrücken z. B. in einem Steuerelementinhalt verwenden. In dieser deutschen Version heißt die Funktion Wählen. So kann man in obigem Beispiel die Darstellung der Textwerte noch einfacher auch über den folgenden Steuerelementinhalt des Steuerelementes txtMoral regeln: <\/p>\n Manche mühsame und schwer lesbare Wenn-Konstruktion kann dadurch ersetzt werden – nicht nur in Steuerelementinhalten und bei anderer Verwendung in Formularen und Berichten. Die Funktion Choose lässt sich auch in Kriterien von Abfragen einsetzen.<\/p>\n Die Funktion Switch gibt den ersten Ausdruck aus einer Liste zurück, der wahr ist. Sie hat die folgende Syntax:<\/p>\n Das folgende Beispiel beschreibt die Funktionsweise der Funktion:<\/p>\n Wenn das Rechnungsdatum vor dem 1.1.2002 liegt, wird DM zurückgegeben. Falls dieser erste Ausdruck nicht wahr ist, sondern der zweite, d. h. das Rechnungsdatum liegt vor dem 1.3.2002 (in amerikanischer Schreibweise Monat\/Tag\/Jahr), wird DM\/EUR ausgewählt. Falls das Rechnungsdatum später liegt, wird der dritte Wert EUR gewählt.<\/p>\n Es werden übrigens immer alle Ausdrücke durchlaufen, auch wenn stets nur der erste zutreffende ausgewählt wird.<\/p>\n Daher gibt es z. B. einen Fehler, falls in irgendeinem der Ausdrücke eine Division durch 0 erfolgt.<\/p>\n Die Funktion Switch findet praktische Anwendung, wenn mit komplexeren Kriterien als bloß einer aufsteigenden Zahl (wie bei Choose) aus einigen Optionen ausgewählt werden soll.<\/p>\n Quellcode 2<\/b><\/p>\n Quellcode 3<\/b><\/p>\n Das erste Beispiel ist eine Funktion, bei der es darum geht, Anreden für einen Serienbrief zu erzeugen. Je nachdem, ob der Ansprechpartner männlich, weiblich oder unbekannt ist, gibt die Funktion eine passende Anrede zurück (s. Quellcode 2).<\/p>\n <\/p>\n Durch die Verwendung des Operators Like und des Platzhalters * wird sichergestellt, dass auch Kurzanreden mit Titel wie Herr Direktor, Frau Dr. usw. korrekt behandelt werden.<\/p>\n Der Aufruf der Funktion sieht so aus:<\/p>\n Steht im Feld mit der Kurzanrede z. B. Frau Vorsitzende, so gibt die Funktion Sehr geehrte Frau Vorsitzende zurück. Ist das Feld mit der Kurzanrede hingegen leer, trifft die dritte Variante zu und es wird Sehr geehrte Damen und Herren! zurückgeliefert.<\/p>\n Die Funktion Switch lässt sich wie Choose auch in Ausdrücken verwenden und heißt dann Schalter.<\/p>\n Das folgende Beispiel setzt ein Feld namens Umsatz voraus. Ein Steuerelement könnte dann folgenden Inhalt haben:<\/p>\n Je nach der Höhe des Wertes im Feld Umsatz wird der passende Text angezeigt.<\/p>\n Ob man Switch oder besser Wenn verwenden sollte, hängt vor allem von der Anzahl der zur Auswahl stehenden Varianten ab. Sobald etwa eine Wenn-Anweisung mehrfach verschachtelt werden müsste, ist die Funktion Switch übersichtlicher.<\/p>\n Die Funktion InStrRev gibt die letzte Position zurück, an der eine Zeichenfolge innerhalb einer anderen Zeichenfolge auftritt. Mit der InStrRev-Funktion kann also geprüft werden, an welcher Stelle bestimmte Zeichen in einem Text zuletzt vorkommen.<\/p>\n Die Funktion hat die folgende Syntax:<\/p>\n Dabei enthält stringcheck die zu durchsuchende Zeichenfolge, stringmatch die gesuchte Zeichenfolge, start die Position, ab der gesucht werden soll, und compare die Art des Vergleiches.<\/p>\n Wichtig sind vor allem die Varianten vbBinaryCompare (binärer Vergleich) und vbTextCompare. Folgendes Beispiel verdeutlicht die Funktionsweise:<\/p>\n Die Funktion gibt als Ergebnis den Wert 6 zurück.<\/p>\n Eine praktische Verwendungsmöglichkeit ist das Extrahieren eines Dateinamens oder der Dateinamen-Erweiterung (Extension) aus einem gegebenen Pfad.<\/p>\n In Versionen vor Access 2000 muss man mit einer Schleife (und der InStr-Funktion) durch den Pfad laufen, um zu erfahren, wo der letzte Backslash (\\) vorkommt – dies entspricht der Stelle, an der der eigentliche Dateiname beginnt. Die InStrRev-Funktion erleichtert diese Suche (Quellcode 3).<\/p>\n Mit dem folgenden Aufruf dieser Funktion erhalten Sie beispielsweise die Meldung aus Bild 4:<\/p>\n <\/b><\/p>\n Bild 4: InstrRev() hilft beim Extrahieren von Teilen eines Dateipfades.<\/span><\/b><\/p>\n Die Funktion Replace ersetzt einen Teil einer Zeichenfolge durch einen anderen. Sie hat die folgende Syntax:<\/p>\n Die verwendeten Parameter haben folgende Funktion:<\/p>\n Folgendes Beispiel verdeutlicht die Funktionsweise der Funktion Replace:<\/p>\n Die Funktion übergibt den Text Wundervolle Befehle von VBA an die Variable Ergebnis.<\/p>\n Da es bis Access 2000 nur die nicht sehr komfortable Mid-Anweisung zum Ersetzen von Zeichenfolgen gab, existieren viele benutzerdefinierte Funktionen mit mehr oder weniger komplizierten Schleifenkonstruktionen. Die meisten dieser selbst gebastelten Funktionen können nun durch das einfachere Replace ersetzt werden.<\/p>\n Ein häufiger Anwendungsfall für die Funktion Replace ergibt sich in Aktualisierungsabfragen. In Ausdrücken heißt die Replace-Funktion Ersetzen. Wenn man z. B. Leerzeichen in einem Textfeld loswerden möchte, so geht das nun ohne komplizierte Programmierung. Es reicht ein Ausdruck in der Zeile Aktualisieren der Aktualisierungsabfrage: <\/p>\n Dadurch werden alle Leerzeichen im angegebenen Feld durch leere Zeichenketten ersetzt.<\/p>\n Eine wichtige Anmerkung, die mehrere der hier geschilderten Funktionen betrifft, die mit VBA 6 bzw. Access 2000 eingeführt wurden: <\/p>\n Bei manchen Installationen kommt es vor, dass diese neuen Funktionen nur im VBA-Code funktionieren, nicht jedoch in Ausdrücken d. h. in ihrer eingedeutschten Version. Das kann in zwei Abstufungen auftreten.<\/p>\n Die schlimme Version ist, dass eine Funktion wie Replace außerhalb des VBA-Codes überhaupt nicht erkannt wird.<\/p>\n Die Fehlermeldung lautet dann Undefinierte Funktion ‚Replace“ in Ausdruck. Ich kenne keine offizielle Stellungnahme von MS dazu.<\/p>\n Die Gründe liegen also im Dunkeln. Es fällt nur auf, dass das Problem oft auftritt, wenn keines der Service Packs für Office 2000 installiert ist. Falls der Fehler erscheint, sollten Sie also versuchen, am besten gleich das Service Pack 2 zu installieren.<\/p>\n Eine zweite Version sieht so aus, dass zwar die Funktionen wie Replace erkannt und korrekt ausgeführt werden. Sie werden aber weder automatisch groß geschrieben – was sonst standardmäßig in Ausdrücken passiert – noch werden sie auf Deutsch übersetzt. Der Fehler ist nicht weiter tragisch. Verwenden Sie einfach die englischen Funktionsnamen.<\/p>\n Mit Access 2002 scheint Microsoft diese Probleme behoben zu haben. Zumindest habe ich bisher keine Installation gesehen, bei der Replace in Ausdrücken nicht sauber in Ersetzen übersetzt und ausgeführt wurde.<\/p>\n Die Funktion StrComp gibt eine Zahl zurück, die anzeigt, ob zwei Zeichenfolgen gleich sind. Sie hat die folgende Syntax:<\/p>\n Die Parameter Zeichenfolge1 und Zeichenfolge2 enthalten die zu vergleichenden Zeichenfolgen. Der Parameter Compare beinhaltet die Art des Vergleiches.<\/p>\n In der Praxis sind folgende Werte für das Argument Compare wichtig:<\/p>\n Die Funktion hat die folgenden Rückgabewerte:<\/p>\n Die folgenden zwei Beispiele verdeutlichen die Funktionsweise der Funktion:<\/p>\n Während der erste Funktionsaufruf den Wert 0 für zwei gleiche Zeichenfolgen zurückgibt, ergibt der zweite Funktionsaufruf den Wert 1. Dies bedeutet, dass die Zeichenfolgen nicht gleich sind.<\/p>\n Genau das ist auch der entscheidende Punkt für die praktische Verwendung der StrComp-Funktion. Access unterscheidet normalerweise nicht zwischen Groß- und Kleinschreibung (Stichwort: case sensitiv) oder auch zwischen scharfem s (ß) und doppeltem s (ss).<\/p>\n Beides lässt sich jedoch mithilfe von StrComp und binärem Vergleich erreichen. Das kann in vielen Situationen, z. B. in Abfragen, zur Unterscheidung von Feldinhalten nützlich sein.<\/p>\n Das vorherige Beispiel würde in einer Abfrage so aussehen:<\/p>\n Als Ergebnis erhält man wieder 1 und weiß damit, dass die Zeichenfolgen nicht gleich sind und die erste Zeichenfolge in der ASCII-Tabelle wegen der Kleinbuchstaben vor der zweiten liegt.<\/p>\n Bei dieser Gelegenheit sollen einmal zusammenfassend die Unterschiede bei der Verwendung von VBA-Funktionen in Ausdrücken, wie z. B. in Abfragen, im Gegensatz zur Verwendung im Code aufgeführt werden:<\/p>\n Die Funktion StrConv gibt eine nach bestimmten Regeln umgewandelte Zeichenfolge zurück. Sie hat folgende Syntax:<\/p>\n Der Parameter Conversion gibt die Art der Umwandlung an. Dabei gelten folgende Werte:<\/p>\n Weitere, in der Praxis nicht besonders wichtige Varianten finden Sie in der Online-Hilfe. Der zweite Parameter LCID enthält die Gebietsschema-ID für den Zeichenvergleich. Voreinstellung ist die des Betriebssystems.<\/p>\n Die Funktionsweise wird durch folgendes Beispiel verdeutlicht:<\/p>\n Entsprechend dem verwendeten Wert für den Parameter gibt die Funktion den Ausdruck MEIN TEXT zurück.<\/p>\n Die komplette Umwandlung in Groß- oder Kleinbuchstaben ist oft eine sinnvolle Sache. Noch nützlicher in der Praxis ist jedoch die Variante vbProperCase des Argumentes Conversion. Man kann damit z. B. dafür sorgen, dass schlampig eingetippte Vor- und Nachnamen mit großen Anfangsbuchstaben versehen werden:<\/p>\n ergibt beispielsweise Herr Franz Müller.<\/p>\n Die deutsche Version – z. B. für eine Abfrage – sieht so aus:<\/p>\n Dabei wird man im Regelfall natürlich eher mit Feldnamen arbeiten. Ein gutes Beispiel ist wiederum eine Aktualisierungsabfrage. Dort würde man in der Zeile Aktualisieren einer Aktualisierungsabfrage für das Textfeld Vorname den folgenden Ausdruck einsetzen:<\/p>\n Damit erhalten alle Vornamen große Anfangsbuchstaben. Vorsicht ist jedoch bei doppelten Vornamen geboten, die mit Bindestrich getrennt sind. So würde in diesem Beispiel aus Karl-Heinz ein Karl-heinz, denn der Doppelname wird als ein Wort aufgefasst und daher außer dem Anfangsbuchstaben insgesamt klein geschrieben.<\/p>\n Die Funktion Join setzt die Teile eines Arrays (ggf. mit Trennzeichen) zu einer Zeichenfolge zusammen. Die Syntax der Funktion lautet:<\/p>\n Quellcode 4<\/b><\/p>\n Mit dem Parameter Quellarray übergeben Sie der Funktion ein eindimensionales Array und mit Trennzeichen legen Sie fest, welches Trennzeichen verwendet werden soll.<\/p>\n Die Funktionen Join und die im folgenden Kapitel vorgestellte Funktion Split sind nicht in einer Zeile zu erklären. Deshalb folgt nun gleich ein längeres Beispiel.<\/p>\n Manchmal ist es sinnvoll, die Inhalte eines bestimmten Tabellenfeldes in einem längeren Text zusammenzufassen, z. B. um die bisher in einem Feld eingegebenen Werte gebündelt in einem Bericht darzustellen oder als Information am Bildschirm anzuzeigen.<\/p>\n Im folgenden Beispiel wird dazu der RecordsetClone eines Formulars durchlaufen, ein Array mit den Werten eines Feldes gefüllt und am Ende ein Meldungsfenster mit dem Inhalt des Arrays ausgegeben (s. Quellcode 4).<\/p>\n Bild 4 zeigt, wie das entsprechende Meldungsfenster aussieht.<\/p>\n Die Funktion Split zerlegt eine Zeichenfolge in einzelne Elemente eines Arrays. Sie hat die folgende Syntax:<\/p>\n <\/b><\/p>\n Bild 5: Ein mit Join erzeugtes Meldungsfenster mit einer übersicht der bisherigen Eingaben<\/span><\/b><\/p>\n Quellcode 5<\/b><\/p>\n Die Parameter haben die folgende Bedeutung:<\/p>\n Praktisch einsetzen lässt sich die Split-Funktion vor allem zum Zählen von Wörtern. Dazu muss man nur einen Text (oder ein Array aus Zeichenfolgen) an Split übergeben und mithilfe der Funktionen UBound und LBound die Dimensionen dieses Arrays ermitteln. Das klingt vielleicht komplizierter als es ist, denn der dafür nötige Code ist recht kurz (s. Quellcode 5).<\/p>\n <\/b><\/p>\n Bild 6: Mit der Split-Funktion kann man die Wörter eines Textes zählen.<\/span><\/b><\/p>\n Der Vollständigkeit halber sei bei diesen neuen Array-Funktionen noch die Filter-Funktion erwähnt. Sie liefert ein Array der in einem Array gefundenen Treffer. Kurz gesagt hat sie recht wenig praktischen Wert.<\/p>\n Zum Abschluss lernen Sie noch eine besondere Funktion kennen:<\/p>\n Die Funktion StrReverse dreht schlicht einen übergebenen Text um – z. B. folgendermaßen:<\/p>\n Das nun erscheinende Meldungsfenster enthält den folgenden Text !tleW ,ollaH.<\/p>\n Ich habe das ursprünglich eher für einen Scherz der Entwickler von VBA in Redmond gehalten und deshalb einige Leute befragt, ob sie einen praktischen Nutzen in dieser Funktion sehen.<\/p>\n Es kamen doch zwei ernsthafte Antworten: <\/p>\n Es gibt einige VBA-Funktionen, die sehr nützlich sind, aber so gut wie keinen Bekanntheitsgrad haben. Das liegt vor allem daran, dass diese Funktionen von ihren Erschaffern nur sehr stiefmütterlich behandelt werden – zum Beispiel im Falle neuer Funktionen, die in der Onlinehilfe von Access einfach nicht unter den Neuheiten zu finden sind. Daher ist es kaum verwunderlich, dass diese Funktionen von Access-Entwicklern recht selten eingesetzt werden. Anders ist dies bei Word-Programmierern, die aufgrund ihrer Textlastigkeit meist gut mit diesen Funktionen vertraut sind. Damit auch Sie in Zukunft von diesen Stiefkindern profitieren können, finden sie im vorliegenden Beitrag eine Beschreibung interessanter, aber verwaister VBA-Funktionen.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[662002,66032002,44000025],"tags":[],"class_list":["post-55000064","post","type-post","status-publish","format-standard","hentry","category-662002","category-66032002","category-VBA_und_Programmiertechniken"],"yoast_head":"\n |
![](\"..\/fileadmin\/_temp_\/{FAEFF35E-8A9A-4D57-AEC3-F6B044A068B5}\/pic001.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{FAEFF35E-8A9A-4D57-AEC3-F6B044A068B5}\/pic002.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{FAEFF35E-8A9A-4D57-AEC3-F6B044A068B5}\/pic003.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{FAEFF35E-8A9A-4D57-AEC3-F6B044A068B5}\/pic004.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{FAEFF35E-8A9A-4D57-AEC3-F6B044A068B5}\/pic005.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{FAEFF35E-8A9A-4D57-AEC3-F6B044A068B5}\/pic006.png\")
<\/p>\n