Datumsformat in der Maske bei Aufruf über VBA
18.04.2009 09:42:39
Wusino
da meine Suche in ettlichen Büchern und Foren sehr frustrierend war, wende ich mich nun doch an Euch.
Ich habe ein kleines Skript, das beim Öffnen des Dokuments auf das Datenblatt Uebersicht springt und beim Wählen eines anderen Datenblatts die Maske anzeigt. Das Problem hierbei ist nur, dass in der Maske das Datumsformat das amerikanische und nicht das deutsche ist, wenn die Maske per VBA aufgerufen wird. Das liegt sicherlich daran, dass VBA nunmal nach dem amerikanischen Muster arbeitet. Kann man das irgendwie ändern?
Hier das primitive Skript
Option Explicit Private Sub Workbook_Open()
Worksheets("Uebersicht").Activate
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name "Uebersicht" Then ActiveSheet.ShowDataForm
End Sub
Ich hatte auch schon die Idee, das Problem mit einer unsauberen Lösung zu umgehen. Auch hier bin ich allerdings leider gescheitert. Ich würde gerne per VBA die Tastenkombination ALT+N,ALT+M ausführen lassen. Diese zeigt auch die Maske an. Allerdings komme ich mit der Funktion Application.SendKeys auch nicht wirklich voran.
Application.SendKeys (ALT + N)