Daten-Plausibilitätscheck via VBA

Hallo zusammen,
vorab schonmal vielen Dank für die Unterstützung!

Wie muss der vba-Code aussehen, wenn ich für die Datei (siehe Link unten) einen automatischen Datencheck machen und das Ergebnis als Message/Nachrichten-Box ausgeben möchte?

Es sollen grundsätzlich alle drei Reiter geprüft werden und bei gefundenen Fehlern die Namen der Reiter + Koordinaten der jeweiligen Zellen in der Message/Nachrichten-Box ausgegeben werden.

Für alle Reiter gilt: fehlt in den Spalten A,B,C ein Wert (Beispiel in Volumen), dann ist das ein Fehler
Für Reiter Umsatz gilt: Alle Werte in Spalten D-O müssen positive Zahlen sein und dürfen nicht >100 sein.
Für Reiter Kosten gilt: Alle Werte in Spalten D-O müssen negative Zahlen sein und dürfen nicht >-100 sein.

https://www.herber.de/bbs/user/168287.xlsx

Im Falle der beigefügten Datei würde die Fehlermeldung folgendermaßen aussehen:

Folgende Fehler gefunden:
Umsatz - Zelle L5
Kosten - Zelle L5
Kosten - Zelle I8
Volumen - Zelle C3

Wer kann mir hier helfen?
Vielen Dank.

Viele Grüße
Tobi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Falscher Ansatz

24.03.2024 17:11:43

{Boris}

AW: Daten-Plausibilitätscheck via VBA

25.03.2024 12:37:13

daniel

AW: Falscher Ansatz

24.03.2024 22:46:09

Youngdell

Bei 5000 Zeilen...

25.03.2024 11:03:58

{Boris}

Zum Testen...

25.03.2024 11:43:26

{Boris}

Sub test() Dim ws As Worksheet Dim Zelle As Range Dim txt As String Dim f As Long For Each ws In Worksheets(Array("Umsatz", "Kosten", "Volumen")) For Each Zelle In ws.UsedRange.Columns(1).Resize(, 3).Cells If Zelle.Value = "" Then txt = txt & vbLf & ws.Name & " - " & Zelle.Address(0, 0) Next Next For Each ws In Worksheets(Array("Kosten", "Umsatz")) f = IIf(ws.Name = "Kosten", -1, 1) For Each Zelle In Intersect(ws.UsedRange, ws.UsedRange.Offset(1, 3)) If Not IsNumeric(Zelle.Value) Then txt = txt & vbLf & ws.Name & " - " & Zelle.Address ElseIf Zelle.Value * f > 100 Or Zelle.Value * f 0 Then txt = txt & vbLf & ws.Name & " - " & Zelle.Address End If Next Next MsgBox Replace(txt, "$", "") End Sub

Option Explicit Sub Check() Dim C As Range, s As String, B As Boolean For Each C In Range("A1:C2") B = (IsNumeric(C) * (C >= 0) * (C = 100)) If Not B Then s = s & C.Address(0, 0) & " passt noch nicht." & Chr(10) End If Next C MsgBox s End Sub

Beliebteste Forumthreads (12 Monate)

Daten-Plausibilitätscheck via VBA

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten-Plausibilitätscheck via VBA

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread