Feld abfrage - Untermenü starten
30.08.2006 11:02:47
selma
Ich habe eine Software welche nur ausgewählte Mitarbeiter nutzen dürfen.
Das Programm Nutzung soll nur gestartet werden, wenn in B56 "nutzung" steht, ansonsten soll immer Hauptmenü ausgeführt werden.
Dazu habe ich folgenden Code geschrieben:
Private Sub Workbook_Open()
Sheets("Hauptmenü").Select
If Worksheets("Hauptmenü").Range("b56") = "nutzung" Then
Nutzung.Show
If Range("a43") = "Berechtigung ok" Then
Hauptmenü.Show
Else
MsgBox "Sie haben KEINE Berechtigung für diesen Programmteil"
End If
Else
If Range("a43") = "Berechtigung ok" Then
Hauptmenü.Show
Else
MsgBox "Sie haben KEINE Berechtigung für diesen Programmteil"
End If
End If
End Sub
Dies funktioniert nicht immer, denn beim Programmstart wird Nutzung aufgerufen,
obwohl in B56 steht "30.08.2006". Was ist hier falsch? Ich sehe den Wald vor lauter Bäumen nicht.
viele Grüsse
selma