hi Detlev,
ich hab den quelltext jetzt mal eingefügt so wie ich es brauche,
im grunde soll die abfrage sein: steht hinter dem name "Wache" dann mach einen Eintrag in eine Zelle, wenn nicht, geh den nächsten Namen durch.
Das müsste ja eigentlich so sein:
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
Worksheets("Einsatzbericht").Cells(zähler, 16) = "x"
End If
zähler = zähler + 1
Loop
Next
End Sub
oder täusche ich mich da? der "5-42-5" wird in der schleife garnicht abgefragt, das geschieht dann in einer gesonderten schleife.
Wäre lieb wenn du nochmal drüber gucken würdest. Dank
Gruß Stefan
|