Office: Kontroll Funktion

Hallo Schatzi,

da du mir ja beim letzten mal so klasse geholfen hast habe ich gleich mal eine neue Frage:-)

Folgendes Problem

Ich sende 1 mal in der Woche 5 Exceltabellen durch die Gegend.
Diese Tabellen (Inhalt ca. 60 Blätter) werden in einer Woche von 5 Mann verändert, es erfolgen also eintragungen in div. Zellen.

Gibt es ein Möglichkeit jetzt eine Funktion einzubauenin der ich sehe wieviel Zellen geändert aktuell geändert wurden. ?

Bye Schatzi

 

Hallo!

Wenn du diesen Code in "DieseArbeitsmappe" kopierst, dann werden alle geänderten Zellen mit einem roten Hintergrund versehen:

Code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Target.Interior.ColorIndex = 3
End Sub

 

Meine es anders

Danke für Deine Antwort, das Thema ist aber folgendes

Ich will die Nennung der Zelle und der Tabelle in einem gesonderten Arbeitsblatt.

Ich müsste also für diese Funktion eine Verknüpfung herstellen zu den bestehen Arbeistblättern. Hast Du einen Tip?

Ich möchte das das nicht jeden sieht. Bzw. es zumindest nicht in der zu versendenden Listen erkenntlich ist. Und es ändert sich ja auch jede Woche, ich will also nicht sehen was sich vor 2 Wochen geändert hat, sondern immer aktuell die letzte Woche.

Hast du eine Idee?

Grüße Balschor

 

Hallo!

Dann probier's so:
Die Änderungen werden in Tabelle1 aufgelistet.

Code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name <> "Tabelle1" Then
With Sheets("Tabelle1")
Dim x As Long
x = .Range("A65536").End(xlUp).Row + 1
.Cells(x, 1) = Sh.Name
.Cells(x, 2) = Target.Address
.Cells(x, 3) = Target.Value
.Cells(x, 4) = Now
End With
End If
End Sub

 

Versteh ich leider nicht

Hallo Schatzi

ich versteh leider nicht was ich machen soll.
Ich fasse nochmal zusamen was ich meine.

Ich habe 3 Exceldateien

Datei 1
3 Tabellenblätter
Datei 2
2 Tabellenblätter
Datei 3
2 Tabelleblätter

Jetzt hätte ich gerne eine
neue Excel datei mit dem Inhalt von einem Blatt,
wo ich sehen kann welche Änderung in allen 3 Dateien erfolgten.

Am besten wäre es wenn ich sehen könnte welche Änderung es gegeben hat von Woche zu Woche und dann den Vergleich.

Ich denke das ist jetzt sehr Schwierig, das Probl. was ich einfach habe, ist das ich jede Woche ca. 20,000 Zellen überprüfen muss ob es da eine Änderung zur Vorwoche gegeben hat. Und ich den Vergleich zwischen den 3 Exceldatein suchen muss.

Wenn Du eine Idee hast kann st du es mir vieleicht Deppenlleicht erklären?:-)
Wie gesagt ich bin nicht der Derjenige der Excel zum Frühstück isst.

Bye und holfe auf schnelle Hilfe

 

Hallo!

So wie du das gerne hättest, bekomme ich das nicht hin.
Mein Vorschlag bezieht sich auf jede Datei einzeln.
Der zweite Code listet im Blatt "Tabelle1" alle Zellen auf, die geändert wurden.
Also musst du ihn in die Mappen einbauen, die du verschickst.
Und wenn du dieses Blatt ausblendest, dann ist es für andere auch nicht einsehbar.

 

hm

Also was muss ich jetzt genau machen?
Tabelleblatt einfügen,
Alt F 11 modul einfügen

Und dann habe ich ein leeres Tabllenblatt und nun ?

Grüße Balschor

 

Nein, kein Modul einfügen!
Doppelklicke im VBA-Editor auf "DieseArbeitsmappe" und füge den Code dann ins Codefenster rechts ein.

 

Sorry Schatzi ich raffe es nicht,

ich sende Dir mal die datei

 

Nochmal:

Im VBA-Editor siehst du im linken Fenster die Einträge
DieseArbeitsmappe
Tabelle1
Tabelle2
Tabelle3
usw.

Doppelklicke auf "DieseArbeitsmappe" und füge den Code dann rechts ein.
Dein bisheriges Modul kannst du löschen.

 

ok. ok!!

Ich habe es gerafft schatzi, nez gleich böse sein.., danke noch mal....

 

Ich bin doch nicht böse...

 

Hallo Schatzi.

Ok da du ja nicht böse bist kann ich Dir ja gleich die nächste Fangfrage stellen..

Nein folgendes: Du hast mir doch den Code für die " Farbsumme" genannt.
Nun folgendes, geht das auch das ich nun alle Zählen kann die eine Farbe haben?

Sprich es soll alles angezeigt werden aber die markierten gezählt, also nicht mit teilergebniss da alle Zellen angezeigt werden sollen.


Danköööööööööööööööööööö

 

Wenn ich das richtig verstehe, dann ist das einfach die Gesamtsumme minus der Farbsumme(keine Farbe), oder nicht?

 

Moin Schatzi

ehm nein oder?

ich meinte: zähle mir alle zählen die ie farbig markiert sind.
wenn also von 20 Zellen 5 markiert sind soll das ergebniss 5 sein.