Curser springt auf anderes Blatt - Report funktioniert nicht

Guten Morgen Zusammen,
Dank Eurer Hilfe habe ich eine Tabelle mit ein paar Grundlegenden Funktionen erstellen können.
1. Umbenennung der Tabellenblätter
2. Ein- und Ausblenden der Tabellenblätter mit Doppelklick
3. Automatischer Eintrag von Datum und Username
4. Report

Anbei die originale Datei

https://www.herber.de/bbs/user/167132.xlsm

Ich habe jetzt aber folgendes Problem.
1. Der Report wird nicht für alle Tabellenblätter erstellt, obwohl aus meiner Sicht, die Formel auf die Tabelle2 (Reort) verweist.
2. wenn ich einen Eintrag mache in eine Tabelle in der Spalte F, sprint der Cursor sofort zum Tabellenblatt Gesamt zurück.

Die Bereiche sind für einelne Benutzer freigegeben durch den Benutzernamen (Bearbeiten von Bereichen zulassen)

Ich wäre Euch sehr dankbar, für eine Lösung, da wir diese Tabelle für alle Projekte einsetzen wollen.

Vielen Dank im Voraus
Beste Grüße
Hinnerk

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo

Wie schon bescrieben hast Du ein Problem mir dem UNDO Puffer. Mach einmal folgenden Versuch: Erstelle ein neues Excel File mit 2 Tabellenblättern. Trage in Tabelle1 A1 eine beliebiegen Wert ein. Gehe zu Tabelle2 und trag dort ebenfalls in A1 einen beliebigen Wert ein. Und nur Zurück auf Tabelle1. Drücke STRG-Z (Rückgängig) und wo landeste Du: auf Tabelle2.

In Deinen Tabellen werden die Events eingeschaltet und danach schreibst Du User/Datum in die Tabelle. Dies löst aber wiederum das Change Event aus. Undo hat nun auf diesem Tabelleblatt keine Funkion (wenn etwas mit einem Makro in ein Tabellblatt geschrieben wird, wird der UNDO Puffer des Blattes gelöscht). Hat Du in Gesamt etwas geschrieben , so versucht UNDO dies zu löschen (funktioniert nicht, aber du landest auf diesem Blatt).

Ändere Deinen Code (select case macht den Code übersichtlicher:



Private Sub Worksheet_Change(ByVal Target As Range)



    '**** Report Anfang



    Dim X As Range

    Dim Y As Range

    Dim C As Range

    

    On Error GoTo fin

    

    If Not Intersect(Target, Range("F3:R100000")) Is Nothing Then

        For Each C In Intersect(Target, Range("F3:R100000"))

            X = C

            Application.EnableEvents = False

            Application.Undo

            Y = C

            C = X

            Sheets(2).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(1, 5) = _

                Array(C.Address(0, 0), Y, X, Date, Environ("username"))

        Next

    End If



fin:

    If Err.Number > 0 Then Err.Clear

    

    ' **** Report Ende



    If Target.Row > 2 Then

        Select Case Target.Column

            Case 6, 7, 8, 9

                Target.Offset(0, 5).Value = Date

                'Target.Offset(0, 2).Value = Time

                Target.Offset(0, 9).Value = Environ("username")

        End Select

    End If



    Application.EnableEvents = True



End Sub

Peter

Beliebteste Forumthreads (12 Monate)

Curser springt auf anderes Blatt - Report funktioniert nicht

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Curser springt auf anderes Blatt - Report funktioniert nicht

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread