ich habe ein Programm welches mehrer User benutzen.
Diese 6 User (bzw. der eine) sollen vor einer Eingabe abgefragt werden - am besten per Pulldown.
Wie mache ich das?
Eine Autoopen-Lösung würde wohl auch gehen.
Gruß Lutz
Public currentUser as String
Dort wo in deinem Code der User in das Protokoll geschrieben wird, benutzt du die neue Variable.
Definiere eine UserForm, mit einem Combobox und einem OK Button.
Code in DieserArbeitsmappe:
Private Sub Workbook_Open()
UserForm1.Show
End Sub
Code in der UF:
Option Explicit
Private Sub CommandButton1_Click()
currentUser = ComboBox1
Unload UserForm1
End Sub
Private Sub UserForm_Initialize()
Dim rC As Range
ComboBox1.Style = fmStyleDropDownList
ComboBox1.MatchRequired = True
For Each rC In Sheets("UserTabelle").Range("A10:A13")
ComboBox1.AddItem rC.Value
Next rC
ComboBox1.ListIndex = 0
End Sub
Italic Begriffe im Code entsprechend anpassen!
GreetZ Renée