Sub xxx()
MsgBox Userform1.Textbox1
End Sub
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
Dim IV_Kennung As String
Dim IV_Kennwort As String
Dim Intranet_Kennung As String
Dim Intranet_Kennwort As String
Public IV_Kennung As String
Public IV_Kennwort As String
Public Intranet_Kennung As String
Public Intranet_Kennwort As String
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen