Änderung Speichern der Benutzer
15.05.2016 18:55:11
Andi
brauche mal wieder eure Fachmännischen Hilfe.
Ich habe diesen VBA Code der mir beim Anmelden der vorgegebenen Username und das Datum in eine Tabelle "PasswortBenutzer" Speichert.
Das klappt auch wunderbar, ich möchte aber auch beim Speichern die Änderung des letzten eintrages der Spalte A der "Tabelle1" und die Adresse gespeichert haben.
Wenn aus der Spalte A was gelöscht wird soll in der Spalte C der Tabelle "PasswortBenutzer" ein Eintrag "Gelöscht" stehen ansonsten der neue Eintrag.
Danke im vorraus
Private Sub Workbook_Open()
Dim codeName As String
Dim Passw As String, LR&
codeName = InputBox("Geben Sie Ihren Namen ein")
Passw = InputBox("Geben Sie Ihr Passwort ein")
If codeName = "Username1" And Passw = "1234" Then
ElseIf codeName = "Username2" And Passw = "45678" Then
Else
MsgBox ("Hallo " & codeName & " Du hast keine Berechtigung")
ActiveWorkbook.Close False
End If
MsgBox ("Hallo " & codeName)
With Worksheets("PasswortBenutzer")
LR = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Range("A" & LR).Value = Now
.Range("B" & LR).Value = codeName
' .Range("C" & LR).Value = Worksheets("Tabelle1").Range("A" & LR).Value
End With
End Sub