Hi Detlev, sorry, ich war dumm... Bei der von dir geschrieben Schleife läuft das alles Rund. Ich hab die Schleife dann kopiert und für
was anderes zusätzlich einsetzten wollen. Also: ich kann, das funktioniert auch, hinter jeden Namen ein "Fahrzeug" setzten, quasi als Eintrag hinter den jeweiligen Namen im Listfeld. Nebenbei es geht hier um die Erstellung eines Einsatzberichtes für die Feuerwehr, Hierbei wird unterschieder, wer mit welchem Fahrzeug zur Einsatzstelle gekommen ist. Nun möchte ich, dass mir die Schleife die Listbox ausließt und für jede Person, die meinetwegen mit dem Fahrzeug "5-42-5" ausgrückt ist, ein "x" in eine bestimmte Spalte macht, je hinter dem jeweiligen Namen.
Ich habe die Schleife schonmal probiert aber statt nur hinter dem jeweiligen Namen, macht mir VBA in jede Zeile in die betreffende Spalte ein "x". Wahrschienlich nur ein kleiner Fehler aber ich finde ihn nicht. Hier der Quelltext.
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
Das jeweilige Fahrzeug ist der erste Eintrag hinter dem jeweiligen Namen im Listfeld also: Max Mustermann 5-42-5
In Zelle 15 soll das entsprechende"x" gemacht werden, WENN die jeweilige Person eine "5-42-5" hinter ihrem Namen stehen hat.
Danke schonmal, Gruß Stefan
|