Hallo Stefan,
ich denke ich hab es jetzt...
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 Instr(1, CStr(UserForm1.lstEinsatzTeam.List(zähler2, 2)), "Wache") > 0 Then
Worksheets("Einsatzbericht").Cells(zähler, 16) = "x"
End If
zähler = zähler + 1
Loop
Next
End Sub
Gruß Detlev
|