Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
280to284
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
280to284
280to284
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Variablenübergabe

Variablenübergabe
20.07.2003 00:23:13
TE
Hi Leute, ich hab da mal ein Problem:

wie weise ich einer Schaltfläche ein Makro zu, bei dem auch eine Variable übergeben wird (in diesem Fall schlicht eine Zahl)?


Set K2 = CBKasse.Controls.Add(Type:=msoControlButton)
With K2
.Style = msoButtonCaption
.BeginGroup = True
.OnAction = "NächsteFreieEinfügen (13)"
End With

geht nicht, auch etliche andere Syntaxe schlagen fehl. Ich denke, das es vielleicht daran liegt, dass die Variable dann später beim Aufruf durch Schaltflächenklick nicht mehr zur Verfügung steht oder so.
Weiss jemand Rat?

Vielen Dank im Voraus

Thomas

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Variablenübergabe
20.07.2003 03:25:08
Thomas Risi
Hi Thomas

Versuch's mal etwa so ...


Option Explicit

Dim K2 As Office.CommandBarControl

Sub AddBtn()

    Set K2 = CBKasse.Controls.Add(Type:=msoControlButton)
    
    With K2
        .Style = msoButtonCaption
        .BeginGroup = True
        .OnAction = "NächsteFreieEinfügen"
        .Tag = 13
    End With
    
End Sub

Sub NächsteFreieEinfügen()
    MsgBox K2.Tag
End Sub



     Code eingefügt mit Syntaxhighlighter 2.3


Gruß
Thomas

Risi Thomas Softwareentwicklung




Anzeige
AW: Variablenübergabe
20.07.2003 14:07:05
TE
Hi Thomas,

hm, erstmal eine gute Idee, Ich versuchs mal damit. Herzlichen Dank

Thomas


Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige