Ich hab hier einen Code, die beim öffnen eines Excels eine Userform öffnet und dort kann man sich mit seinem Benutzer einloggen. Die Logins sind im Excel im Sheet Tabelle7 hinterlegt.
Beim öffnen soll er dann in der Tabelle1 nach dem User suchen und NUR diese Zeile soll bearbeitet werden können.
Leider gibt es mir bei dieser Codezeile einen Fehler aus:
.Range(.Cells(7, rngSpalte.Rows), .Cells(256, rngSpalte.Rows)).Locked = False
Hier der ganze Code:
Private Sub CommandButton1_Click()
Dim rngZelle As Range
Dim rngSpalte As Range
Set rngZelle = Worksheets("Tabelle7").Columns(1).Find(ComboBox1, lookat:=xlWhole)
If Not rngZelle Is Nothing Then
If TextBox1 = rngZelle.Offset(0, 1) Then
With Worksheets("Tabelle1")
.Unprotect "MasterPW"
Set rngSpalte = Columns(2).Find(ComboBox1, lookat:=xlWhole)
If Not rngSpalte Is Nothing Then
.Cells.Locked = True
.Range(.Cells(7, rngSpalte.Rows), .Cells(256, rngSpalte.Rows)).Locked = False
End If
.Protect "MasterPW"
End With
blnBeenden = True
Unload Me
Else
Label1.Visible = True
End If
End If
End Sub
Ich hoffe, ihr versteht was ich meine und könnt mir sagen, was da falsch ist
Wenn nötig, kann ich auch die Datei hochladen.
Vielen Dank und liebe Grüsse
Fabienne