Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
712to716
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
712to716
712to716
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Wertübergabe aus Userform an Makro

Wertübergabe aus Userform an Makro
27.12.2005 19:35:57
Peter
Hallo Leute,
ich habe eine Userform mit 2 Optionsschaltern.
Bei Betätigung der entsprechenden Option möchte ich einen best. Wert
An ein Makro übergeben.
Wie macht man das?
Danke im voraus Peter
z.B.

Private Sub optWert1_Click()
If optWert1 = True Then Wert = 1
Call Makro
Unload Me
End Sub


Private Sub optWert2_Click()
If optWert2 = True Then Wert = 2
Call Makro
Unload Me
End Sub

'im Modul
Sub Makro()
MsgBox Wert
End Sub

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wertübergabe aus Userform an Makro
27.12.2005 19:39:40
Josef
Hallo Peter!
das geht so!
Sub aufruf()
Dim lng As Long
lng = 2
Makro1 lng
End Sub

Sub Makro1(Wert As Long)
MsgBox Wert
End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Wertübergabe ausUfrm - Bitte erklären
27.12.2005 19:53:18
Peter
Hallo Sepp,
meine Erfahrung mit VBA ist nicht sehr groß.
Wie macht man das genau? Was wohin?
Danke im voraus Peter
Sub aufruf()
Dim lng As Long
lng = 2
Makro1 lng
End Sub
Sub Makro1(Wert As Long)
MsgBox Wert
End Sub
z.B.
'in der Userform

Private Sub optWert1_Click()
If optWert1 = True Then Wert = 1
Call Makro
Unload Me
End Sub


Private Sub optWert2_Click()
If optWert2 = True Then Wert = 2
Call Makro
Unload Me
End Sub

'im Modul
Sub Makro()
MsgBox Wert
End Sub
Anzeige
AW: Wertübergabe ausUfrm - Bitte erklären
27.12.2005 21:50:52
Josef
Hallo Peter!
'in UF
Private Sub optWert1_Click()
If optWert1 = True Then Call Makro(1)
Unload Me
End Sub




Private Sub optWert2_Click()
If optWert2 = True Then Call Makro(2)
Unload Me
End Sub





'im Modul
Sub Makro(intValue As Integer)
MsgBox intValue
End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Hallo Sepp - Danke für die schnelle Hilfe
28.12.2005 14:18:24
Peter
Hallo Sepp,
danke für die schnelle Hilfe und die Erklärung.
Jetzt funktioniert die Sache wie ich es mir
vorgestellt habe.
Peter

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige