zellbezogene Prüfung via VBA

Hallo zusammen,
ich brauche mal wieder Eure Unterstützung ...
Ich habe eine Datei bei der ab Zeile 65 bis Zeile 500 eine Prüfung erfolgen muss.
Und zwar muss in den Bereichen geprüft werden:
- wenn B65 >0
- dann muss es in den Zellen: C65, D65, E65, G65, O65, P65, Q65, R65 einen Inhalt geben. Dieser darf aber nicht =0 sein.
Diese Prüfung muss bis Zeile 500 erfolgen, wobei die Spalten gleichbleiben.
Also bis:
- wenn B500 >0
- dann muss es in den Zellen: C500, D500, E500, G500, O500, P500, Q500, R500 einen Inhalt geben. Dieser darf aber nicht =0 sein.
Wenn es in einer oder mehreren Zellen keinen Inhalt gibt oder der Inhalt =0 ist, dann muss eine Meldung erscheinen.
Könnt Ihr mir da bitte bitte weiterhelfen?
1000-DANK!!!!
Liebe Grüße
Sandra

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub Bedingte_Leer_und_Null_Prüfung() Dim arr() As Variant Dim intIndex As Integer Dim strMessage As String arr = Range("B65:R68").Value For intIndex = 1 To UBound(arr) If arr(intIndex, 1) > 0 Then If arr(intIndex, 2) * arr(intIndex, 3) * arr(intIndex, 4) * arr(intIndex, 5) * arr( _ intIndex, 14) * _ arr(intIndex, 15) * arr(intIndex, 16) * arr(intIndex, 17) = 0 Then strMessage = strMessage & vbLf & intIndex + 64 End If End If Next If Len(strMessage) Then MsgBox "Leer- oder Nullwerte in Zeile:" & vbLf & strMessage End Sub

Hallo Sandra,
hier eine Variante die direkt die Zellinhalte auswertet und nicht die Zellwerte in ein Array einliest.
Bei vielen Zellen kann die Array-Variante deutlich schneller sein.
Gruß
Franz

Sub Bedingte_Leer_und_Null_Prüfung()
Dim Zeile As Long, Spalte As Long, wks As Worksheet
Dim strMessage As String
Set wks = ActiveSheet ' zu prüfendes Tabellenblatt
With wks
For Zeile = 65 To 500
If Not IsEmpty(.Cells(Zeile, 1)) Then 'oder
'    If .Cells(Zeile, 1).Value > 0 Then
For Spalte = 3 To 18
Select Case Spalte
Case 3 To 5, 7, 15 To 18 'Spalten C-D, G, O bis R
If .Cells(Zeile, Spalte).Value = 0 Or .Cells(Zeile, Spalte).Value = "" Or _
IsEmpty(.Cells(Zeile, Spalte)) Then
strMessage = strMessage & vbLf & Zeile
Exit For
End If
Case Else
'do noting
End Select
Next
End If
Next Zeile
End With
If Len(strMessage) Then
MsgBox "Leer- oder Nullwerte in Zeile(n):" & vbLf & strMessage, vbInformation, _
"Prüfen Eingabewerte"
Else
MsgBox "keine Leer- oder Nullwerte in den zu prüfenden Zellen gefunden!", vbInformation, _
"Prüfen Eingabewerte"
End If
End Sub

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread