hoffe ihr habt ein schönes Wochenende gehabt!?
Folgender Code funktioniert nur bedingt.
Vor jedem Speichern schreibe ich in ein Blatt Username, Datum Zeit und Speicherort der Datei.
In die 1.Zeile wird der erste Speichervorgang geschrieben, ist Zeile 11 erreicht, sollen die neuen Einträge nachrücken (ich will nicht das ganze Blatt vollschreiben, immer nur die letzten 10 Speicherungen haben), also lösche ich Zeile 2.
Das funktioniert auch, wenn das Blatt aktiv ist. Befinde ich mich jedoch auf einem anderen Blatt, flackert der Bildschirm nur noch, und zwar dann, wenn er eigentlich Zeile 11 löschen soll (die ersten Einträge bis Zeile 11 funktionieren).
Wer kann mir da weiterhelfen?
Hier der Code:
Public Sub Historie()
Dim rngVerf As String
Dim rngSpDat As String
Dim rngSpZeit As String
Dim rngPfad As String
Dim i As Integer
rngVerf = Application.UserName
rngSpDat = Date
rngSpZeit = Time
rngPfad = Application.ActiveWorkbook.FullName
EINTRAG:
i = ActiveWorkbook.Sheets("Historie").Cells(Rows.Count, 1).End(xlUp).Row
If i = 1 Then
ActiveWorkbook.Sheets("Historie").Cells(i, 1).Value = rngVerf & " | " & rngSpDat & " | " & rngSpZeit & " | " & rngPfad
End If
If i = 11 Then
Rows(2).Delete
GoTo EINTRAG
Else
ActiveWorkbook.Sheets("Historie").Cells(i + 1, 1).Value = rngVerf & " | " & rngSpDat & " | " & rngSpZeit & " | " & rngPfad
End If
End Sub