Hallo an alle Forumteilnehmer,
habe eine Exelliste mit 20 Tabellenblätter als Vorlage.
Öffne mir dann eine ältere Datei und lasse diese miteinander vergleichen.
Lege mir dann zu jeder Tabelle eine Diff-Tabelle an um mir die differenzen anzeigen zu lassen.
Fasse dann die Differenzen in einer Ges-Diff zusammen.
Hier ist mein Problem. Es kommt immer wieder vor, dass er mir eine Diff-xx anlegt , auch einen Inhalt hat,
diesen dann aber nicht in Ges-Diff überträgt.
Was mich dann aber zur Verzeiflung bringt ist dass er die Diff-xxx dann aber löscht.
D.h. er findet diese zur Bearbeitung... Muss also was mit der Zusammenfassung zu tun haben...
For Each wks In ActiveWorkbook.Worksheets
'MsgBox wks.Name
If Left(wks.Name, 4) = "Diff" Then
wksDiff.Name = ActiveSheet.Name
wks.UsedRange.Copy
With Sheets("Ges-Diff")
lrow = .Range("B65536").End(xlUp).Row + 1
.Range("A" & lrow) = wks.Name
.Range("B" & lrow).PasteSpecial
End With
Application.DisplayAlerts = False
wks.Delete
Application.DisplayAlerts = True
End If
Next
Verzweifelter Gruß
Stefan