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