Hallo Stefan,
grad mal auf die schnelle und nicht getestet
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 = UserForm1.lstEinsatzTeam.ListIndex
For Zähler2 = 0 to Userform.lstEinsatzTeam.List.Count - 1
Zähler = 6
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
Next
End Sub
Gruß Detlev
|