Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Datenmaske mit einem bestimmten Datensatz aufrufen

Gruppe

Meldung

Problem

Die Datenmaske zu Tabelle1 soll mit dem Startdatensatz gem. Zelle A1 aufgerufen werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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