VBA prüfen nach zwei Spalten
02.07.2020 13:35:05
Seb
ich würde gerne folgendes umsetzen:
Bei klick auf einen Button sollen mir in einer msgbox bestimmte Zelleninformationen ausgewiesen werden. Die Krux ist, dass nur die Zellen ausgewiesen werden sollen die einerseits in Spalte O Inhalt haben und in Spalte L aber leer sind. Also um es anschaulicher zu machen:
In Spalte A steht ein Kennzeichen, in Spalte L ein Datum sowie in Spalte O ein Datum. Geprüft werden sollen alle Zellen (oder Bereich, ist erstmal egal) bei denen Spalte L leer ist GLEICHZEITIG aber Spalte O GEFÜLLT IST. Als Info sollte dann in der msgbox die Information des Kennzeichen (Spalte A) der jeweiligen aufgefundenen Zeilen erscheinen.
Das hier ist was ich bisher habe, leider prüft dies nicht nach Spalte O und wirft mir somit _ alles raus was in Spalte L leer ist.
Private Sub CommandButton2_Click()
Dim chkRange As Range, myC As Range
Dim msg As String
Dim msg2 As String
Set chkRange = Range("L318:L360")
msg = ""
For Each myC In chkRange
If IsEmpty(myC) Then
msg = msg & myC.Offset(0, -11).Text & vbCrLf
End If
Next
If msg = "" Then
MsgBox "Alle Rechnungen verschickt", vbInformation + vbOKOnly, "Prüfergebnis"
Else
MsgBox "NOCH KEINE RECHNUNG VERSCHICKT ODER NOCH NICHT EINGETRAGEN!!: " & vbCrLf & msg, _
vbInformation + vbOKOnly, "Fehlende Rechnungen"
End If
End Sub
Würde mich auf Eure Hilfe freuen
LG Seb