Zellenprüfung auf korrekten Wert

Hallo,
ich habe eine Idee und möchte die Frage stellen ob dies mit VBA umsetzbar ist. Ich lasse schon über ein VBA Code was laufen und möchte gerne im Vorfeld eine Prüfung durchführen. Es soll in einer Spalte nach Zelleninhalten gesucht werden. Sollten diese Zelleninhalte nicht dem gewünschten Format entsprechen, soll über eine Messagebox mitgeteilt werden an welcher Stelle der Fehler vorhanden ist, optimaler Weise mit einem Bezug zu einer Zelle in der eine laufende Nummer steht. Als Zelleninhalte soll das Format "n/a" , "0x" ( ist enthalten weil Hexzahl) und eine "Dezimalzahl" als Ok gelten. Bei allen anderen Formaten soll dann der Fehler in der Messagebox angezeigt werden und es geht nur weiter wenn man "OK" drückt.
Sollen jetzt Fehler vorhanden sein, sollte man das Makro abbrechen können, um sich erst die Fehler anzuschauen.
Wie könnte man sowas angehen ?
Eine Beispieldatei habe ich angefügt.
https://www.herber.de/bbs/user/155724.xlsm
Vielen Dank im Voraus
Gruß Kai

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub T_1() For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row If Cells(i, 2) = "n/a" Then ElseIf IsNumeric(Cells(i, 2)) Then ElseIf Left(Cells(i, 2), 2) = "0x" Then Else: Cells(i, 2).Interior.Color = vbYellow End If Next i End Sub

Dim rngC As Range For Each rngC In Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp)).Offset(, 1) Select Case True Case rngC = "n/a", Left(rngC, 2) = "0x", IsNumeric(rngC) 'OK Case Else Application.Goto rngC.Offset(, -1), True If MsgBox("Fehler in Zeile " & rngC.Row & vbLf & "Weitersuchen?", vbYesNo, "FEHLER") = vbNo Then Exit For End If End Select Next rngC End Sub

Sub Unit() Dim rngC As Range, blnAlle As Boolean blnAlle = (MsgBox("Gesamtcheck?", vbYesNo, "Fehlersuche") = vbYes) For Each rngC In Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp)).Offset(, 1) Select Case True Case rngC = "n/a", Left(rngC, 2) = "0x", IsNumeric(rngC) 'OK Case Else If Not blnAlle Then Application.Goto rngC.Offset(, -1), True If MsgBox("Fehler in Zeile " & rngC.Row & ":" & rngC.Offset(, -1) & vbLf & "Weitersuchen?", vbYesNo, "FEHLER") = vbNo Then Exit For End If Else strMessage = strMessage & vbLf & "Zeile " & rngC.Row & ": " & rngC.Offset(, -1) & " : " & rngC End If End Select Next rngC If Len(strMessage) > 0 Then MsgBox strMessage, , "Fehler" Else MsgBox "keine", , "Fehler" End If End Sub

Hallo Kai,
mit diesen Boxen ist m.E. etwas anderes als sorum dann irreführend.


Sub Unit2()
Dim rngC As Range, blnAlle As Boolean
blnAlle = (MsgBox("Gesamtcheck?", vbYesNo, "Fehlersuche") = vbYes)
If Not blnAlle Then If Not MsgBox("Einzelprüfungen?", vbOKCancel, "Fehlersuche") = vbYes Then Exit Sub
For Each rngC In Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp)).Offset(, 1)
Select Case True
Case rngC = "n/a", Left(rngC, 2) = "0x", IsNumeric(rngC)
'OK
Case Else
If Not blnAlle Then
Application.Goto rngC.Offset(, -1), True
If MsgBox("Fehler in Zeile " & rngC.Row & ":" & rngC.Offset(, -1) & vbLf & "Weitersuchen?", vbYesNo, "FEHLER") = vbNo Then
Exit For
End If
Else
strMessage = strMessage & vbLf & "Zeile " & rngC.Row & ": " & rngC.Offset(, -1) & " : " & rngC
End If
End Select
Next rngC
If Len(strMessage) > 0 Then
MsgBox strMessage, , "Fehler"
Else
MsgBox "keine", , "Fehler"
End If
End Sub

Gruß Gerd

Sub TestIt() Cells(1, 3) = "Fehler" Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp)).Offset(, 2).FormulaR1C1 = _ "=IF(OR(RC[-1]=""n/a"",LEFT(RC[-1],2)=""0x"",ISNUMBER(RC[-1])),"""",""x"")" If Application.CountIf(Columns(3), "x") Then 'wenn Fehler Filtern ActiveSheet.Cells(1, 1).CurrentRegion.AutoFilter Field:=3, Criteria1:="x" End If End Sub

Beliebteste Forumthreads (12 Monate)

Zellenprüfung auf korrekten Wert

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

131 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellenprüfung auf korrekten Wert

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

131 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread