Gruppe
Allgemein
Problem
Die Datenmaske zu Tabelle1 soll mit dem Startdatensatz gem. Zelle A1 aufgerufen werden.
StandardModule: basMain
Sub DatenMaske()
Dim sShortCut As String
Select Case Left(Application.Version, 1)
Case 5, 7, 8
sShortCut = "%s"
Case Else
sShortCut = "%k"
End Select
Application.Goto _
Reference:=Worksheets("Tabelle1").Range("A1"), _
Scroll:=True
SendKeys sShortCut & Worksheets("Start").Range("A1").Value
SendKeys "%t"
ActiveSheet.ShowDataForm
End Sub