HERBERS Excel-Forum - die Beispiele

Thema: Datenmaske mit einem bestimmten Datensatz aufrufen

Home

Gruppe

Allgemein

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

Was bedeutet diese Meldung und warum gibt es sie Start Userform Fehlermeldung
'Run' & 'IWshShell3' Fehlermeldung VBA VBA - Suchfunktion - Fehlermeldung
Drucker nicht vorhanden, dann Meldung Makro 4.0 Meldung beim Dateiaufruf ausschalten
Meldungen beim aufmachen Eingabemeldung auch für mehrere Zellen?
Warnmeldung bei "Summe größer als x" Dateien öffnen, Update-Meldung ausschalten
Allgemeine Frage zur Fehlerbehandlung allgemeine Fragen zu einer Datenbank
Fehlermeldung bei Validation Fehlermeldung
Rückmeldung aus Outlook Fehlermeldung erzeugen
Nach Fehlermeldung nächste Anweisung Fehlermeldung beim Öffnen von Excel: VBA-Projekt
Fehlermeldung bei Inputbox-Abbruch Fehlermeldung in Schleife mit Controls
Schwere Excel-Fehlermeldung erzeugen Störmeldungen in Excel aufzeichnen
Fehlermeldung UCase mit Fehlermeldung
Bei Löschung Fehlermeldung Typen unverträglich Pivot Tabelle Fehlermeldung
Bei Fehlermeldung Events wieder einschalten Fehlermeldung seit Umstellung auf 2007
Eigene Meldung wenn keine Daten im Zischenspeicher Pivot - Fehlermeldung not enough memory
Fehlermeldung bei Format(Wert, "dddd") Fehlermeldung 2147024882 (8007000E)
Zellbereich vergleichen & Zellbezug od. Meldung au Fehlermeldung bei Übergabe Listeninhalt an Userfor
Meldung im Freigabemodus Fehlermeldung
Hinweismeldung vor Ablaufdatum Eingabemeldung Gültigkeit
Sicherheitsmeldung beim Zugriff auf Access allgemein
Szenarios Arrey Fehlermeldung Wenn-Abfrage und MsgBox-Meldung
"Wartemeldung" anzeigen Meldung unterdrücken
Fehlermeldung Fehlermeldung wenn Blattschutz aktiv
Outlook Meldung in Excel Bei Fehlermeldung #NV den Wert 0,00 ausgeben
Einträge (ohne enthaltene Fehlermeldungen) zählen Verknüpfungsmeldung unterdrücken