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 = 6
zähler2 = UserForm1.lstEinsatzTeam.ListIndex
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