das macro läuft gut mit viel hilfe (nochmals dank)
jetzt möchte ich noch, dass wenn in A4 kein eintag vorhanden ist die
logoutzeit NICHT in B4 geschrieben wird
gruss rolf
'***** SPEICHERN DER LOGOUTZEITEN
Sub Auto_close()
'DAS PASSWORT WIRD IN ZELLE B2 AUSGELESEN
Set logNam = Sheets("PWL").Rows(2).Find(PWort)
'DIE LOGOUTZEITEN WERDEN IM BLATT PWL IN SPALTE B EINGETRAGEN
'DIE SPEICHERUNG BEGINNT IN BLATT PWL IN ZELLE B4
'JEDES WEITERE LOGOUT WIRD DARUNTERGESCHRIEBEN B5 B6 B7 usw.
'HIER BRAUCHE ICH HILFE
'ABER NUR WENN ES EINE LOGINZEIT IN ZELLE A4 GIBT
'GILT ALSO NUR FÜR DEN ERSTEN START DER DATEI
If Not logNam Is Nothing Then
aRow = Sheets("PWL").Cells(Rows.Count, 2).End(xlUp).Row
Sheets("PWL").Cells(aRow + 1, 2) = Now & " AB" 'DAS & " AB" RAUSNEHMEN WENN ES LÄUFT
Else
Sheets("PWL").Cells(aRow + 1) = Now & " AB" 'DAS & " AB" RAUSNEHMEN WENN ES LÄUFT
End If
Application.ScreenUpdating = False
Worksheets("Start").Visible = True
For Each wks In ActiveWorkbook.Sheets
If wks.Name <> "Start" Then
wks.Visible = xlVeryHidden
End If
Next
Application.Visible = True
ActiveWorkbook.Save
If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close
End Sub
'***** SPEICHERN DER LOGINZEITEN
Sub Login()
'DER BENUTZER WIRD IN ZELLE A2 AUSGELESEN
Set logNam = Sheets("PWL").Rows(2).Find(UName)
'DIE LOGINZEITEN WERDEN IM BLATT PWL IN SPALTE A GESPEICHERT
'DIE SPEICHERUNG BEGINNT IN BLATT PWL ZELLE IN A4
'JEDES WEITERE LOGIN WIRD DARUNTERGESCHRIEBEN A5 A6 A7 usw.
If Not logNam Is Nothing Then
aRow = Sheets("PWL").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("PWL").Cells(aRow + 1, 1) = Now & " AN" 'DAS & " AN" RAUSNEHMEN WENN ES LÄUFT
Else
Sheets("PWL").Cells(aRow + 1) = Now & " AN" 'DAS & " AN" RAUSNEHMEN WENN ES LÄUFT
End If
End Sub