Hallo Stefan,
"Wenn die jeweilige Person eine "5-45-5" hinter dem Namen stehen hat"
IF InStr(1, UserForm1.lstEinsatzTeam.List(zähler2, 1), "5-45-5") > 0 Then ... , wobei ich nicht sagen kann ob jetzt (zähler2, 1) oder (zähler2, 2) richtig ist, probier es bitte aus.
Private Sub CommandButton5_Click()
Dim Fehlercode, Nr, BB, zähler, zähler2 As Integer
Dim Bericht, Schleife As Boolean
BB = UserForm1.lstEinsatzTeam.ListCount - 1
For zähler2 = 0 To BB
zähler = 4
Do While Worksheets("Einsatzbericht").Cells(zähler, 3) <> ""
If CStr(UserForm1.lstEinsatzTeam.List(zähler2, 2)) = "Wache" Then
If InStr(1, UserForm1.lstEinsatzTeam.List(zähler2, 1), "5-42-5") > 0 Then
Worksheets("Einsatzbericht").Cells(zähler, 16) = "x"
End If
End If
zähler = zähler + 1
Loop
Next
End Sub
Gruß Detlev
|