VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Rechnungsformular mit Zugriff auf Kunden- und Artikelstamm

Gruppe

Allgemein

Bereich

Liste

Thema

Rechnungsformular mit Zugriff auf Kunden- und Artikelstamm

Problem

Wie kann ich ein Rechnungsformular mit direkten Zugriff auf einen Kunden- und Artikelstamm entwickeln?

Lösung

Nur anhand einer Beipspielarbeitsmappe darstellbar.




StandardModule: Modul1

Declare Function ExitWindowsEx& Lib "user32" _
   (ByVal uFlags&, ByVal wReserved&)

Global Const EWX_FORCE = 8
Global Const EWX_LOGOFF = 0
Global Const EWX_REBOOT = 2
Global Const EWX_SHUTDOWN = 1

Sub TschuessEinleiten()
   Dim varTschuess As Variant
   varTschuess = InputBox("Wann soll der Rechner ausgeschaltet werden?", , _
      Format(Now + TimeSerial(0, 1, 0), "hh:mm:ss"))
   If varTschuess = "" Then Exit Sub
   Application.OnTime TimeValue(varTschuess), "Tschuess"
End Sub

Sub Tschuess()
  Dim LResult
  LResult = ExitWindowsEx(EWX_SHUTDOWN, 0&)
End Sub

    


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