Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

textbox wert an verschiedene Makros übergeben | Herbers Excel-Forum


Betrifft: textbox wert an verschiedene Makros übergeben von: Werner
Geschrieben am: 19.01.2012 14:06:27

Hallo!

Ich suche mich noch zum Hirsch...

Ich habe eine Userform mit 4 Textboxen.
Den Wert dieser Textboxen brauche ich später in mehreren verschiedenen Makros.

Das muss doch gehen?!

Gruß und DANKE!

Werner

  

Betrifft: AW: textbox wert an verschiedene Makros übergeben von: Mister-B
Geschrieben am: 19.01.2012 14:21:01

Hallo,

und wenn du die Werte in eine Hilfstabelle schreibst???

Gruß
Martin


  

Betrifft: AW: textbox wert an verschiedene Makros übergeben von: Werner
Geschrieben am: 19.01.2012 14:22:52

Hallo!

Es muss irgendwie ohne Hilfstabelle gehen.

Gruß
Werner


  

Betrifft: AW: textbox wert an verschiedene Makros übergeben von: Rudi Maintaire
Geschrieben am: 19.01.2012 14:25:18

Hallo,
dann greif doch in den Makros auf die UF zu.

Sub xxx()
MsgBox Userform1.Textbox1
End Sub

Du darfst die UF nur nicht entladen (Unload Userform1), sondern nur einfach schließen (Userform1.Hide)

Gruß
Rudi


  

Betrifft: AW: textbox wert an verschiedene Makros übergeben von: Werner
Geschrieben am: 19.01.2012 14:37:51

Ich glaube das mache ich so schon.

Private Sub UserForm_Initialize()

TextBox3.Value = Environ("UserName")
TextBox1.SetFocus

End Sub
Private Sub CommandButton1_Click()
    Dim IV_Kennung As String
    Dim IV_Kennwort As String
    Dim Intranet_Kennung As String
    Dim Intranet_Kennwort As String
    Dim WshShell As Object
    Dim i As Double
    
    Set WshShell = CreateObject("WScript.Shell")
    IV_Kennung = TextBox1.Text
    IV_Kennwort = TextBox2.Text
    Intranet_Kennung = TextBox3.Text
    Intranet_Kennwort = TextBox4.Text
    Anmeldung.hide
      Shell "X:\win32app\Saperion\ARCHIE32.EXE /DocFlow /CurrentUser"
      DoEvents




Dann folgt der restliche Code

Danach soll ein 2. Makro laufen, in dem wieder die Daten "Intranet_Kennung" und " _
Intranet_Kennwort"
gebraucht werden.

Gruß
Werner



  

Betrifft: AW: textbox wert an verschiedene Makros übergeben von: Rudi Maintaire
Geschrieben am: 19.01.2012 14:46:20

Hallo,
nimm das

    Dim IV_Kennung As String
    Dim IV_Kennwort As String
    Dim Intranet_Kennung As String
    Dim Intranet_Kennwort As String 

raus und statt dessen in einem Modul ganz am Anfang
    Public IV_Kennung As String
    Public IV_Kennwort As String
    Public Intranet_Kennung As String
    Public Intranet_Kennwort As String

Dann sind die Variablen im ganzen Projekt gültig.

Gruß
Rudi


  

Betrifft: AW: textbox wert an verschiedene Makros übergeben von: Werner
Geschrieben am: 19.01.2012 15:28:31

Magie! Zauberei! Hexenwerk!
;-)

Klappt
VIELEN DANK!!!

Gruß
Werner


Beiträge aus den Excel-Beispielen zum Thema "textbox wert an verschiedene Makros übergeben"