Thema Datum  Von Nutzer Rating
Antwort
19.03.2013 01:08:28 HansHerbert
NotSolved
19.03.2013 07:24:04 Gast49652
NotSolved
19.03.2013 07:36:46 HansHerbert
NotSolved
Blau Mehrere User Formen, String
19.03.2013 09:32:01 Gast49652
NotSolved

Ansicht des Beitrags:
Von:
Gast49652		 Datum:
19.03.2013 09:32:01		 Views:
1069		 Rating:
     
Antwort:
  Ja
Thema:
Mehrere User Formen, String

Abhängig davon wie man die UserForms erstellt, kann das unterschiedlich aussehen.

Hier mal ne schnelle Variante (Beispiel):

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
'/////////////////
'// UserForm1
'/////////////////
Option Explicit
 
Private m_strStructure As String
 
Private Sub UserForm_Click()
  UserForm2.Show
End Sub
 
Private Sub UserForm_Initialize()
   
  Me.Caption = "Klick mich!"
   
  'UserForm1 erhält einen belieben Text durch Benutzereingabe
  Do
    m_strStructure = InputBox("Geben sie etwas ein:", Me.Name, "Ein Beispiel")
    If m_strStructure = CStr(False) Then m_strStructure = ""
  Loop Until Trim$(m_strStructure) <> ""
   
End Sub
 
Public Property Get Structure() As String
  Structure = m_strStructure
End Property
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
'/////////////////
'// UserForm2
'/////////////////
Option Explicit
 
Private Sub UserForm_Activate()
   
  MsgBox UserForm1.Structure, Title:=Me.Name
   
End Sub
 
Private Sub UserForm_Initialize()
  Me.StartUpPosition = 0 'Manuell positionieren
  Me.Left = UserForm1.Left + UserForm1.Width + 2 * (UserForm1.Width - UserForm1.InsideWidth)
  Me.Top = UserForm1.Top
End Sub

 

UserForm1 starten, Eingabe tätigen, auf UserForm1 klicken -> UserForm2 geht auf und es erfolgt die zuvor eingegebene Eingabe in einer MessageBox.

Die Eingabe wurde aus UserForm1 wird mittels Property-Get (UserForm1.Structure) abgerufen.

 

Gruß

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
19.03.2013 01:08:28 HansHerbert
NotSolved
19.03.2013 07:24:04 Gast49652
NotSolved
19.03.2013 07:36:46 HansHerbert
NotSolved
Blau Mehrere User Formen, String
19.03.2013 09:32:01 Gast49652
NotSolved