Wo liegt der Fehler im Code..?
08.01.2009 12:29:00
Kathi
Ich bins schon wieder mit einem weiteren problem:
Ich nutze den AutoFilter mit einer Passwortabfrage kombiniert.
...
ElseIf txtOK.Text = p And txtPass.Text = q Then
frmStart.Hide
For I = 3 To 19
ThisWorkbook.Sheets(I).Visible = True
ThisWorkbook.Sheets(I).Columns("A:A").AutoFilter Field:=1, Criteria1:="g", Operator:=xlOr, Criteria2:="j", VisileDropDown:=False
ThisWorkbook.Sheets(I).Rows(146).Hidden = False
ThisWorkbook.Sheets(I).Rows(226).Hidden = False
Application.ScreenUpdating = True
Next
...
Der User der sich hinter txtOk.text bzw. txtPass.Text verbirgt ist nicht als Name in der Filterspalte enthalten. Der User soll die Ansicht von zwei anderen Usern sehen. Daher wollte ich zwei Kriterien einbeziehen.
p & q ist als String geschrieben und ist der User der sich anmeldet.
Er soll die Daten von g und j sehen. Ich glaube ich habe die Kriterien falsch bestimmt...
g = Wagemann
j = Escher
Wie schreibt man das richtig?
Hat jemand ne Idee.. Danke im Voraus!!
Lg Kathi