Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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
Anzeige

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
Anzeige
;

Forumthreads zu verwandten Themen

Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige