VBA-Befehle individuell anpassen

Jeder weiss es, VBA enthält eine umfangreiche Sammlung von Befehlen, die durch individuelle Funktionen, Prozeduren und Klassen ergänzt werden können. Weniger verbreitet ist das Wissen, dass auch die vorgegebenen VBA-Befehle beliebig angepasst werden können. Bei der Entwicklung kann diese Tatsache viel Zeit und Arbeit einsparen, da häufig verwendete Befehle so mit bestimmten Parameter vordefiniert werden können, die dann nicht mehr eingegeben werden müssen.

Die Funktionsweise ist denkbar einfach: Wenn ein Prozedur- oder Funktionsname mit einem VBA-Befehl übereinstimmt, wird automatisch die neue Definition verwendet. So kann also der VBA-Befehl durch eine individuelle Funktion überschrieben werden.

Natürlich macht es wenig Sinn, den kompletten VBA-Befehl neu zu schreiben. Vielmehr ist ja lediglich das Ziel den bestehenden Befehl fix mit Standard-Parametern zu versehen. Das heisst man muss also innerhalb der eigenen Prozedur trotzdem wieder auf den ursprünglichen VBA-Befehl zu greifen können. Hier hilft die Tatsache weiter, dass jeder Befehl eine Methode des VBA-Objektes ist. Durch Angabe des Objektnamen kann also VBA angegeben werden, welche Version des Befehls es verwenden soll:

VBA.<Methode>

Ein sinnvolles Beispiel ist sicherlich der Einsatz des MsgBox-Befehls:
Wird der Befehl für eine Meldung an den Benutzer nach Fehleingaben verwendet, ist es von Nutzen, wenn standardmässig immer das gleiche Symbol eingeblendet wird. Ferner macht es sich gut, wenn als Titel der Anwendungsname angezeigt wird. Da dieser innerhalb eine Anwendung in der Regel nicht ändert, erspart es viel Tipparbeit wenn er nur einmal der Meldung zugewissen werden muss, und nicht bei jedem Aufruf.

Einfache Version:
In der einfachsten Form könnte eine individueller MsgBox-Befehl so aussehen:

Function MsgBox ( _
     strText As String) _
 As Integer
 
    MsgBox = VBA.MsgBox(strText, vbCritical, "Anwendungname")
 
End Function

Beim Aufruf des MsgBox-Befehl braucht jetzt nur noch der Text angegeben werden, der Titel und das Stop-Symbol werden automatisch mit eingeblendet:

MsgBox ("Hallo Benutzer")

Deluxe Version:
Etwas komfortabler wird es, wenn die Parameter des Standardbefehls als optionale Parameter im individuellen Befehl eingefügt werden. So kommen die Default-Werte nur dann zum Einsatz, wenn sie nicht durch Übergabe der Parameter überschrieben werden.

Function MsgBox ( _
     strText As String, _
     Optional intSymbol As Integer = 16, _
     Optional strTitel As String = "Anwendungname", _
     Optional varHelpFile As Variant
     Optional varHelpContext As Variant) _
As Integer
  
    MsgBox = VBA.MsgBox(strText, intSymbol, strTitel, varHelpFile, varHelpContext)
 
End Function

Mit dieser Version steht sowohl die urprüngliche Form des MsgBox-Befehl zur Verfügung (Angabe aller Parameter), wie auch die verkürzte Form wo nur der Text eingegeben werden muss.

Benötigen Sie Unterstützung oder weiterführende Informationen, gerne helfen wir Ihnen weiter, reden Sie doch einfach mit uns.

Die Informationen dieser Seite dürfen, gemäss unseren Nutzungsbestimmungen, kostenlos weiterverwendet werden.

Reto Maurer's Software-Chuchi
Seestrasse 26
CH-8802 Kilchberg-Zürich
Telefon: +41 79 635 47 31
E-Mail:info@software-chuchi.ch