Thema Datum  Von Nutzer Rating
Antwort
22.05.2014 14:53:04 Gast90959
NotSolved
Blau eine einzige variable über mehrere Userforms verwenden
 22.05.2014 15:24:07 Gast55561
NotSolved
23.05.2014 07:40:10 Gast30351
NotSolved
23.05.2014 22:34:53 Gast82132
NotSolved
03.06.2014 12:12:04 Gast95449
NotSolved

Ansicht des Beitrags:
Von:
Gast55561		 Datum:
22.05.2014 15:24:07		 Views:
1555		 Rating:
     
Antwort:
  Ja
Thema:
eine einzige variable über mehrere Userforms verwenden		 
' Userform1
Option Explicit

Private m_dblZahl As Double

Public Property Get Zahl() As Double
  Zahl = m_dblZahl
End Property

Private Sub UserForm_Click()
  
  m_dblZahl = Application.InputBox("Zahl eingeben:", Default:=CStr(4.2), Type:=1)
  
  Select Case Application.InputBox("Welche Userform soll angezeigt werden?" & vbNewLine & _
                                   "(2: Userform2; 3: Userform3)", Default:=2, Type:=1)
    Case 2
      UserForm2.Show
    Case 3
      UserForm3.Show
    Case Else
      'ungültige Angabe
  End Select
  
End Sub

Private Sub UserForm_Initialize()
  Call MsgBox("Klick auf die Userform.")
End Sub

 

' Userform2
Option Explicit

Private Sub UserForm_Activate()
  MsgBox "Zahl lautet: " & UserForm1.Zahl
End Sub

Private Sub UserForm_Initialize()
  Me.StartUpPosition = 0
  Me.Left = UserForm1.Left + 30
  Me.Top = UserForm1.Top + 30
End Sub

 

' Userform3
Option Explicit

Private Sub UserForm_Activate()
  MsgBox "Zahl lautet: " & UserForm1.Zahl
End Sub

Private Sub UserForm_Initialize()
  Me.StartUpPosition = 0
  Me.Left = UserForm1.Left - 30
  Me.Top = UserForm1.Top + 30
End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
22.05.2014 14:53:04 Gast90959
NotSolved
Blau eine einzige variable über mehrere Userforms verwenden
 22.05.2014 15:24:07 Gast55561
NotSolved
23.05.2014 07:40:10 Gast30351
NotSolved
23.05.2014 22:34:53 Gast82132
NotSolved
03.06.2014 12:12:04 Gast95449
NotSolved