vba Hilfe
12.02.2016 06:23:35
Jürgen
ich habe ein User Form erstellt mit Listbox und will gerne
einen Modul starten:
Private Sub cmd_Button_Persönlich_Click()
Select Case LstPersönlich.Value
Case " - Terminplaner"
Workbooks.Open "G:\Transfer2016.xlsb"
Case " - key"
Application.Run "Modul.Key" 'Case " - "
'Workbooks.Open ""
'Case " - "
'Workbooks.Open ""
Case Else
MsgBox " keine Liste ausgewählt", vbOKOnly, "Fehler"
End Select
Unload Me
End Sub
Private Sub UserForm_Initialize()
LstPersönlich.AddItem " - Terminplaner"
LstPersönlich.AddItem " - key"
End Sub
Mein problem ist, das ich das Modul Key gerne starten möchte.
das wäre Modul 18 (unbenannt als Key)
Modul Key sieht so aus:
Sub Key()
On Error GoTo Fehler
Dim varkey As Variant
Dim strantwort As String
Dim strtext As String
Zeile1:
varkey = InputBox(" Bitte Programm eingeben", "Eingabe")
Select Case varkey
Case Is = "r"
strtext = "Benutzer: K" & vbCrLf & "Passwort: Som"
Case Is = "B"
strtext = "Benutzer: K" & vbCrLf & "Passwort: Her"
Case Is = "F"
strtext = "Benutzer: K" & vbCrLf & "Passwort: So"
Case "S"
strtext = "Benutzer: 5" & vbCrLf & "Passwort: w" & vbCrLf & "S"
Case Else
strtext = "falsche Eingabe"
End Select
strantwort = MsgBox(strtext, vbRetryCancel)
Select Case strantwort
Case 2
MsgBox "Sie beenden das Programm"
Case Else
GoTo Zeile1
End Select
Exit Sub
Fehler:
MsgBox "Programm wird neu gestartet"
GoTo Zeile1
End Sub
Ich hoffe mir kann da jemand helfen.
Liebe Grüße Jürgen