VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Datenmaske mit einem bestimmten Datensatz aufrufen

Gruppe

Allgemein

Bereich

Meldung

Thema

Datenmaske mit einem bestimmten Datensatz aufrufen

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Meldung