Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 10:11:03
Dateiname plus Wenn vorhanden dann "(1)" anhängen.
23.04.2024 09:45:43
mehrere Bedingungen verknüpfen und mehr
23.04.2024 08:59:38
Bedingte Formatierung
23.04.2024 08:56:21
Mehrzeilige Zellen in einzelne Zeilen aufteilen & auswer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
408to412
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
408to412
408to412
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

User dokumentieren

User dokumentieren
Petra
Hallo Cracks,
habe folgenden Code in DieseArbeitsmappe:

Private Sub Workbook_Open()
Worksheets("Main Menu").ScrollArea = "A$1:$A$25"
Worksheets("Main Menu").Activate
UserForm1.Show 0
Call Menü_einfügen
Dim iRow As Integer
With Worksheets("Remarks")
iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(iRow, 1).Value = Application.UserName
.Cells(iRow, 2).Value = Now
.Columns.AutoFit
End With
ThisWorkbook.Save
BlinkenEin
End Sub

Laeuft alles gut. Die Dokumentation des Users soll nach einer Woch immer geloescht werden
Wie bekomme ich das hin?
Danke
Gruss
Petra

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: User dokumentieren / Teilvorschlag
Uwe
Hallo, Petra!
Soll die gesamte Dokumentation (alle verzeichneten User) nach einer Woche gelöscht werden oder nur die Einträge die älter als eine Woche alt sind?
Vermutlich nutzen mehrere Anwender diese Mappe, so dass die komplettlöschung wohl nicht Dein Ziel ist, die Du in der Art hinbekommen würdest:
  With Worksheets("Remarks")
If .Cells(1, 2) < Now - 7 Then .Columns("A:B").ClearContents
iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
...
Wenn nun also jeweils nur der Bereich gelöscht werden soll, der auf eine Zeit länger als vor sieben Tagen verweist, dann ist die Spalte B bis zur Zeile zu durchsuchen, der eine Zeit beinhaltet, die größer als
.Cells(1, 2) > Now - 7
ist (do..loop until). Nun kann der darüber sich befindende Bereich gelöscht werden und die Zeilen nach oben geschoben werden (ggf. Code über Makro-Aufzeichnung ermitteln).
Hier ist vorausgesetzt, dass der erste gültige Eintrag immer in der Zeile 2 steht.
Vielleicht führt diese Skizze zur Lösung.
Gruß!
Anzeige
AW: User dokumentieren / Teilvorschlag
08.04.2004 09:02:06
Nepumuk
Hallo Petra,
versuch es mal so:

Private Sub Workbook_Open()
    Dim iRow As Integer
    Worksheets("Main Menu").ScrollArea = "A$1:$A$25"
    Worksheets("Main Menu").Activate
    UserForm1.Show 0
    Call Menü_einfügen
    With Worksheets("Remarks")
        For iRow = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
            If DateDiff("D", .Cells(iRow, 2).Value, Now) >= 7 Then Exit For
        Next
        .Cells(iRow, 1).Value = Application.UserName
        .Cells(iRow, 2).Value = Now
        .Columns.AutoFit
        .Range("A2:B65536").Sort Key1:=.Cells(2, 2)
    End With
    ThisWorkbook.Save
    BlinkenEin
End Sub

Gruß
Nepumuk
Anzeige

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige