Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1136to1140
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
Inhaltsverzeichnis

Formelabgleich zweier Tabellen

Formelabgleich zweier Tabellen
F.
Hallo zusammen
Eine sehr grosse Tabelle mit zig Formeln wies Fehler auf. Da ich leider keinen Schutz gesetzt habe, kann jede Person Veränderungen durchführen. Ich möchte die abweichende Tabelle mit meiner Master-Tabelle vergleichen, genauer nur die Formeln darin. Ist dies machbar ohne dass ich jede Formel einzeln von Hand vergleichen muss?
Danke und Gruss
Frédéric

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

Betreff
Benutzer
Anzeige
AW: Formelabgleich zweier Tabellen
16.02.2010 10:29:06
Reinhard
Hallo Frédéric,
mal als Ansatz, es fehlt noch der Abgleich ob im zu prüfenden Blatt in Zellen Formeln dazukamen.
Sub Checken()
Dim wks1 As Worksheet, wks2 As Worksheet, Zelle As Range
Set wks1 = Worksheets("Tabelle1") 'Master
Set wks2 = Worksheets("Tabelle2")  'zu prüfende tabelle
With wks1
For Each Zelle In .UsedRange.SpecialCells(xlCellTypeFormulas)
If Zelle.Formula  wks2.Range(Zelle.Address) Then
Zelle.Interior.ColorIndex = 34
wks2.Range(Zelle.Address).Interior.ColorIndex = 34
End If
Next Zelle
End With
End Sub

Gruß
Reinhard
Anzeige
AW: Formelabgleich zweier Tabellen
16.02.2010 10:42:50
Chris
Servus,
in das zu prüfende Workbook und die Namen anpassen (Tabellenmodul):
Sub t()
Dim rFormula As Range, AdressenArray(), X As Long
For Each rFormula In Cells.SpecialCells(xlCellTypeFormulas)
If rFormula.Formula  Workbooks("Test.xls").Sheets(1).Range(rFormula.Address).Formula Then
ReDim Preserve AdressenArray(X)
AdressenArray(X) = rFormula.Address
X = X + 1
End If
Next rFormula
For X = LBound(AdressenArray()) To UBound(AdressenArray())
MsgBox AdressenArray(X)
Next X
End Sub
Gruß
Chris

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige