VBA Formelkontrollmöglichkeit gesucht

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() Dim ersteZeile As Long, letzteZeile As Long, ersteSpalte As Integer, letzteSpalte As Integer Dim i As Long, spalte As Integer, x As String ersteZeile = 2 letzteZeile = 6 ersteSpalte = 3 letzteSpalte = 4 For spalte = ersteSpalte To letzteSpalte x = Cells(ersteZeile, spalte).FormulaR1C1 For i = ersteZeile + 1 To letzteZeile If Cells(i, spalte).FormulaR1C1 <> x Then Cells(i, spalte).Interior.Color = vbYellow End If Next Next End Sub

Sub test2() Dim ersteZeile As Long, letzteZeile As Long, ersteSpalte As Integer, letzteSpalte As Integer Dim i As Long, spalte As Integer, x As String Dim ws As Worksheet ersteZeile = 2 letzteZeile = 6 ersteSpalte = 3 letzteSpalte = 4 For Each ws In ActiveWorkbook '# oder ThisWorkbook With ws For spalte = ersteSpalte To letzteSpalte x = .Cells(ersteZeile, spalte).FormulaR1C1 For i = ersteZeile + 1 To letzteZeile If .Cells(i, spalte).FormulaR1C1 <> x Then .Cells(i, spalte).Interior.Color = vbYellow Debug.Print ws.Name & ": " & .Cells(i, spalte).Address End If Next Next End With Next End Sub

' ********************************************************************** ' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...) ' ********************************************************************** Option Explicit Public Sub test() Dim arr Dim weg Dim Blatt As Worksheet Dim spalte As Range Dim Zelle As Range Dim Log Dim SCR Dim i As Integer Dim A Dim B Set arr = CreateObject("Scripting.dictionary") Set SCR = CreateObject("Scripting.filesystemobject") Set Log = SCR.CreateTextFile("c:\testfile.log", True) For Each Blatt In Worksheets For Each spalte In Blatt.Columns On Error Resume Next weg = arr.removeall For Each Zelle In spalte.SpecialCells(xlCellTypeFormulas) arr.Add Zelle.FormulaR1C1Local, Zelle.Address(External:=True) Next A = arr.keys B = arr.items For i = 0 To arr.Count Log.writeline A(i) & vbTab & B(i) Next On Error GoTo 0 Next Next Log.Close End Sub

' ********************************************************************** ' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...) ' ********************************************************************** Option Explicit Public Sub test() Dim arr Dim weg Dim Blatt As Worksheet Dim spalte As Range Dim Zelle As Range Dim Log Dim SCR Dim i As Integer Dim A Dim B Set arr = CreateObject("Scripting.dictionary") Set SCR = CreateObject("Scripting.filesystemobject") Set Log = SCR.opentextfile("c:\testfile.log", 8, True) Log.writeline vbCrLf & Format(Now, "DD.MM.YY hh:mm:ss") For Each Blatt In Worksheets For Each spalte In Blatt.Columns On Error Resume Next weg = arr.removeall For Each Zelle In spalte.SpecialCells(xlCellTypeFormulas) arr.Add Zelle.FormulaR1C1Local, Zelle.Address(External:=True) Next A = arr.keys B = arr.items For i = 0 To arr.Count Log.writeline B(i) & vbTab & A(i) Next On Error GoTo 0 Next Next Log.Close End Sub

Hi Jürgen
nach welchen Kriterium aber die Zellen markiert werden ist auf den ersten Blick nicht klar ersichtlich.
Danach, ob die Formel mit der Formel der ersten Zelle des Spaltenbereichs (erstezeile) nicht übereinstimmt.
ausserdem habe ich bemerkt das die starre Definition des Zellrechteckes bei meinen verschiedenen unterschiedlichen Seiten so nicht brauchbar ist.
Es gibt Möglichkeiten, die erste relevante u. letzte relevante Zelle pro Spalte per Code zu ermitteln. Dies unterliegen allerdings bestimmten Anforderungen, d.h. Abgrenzungskriterien müssen eindeutig sein, z.B. bis zur letzten gefüllten Zelle der Spalte.
Wie kannst Du in deinem Fall unabhängig von der Zeilenzahl die erste u. letzte relevante Zelle u. erste u. letzte Spalte bestimmen? Kämst Du damit hin, dass z.B. entweder immer in Zeile 2 eine Formel steht oder
falls nein, in der jeweiligen Spalte keine Formel?
wenn man in Excel des Formelüberwachungsmodus einschaltet markiert Excel in Frage kommende Zellen links oben mit einem kleinen grünen Dreieck; ist aber schlecht zu erkennen. vielleicht könntest du die Routine so modifizieren das sie die Hintergrundfarbe solcher Zellen ändert die von Excel bereits markiert sind.
Leider ich nicht, da ich eine niedrigere Excel-Version habe, die dieses Feature nicht enthält.
Wie gedenkst Du dann Zellen „zwischendrin“ zu finden, bei denen die Formel irrtümlich gelöscht worden ist?
optimal wäre es zudem wenn die Routine eine Datei schreiben würde die für jede Zelle Blattnamen und Zellnamen in eine Zeile schreibt damit man die zweifelhaften Zellpositionen alle zusammen aufgelistet hat.
Ist machbar. Du müsstest noch mitteilen, wie viele „Formelfehler“ maximal angezeigt werden können sollen.Aber hast Du ins Direktfenster im Visual-Basic-Editor geschaut? Dort stehen solche Welche jetzt drin.
Reicht dies nicht ?
ich habe Blätter die je über 50 und mehr Bildschirmseiten gross sind,
und ich müsste sonst wie wild Blättern und Scrollen um nach markierten Zellen zu suchen.
Verstehe. Doch in Verbindung mit der "Liste", zur Zeit im Direktfenster des Editors, könnte die
Einfärbung ggf. als Ergänzung hilfreich sein.
Gruß Gerd

Hallo Gerd
Hi Jürgen
nach welchen Kriterium aber die Zellen markiert werden ist auf den ersten Blick nicht klar ersichtlich.
Danach, ob die Formel mit der Formel der ersten Zelle des Spaltenbereichs (erstezeile) nicht übereinstimmt.
Dann habe ich mich falsch ausgedrückt:
ich meinte immer die jeweilige Relation zur Formel in der Vorgängerzelle der Spalte.
ausserdem habe ich bemerkt das die starre Definition des Zellrechteckes bei meinen verschiedenen unterschiedlichen Seiten so nicht brauchbar ist.
Es gibt Möglichkeiten, die erste relevante u. letzte relevante Zelle pro Spalte per Code zu ermitteln. Dies unterliegen allerdings bestimmten Anforderungen, d.h. Abgrenzungskriterien müssen eindeutig sein, z.B. bis zur letzten gefüllten Zelle der Spalte. Wie kannst Du in deinem Fall unabhängig von der Zeilenzahl die erste u. letzte relevante Zelle u. erste u. letzte Spalte bestimmen? Kämst Du damit hin, dass z.B. entweder immer in Zeile 2 eine Formel steht oder falls nein, in der jeweiligen Spalte keine Formel?
zum Eingrenzen der zu kontrollierenden Zeilen habe ich mich für Zeichen in Spalte A entschieden:
">" für den Beginn ab der übernächsten Zeile
(die erste Zeile danach enthält die erste Formel und ist damit immer anders als die vorhergehende Zeile!)
"<" für das Ende der Kontrolle
es können aber mehrere zu kontrollierende Zeilenblöcke auf einer Seite vorhanden sein!
wenn man in Excel des Formelüberwachungsmodus einschaltet markiert Excel in Frage kommende Zellen links oben mit einem kleinen grünen Dreieck; ist aber schlecht zu erkennen. vielleicht könntest du die Routine so modifizieren das sie die Hintergrundfarbe solcher Zellen ändert die von Excel bereits markiert sind.
Leider ich nicht, da ich eine niedrigere Excel-Version habe, die dieses Feature nicht enthält.
vielleicht findest du oder jemand mit einer höheren Excelversion ja eine Möglichkeit ich ich dann mei mir ausprobieren könnte.
wäre aber optimal wenn das Programm alternativ beide Kontrollmöglichkeiten realisieren könnte.
Wie gedenkst Du dann Zellen zwischendrin zu finden, bei denen die Formel irrtümlich gelöscht worden ist?
indem sie keine Formel enthält obwohl ihr Vorgänger und ihr Nachfolger gleiche Formeln enthalten.
Das Problem dürfte sich aber durch die > < Abgrenzung erübrigen.
optimal wäre es zudem wenn die Routine eine Datei schreiben würde die für jede Zelle Blattnamen und Zellnamen in eine Zeile schreibt damit man die zweifelhaften Zellpositionen alle zusammen aufgelistet hat.
Ist machbar. Du müsstest noch mitteilen, wie viele Formelfehler maximal angezeigt werden können sollen.
alle. Die Datei kann endlos gross sein.
Aber hast Du ins Direktfenster im Visual-Basic-Editor geschaut? Dort stehen solche Welche jetzt drin.
Reicht dies nicht ?
ich kenne VBA zu wenig um zu wissen was du damit meinst.
ich habe Blätter die je über 50 und mehr Bildschirmseiten gross sind,
und ich müsste sonst wie wild Blättern und Scrollen um nach markierten Zellen zu suchen.
Verstehe. Doch in Verbindung mit der "Liste", zur Zeit im Direktfenster des Editors, könnte die Einfärbung ggf. als Ergänzung hilfreich sein.
ransi hat unter diesem Thread mittlerweile auch eine Routine geschrieben die das mit dem Schreiben in eine Datei macht, allerdings noch nicht ganz optimal für mich wie erst der 1. Versuch gezeigt hat
und ohne die Zellen in den Blättern durch Änderung der Hintergrundfarbe zu markieren.
diese Möglichkeit möchte ich mir als Option im Programm offen halten,
macht aber letztlich eventuell zusätzliche Arbeit um bei diesen Zellen danach wieder manuell die Hintergrundfarbe zurück geändert werden muss.
Da die Routine von ransi prinzipiell funktioniert wäre es vielleicht vorteilhafter dessen Routine ggf. so zu ändern das sie für mich optimal ist statt eine weitere Routine neu zu entwickeln; ich habe dort auch noch weitere Änderungswünsche und Nebenbedingungen beschrieben um bei mehreren Kontrollen hintereinander nicht immer wieder die gleichen, aber doch richtigen Zellpositionen gemeldet zu bekommen.
Gruss
Jürgen

Beliebteste Forumthreads (12 Monate)

VBA Formelkontrollmöglichkeit gesucht

23 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread