ich habe eine UF in der ein Button eingebaut ist, bei dem ein Excel Sheet gelöscht werden kann. Zudem gibt es noch ein Sheet, in dem verschiedene Benutzer und die dazugehörigen Gruppen angelegt wurden.
Ich kann jetzt prüfen, ob ein Benutzer bestimmte Rechte besitzt. Jetzt möchte ich aber die ComboBox1 durch eine TextBox ersetzen, da der Benutzer beim erstmaligen Login in der TextBox gespeichert wird.
Jetzt meine Frage: Wie kann ich den Befehl "ComboBox1.ListIndex" durch die neue TextBox ersetzen. Ich habe mal das Codebeispiel beigefügt.
If TextBox2.Text = Sheets("Daten").Cells(ComboBox1.ListIndex + 1, 2) Then
If Not Sheets("Daten").Cells(ComboBox1.ListIndex + 1, 3) = "Admin" Then
MsgBox "Sie haben keine Berechtigung! Zugriff verweigert!", vbCritical
ComboBox1.Text = ""
TextBox2.Text = ""
ComboBox1.SetFocus
GoTo Ende
End If
Danke erstmal für Eure Hilfe.
Und noch eine Frage: wie kann man hier den Code in einem Codeeditor anzeigen lassen?
Danke Euch allen
Gruß Kay