Hallo Stefan,
ich denke so sollte es klappen, ich hab aber hier auch noch einen Fehler drin, aber teste erst einmal ob die Werte hinter die Person die als erstes im Listenfeld aufgeführt ist, eingesetzt werden.
Private Sub cmdÜbertragen_Click()
Dim Datum, von, bis As Date
Dim Fehlercode, Nr, zähler, zähler2 As Integer
Dim Bericht, Schleife As Boolean
Dim Zeit, Zeit2 As Single
'zähler fängt mit wert 6 an, da am zeile 6 eingetragen werden soll
zähler = 6
zähler2 = 1 'Erste Element aus Listfeld!!!
Do While Worksheets("Einsatzbericht").Cells(zähler, 3) <> ""
If CStr(UserForm1.lstEinsatzTeam.List(zähler2)) = CStr(Worksheets("Einsatzbericht").Cells(zähler, 3)) Then
Worksheets("Einsatzbericht").Cells(zähler, 1) = "X"
Worksheets("Einsatzbericht").Cells(zähler, 4) = von
Worksheets("Einsatzbericht").Cells(zähler, 5) = bis
Worksheets("Einsatzbericht").Cells(zähler, 6) = Zeit
Worksheets("Einsatzbericht").Cells(zähler, 7) = UserForm1.lstEinsatzTeam.List(zähler2)
End If
zähler = zähler + 1
Loop
zähler = 6
Do While CStr(Worksheets("Einsatzbericht").Cells(zähler, 3)) <> ""
If CStr(UserForm1.lstAGTZeit.List(zähler2)) = CStr(Worksheets("Einsatzbericht").Cells(zähler, 3)) Then
Worksheets("Einsatzbericht").Cells(zähler, 9) = UserForm1.lstAGTZeit.List(zähler2)
zähler = zähler + 1
End If
zähler = zähler + 1
Loop
End Sub
Gruß Detlev
|