Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1524to1528
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Fehler bei PW Abfrage

Fehler bei PW Abfrage
14.11.2016 09:05:15
Fabienne
Guten Morgen
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehler bei PW Abfrage
14.11.2016 09:17:41
Werner
Hallo Fabienne,
.Range(.Cells(7, rngSpalte.Row), .Cells(256, rngSpalte.Row)).Locked = False
ohne s
Gruß Werner
AW: Fehler bei PW Abfrage
14.11.2016 09:26:22
Fabienne
Hallo Werner
Vielen Dank für die schnelle Antwort. Leider tritt immer noch der selbe Fehler auf bei dieser Zeile.
Gruss Fabienne
AW: Fehler bei PW Abfrage
14.11.2016 09:43:12
baschti007
Hey Fabienne
du hast die Spalten zeilen vertauscht =)
Gruß Basti
 .Range(.Cells(rngSpalte.Row, 7), .Cells(rngSpalte.Row, 256)).Locked = False

Anzeige
AW: Fehler bei PW Abfrage
14.11.2016 09:45:20
Fabienne
Hallo Basti
VIIIELEN DANK, jetzt funktioniert.
Das Forum ist einfach super!!
Gruss Fabienne

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige