AW: Spalte nach bestimmten Wert durchsuchen und msgbox
20.04.2016 11:45:45
Michael
Hallo!
Da war jetzt der Chris schneller, als ich (wiedermal) die Liste aktualisiert hab.
Hier noch meine Variante, weil schon geschrieben - Nimm's mir nicht übel Chris!
Private Sub Workbook_Open()
Const SuchBlatt As String = "Tabelle1"
Const SuchText As String = "*Status offen*"
Const SuchSpalten As String = "A,B,C"
Dim Spalten
Dim Treffer As String
Dim i As Long
Spalten = Split(SuchSpalten, ",", , vbTextCompare)
With Me.Worksheets(SuchBlatt)
For i = LBound(Spalten) To UBound(Spalten)
If WorksheetFunction.CountIfs(.Range(Spalten(i) & ":" & _
Spalten(i)), SuchText) > 0 Then
Treffer = Treffer & Spalten(i)
End If
Next i
End With
Select Case Len(Treffer)
Case Is = 1
MsgBox "ALM Status für SG_" & Treffer & " noch offen", vbCritical
Case Is > 1
MsgBox "Achtung, mehrere ALMs offen", vbCritical
Case Else
Exit Sub
End Select
End Sub
LG
Michael