Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1960to1964
1960to1964
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Änderungsprotokoll in anderes Tabellenblatt

Forumthread: Änderungsprotokoll in anderes Tabellenblatt

Änderungsprotokoll in anderes Tabellenblatt
15.01.2024 10:49:55
hkoepp63
Hallo Zusammen,
ich versuche in einem Tabellenblatt Änderungen abzuspeichern.
Trotz intensiver Suche konnte ich keine Lösung für ein Tabellenblatt finden, nur für eine externe Datei.

Anbei eine Beispieldatei mit einem Makro für das Befüllen von zwei zusätzlichen Feldern mit Datum und Benutzer.

Wenn möglich eine Version, wo ich ohne Fehler auch mehrere Felder löschen kann.
Es geht nur um die Spalten F bis J in dem Kundenblatt.

Eine Beispieldatei habe ich hochgeladen: 
https://www.herber.de/bbs/user/166075.xlsm


Vielen Dank im Voraus für Eure Unterstützung.

Beste Grüße
Hinnerk
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Änderungsprotokoll in anderes Tabellenblatt
15.01.2024 11:25:09
GerdL
Hallo Florian! 
Private Sub Worksheet_Change(ByVal Target As Range)



    Dim X, Y, C As Range

    

    

    On Error GoTo fin

    

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

    

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

        

            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

    Application.EnableEvents = True





End Sub


Gruß Gerd
Anzeige
AW: Änderungsprotokoll in anderes Tabellenblatt
15.01.2024 11:34:17
hkoepp63
Hallo Gerd,
bist Du sicher, daß das für mich war?
Falls ja, habe ich zwei Probleme:

1. Doppelter Eintrag: Private Sub Worksheet_Change(ByVal Target As Range)
2. Sehe ich keinen Hinweis im Code auf das Blatt "Report" und es kommt auxch nichts an.

Oder mache ich hier Einen Fehler?
Ich habe den Code in Bereich (Kunden) kopiert.

Kannst Du das bitte noch einmal prüfen.

Grüße
Hinnerk
Anzeige
AW: Änderungsprotokoll in anderes Tabellenblatt
15.01.2024 11:39:29
Charles
Hallo,
bitte den "alten" Makroeintrag auskommentieren, dann funktioniert es einwandfrei!

Charles
AW: Änderungsprotokoll in anderes Tabellenblatt
15.01.2024 11:43:16
hkoepp63
Hallo Charles,
ich benötige aber das andere Makro für einträge im Kunden Blatt.

Ich versuche es noch einmal andersrum...

Danke für das schnelle Feedback.
Grüße
Hinnerk
Anzeige
AW: Änderungsprotokoll in anderes Tabellenblatt
15.01.2024 11:45:24
hkoepp63
Super. Wenn der Code vor den ersten kommt. Klappt es.
Danke an Euch Beide.

Grüße
Hinnerk

Forumthreads zu verwandten Themen

automatische übertragung in neues tabellenblatt
tomtom

Also zuerst mal, wollt ich sagn dass ich nur mit vb 8.0 bis jetzt ein paar spielereien wie Taschenrechner und so gemacht habe. Also falls das bei mitm vb-excel nicht klappt muss ich halt nochmal nachfragen...
Also nun zu meinem Problem:
Und zwar hab ich eine Liste mit Artikel und in de...
19.08.2008 22:57:53
Thread-ID: 1003053
3 Beiträge
Datensätze in neues Tabellenblatt
kutzmutz

Hallo liebe Experten,
ich bastele für meinen Vater eine Übersicht über Bestellungen. Es gibt ein Tabellenblatt "Ersatzteile" in dem Teile mit Bestellnummern, Preisen etc. versehen sind. Wird ein Teil benötigt, wird die Zeile grün markiert und der Gesamtpreis der zu bestellenden Teile ans En...
26.08.2008 23:09:00
Thread-ID: 1004943
3 Beiträge
Anzeige
Werte in anderes Tabellenblatt übertragen
Bibo

Hallo liebe EXCEL-Freunde,
ich habe in der Online-Suche leider kein Makro gefunden, das ich mit meinen minimalen VBA-Kenntnissen hätte selbständig auf meine Problematik anpassen können und bitte Euch deshalb um Eure Hilfe.
In das Tabellenblatt "Kommission" der Beispielmappe, das als Har...
31.08.2008 17:54:00
Thread-ID: 1006231
4 Beiträge
Autofilter Kopieren und Einfügen
erich

Hallo Excelprofis,
erstmal danke für die vielen hilfen die ich hier bekommen habe.
nun zu meinen Problem:
ich habe eine Tabelle in der Taktzeiten erfast werden (Spalte A Beschreibung Spalte C Zeitdaten und in der Spalte F in die Taktbezeichnung hinterlegt z.B. Takt1, Takt2 usw.
...
07.10.2008 19:34:43
Thread-ID: 1014801
3 Beiträge
Text aus einer Zelle in ein anderes Tabellenblatt
grigolet

Hallo,
ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
09.10.2008 11:24:26
Thread-ID: 1015295
2 Beiträge
Anzeige
Filtern und Kopieren - VBA
Wolfgang

Hallo,
gestern konnte ich von Daniel viele gute Tipps und Hinweise erhalten, um meine Frage zu klären. Mit dem folgenden Code möchte ich erreichen, dass gefilterte Daten in "Grunddaten" in die Tabelle "Altdaten" kopiert werden und diese Datensätze dann in "Grunddaten" gelöscht werden. Das k...
09.11.2008 10:21:00
Thread-ID: 1023032
7 Beiträge
Tab.1 filtern,Kopieren und in Tab.2 einfügen
Ünal

Hallo zusammen,
ich bin ein Anfänger was VBA angeht. Ich habe mir immer durch die hilfreichen Forums helfen können. Doch zu meiner jetzigen Frage habe ich noch kein Antwort gefunden .
Ich kopiere aus mehreren Text Dateien die Inhalte auf ein Excel-Tabellenblatt (1) Untereinander.
Da...
11.03.2009 16:06:48
Thread-ID: 1059163
3 Beiträge
Tab.1 filtern,Kopieren und in Tab.2 einfügen
Ünal

Hallo zusammen,
gestern habe ich eine frage gestellt gehabt wobei mir sehr geholfen war.
Nun habe ich festgestellt das es doch noch einen Hacken gibt. Und zwar möchte ich das in Tabellenblatt2 nicht immer ab der Zeile 2 angefangen wird sondern immer ab der nächsten freien Zeile geschri...
12.03.2009 13:40:36
Thread-ID: 1059470
3 Beiträge
In Tabelle Suchen und Bereich kopieren - Bitte Hil
Marc

Hallo,
auch nach ausgiebiger Suche habe ich leider keine Lösung zu meinem Problem gefunden.
Ich möchte aus einem anderen Workbook nach einem bestimmten Text suchen, dies mache ich bislang wie folgt
Dim Zelle as Range
Dim customers as Range
Set customers = Workbooks("Cus...
25.06.2009 20:52:35
Thread-ID: 1084450
4 Beiträge
Filtern, kopieren und absteigend sortieren
Dani

Hi @ all!
Leider muss ich mich schon wieder an euch wenden. Und zwar hab ich immer noch folgenden Code, der aus dem aktiven Tabellenblatt Daten filtert und dann kopiert.
Sub FilternKopierenTGA()
Dim rngAct As Range
With Worksheets("TGA")
.Cells.Clear
Range("N1").AutoFilt...
14.07.2009 22:40:17
Thread-ID: 1088668
3 Beiträge
Zeilen einfügen und kopieren
bug-i

Hallo, ich brauche eure Hilfe:
Folgende Beispietabelle:
Merkmal - Text
1 - Text1
3 - Text2
1 - Text3
1 - Text4
2 - Text5
1 - Text6
Ich möchte jetzt für jede Zeile, die ein Merkmal größer als 1 hat danach eine neue Zeile mit gleichem Inhalt einfügen.
Die T...
05.08.2009 10:11:39
Thread-ID: 1093668
2 Beiträge
Anzeige
Zeilen variabel oft kopieren und einfügen
Bernd

Hallo Forum,
ich tüftle seit einiger Zeit vergebens an folgender Aufgabe und bitte um eure Hilfe:
Ich habe in einer Mappe zwei Sheets: Tab1 und Tab2
In Tab1 importiere ich Daten mit Hilfe des Textkonvertierungsassistenten aus einer txt-Datei.
Die txt-Datei kann unterschiedlich v...
03.09.2009 17:41:35
Thread-ID: 1100389
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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