Thema Datum  Von Nutzer Rating
Antwort
Rot Variable aus Formular speichern und in alle Module übergeben
 28.05.2015 10:03:56 rafa_red
NotSolved
28.05.2015 10:56:55 Holger
NotSolved
28.05.2015 12:52:10 rafa_red
NotSolved

Ansicht des Beitrags:
Von:
rafa_red		 Datum:
28.05.2015 10:03:56		 Views:
1761		 Rating:
     
Antwort:
  Ja
Thema:
Variable aus Formular speichern und in alle Module übergeben

Hi Leute!

Ich möchte eine Eingabe in einer Userform machen und diese dann in alle Module der Arbeitsmappe übergeben. Meine Idee war den Inhalt der Textbox aus der Userform in einer Variable zu speichern und diese dann irgendwie für alle Module weiterzugeben. Da komme ich nicht mehr weiter.. Kann ich eine Variable einmalig für alle Module deklarieren? Habe es mit Public nicht hinbekommen oder mache einen Fehler..

Diese Variable soll dann in ein Shape (Pfeil1) geschrieben und später weiterverarbeitet werden.

Könnt ihr mir weiterhelfen?

 

?
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
27
28
29
30
31
Public jahr1
Option Explicit
 
Private Sub Erstellen3_Abfrage_Ja_Click()
 
    If Erstellen3_Abfrage_TextBox1.Value = "" _
    Or Erstellen3_Abfrage_TextBox1.Value > 2040 _
    Or Erstellen3_Abfrage_TextBox1.Value < 2010 _
    Or IsNumeric(Erstellen3_Abfrage_TextBox1.Value) = False Then
        MsgBox ("Bitte geben Sie einen gültigen Wert ein")
         
    Else
     
        Erstellen3_Abfrage_Button.Hide
         
        jahr1 = Erstellen3_Abfrage_TextBox1.Value
      
        Erstellen3_Abfrage
     
    End If
 
     
End Sub
 
 
 
Function Erstellen3_Abfrage
 
    ActiveSheet.Shapes("Pfeil1").TextFrame.Characters.Text = " & jahr1 & "
 
End Function

 

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
Rot Variable aus Formular speichern und in alle Module übergeben
 28.05.2015 10:03:56 rafa_red
NotSolved
28.05.2015 10:56:55 Holger
NotSolved
28.05.2015 12:52:10 rafa_red
NotSolved