AW: textbox wert an verschiedene Makros übergeben
19.01.2012 14:37:51
Werner
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