Hier der Quelltext, mit dem es mit ein paar kleinen Änderungen klappen soll, nur ich weiß halt nicht wie, da das Programm in der Form nicht läuft:
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 = 0
Do While UserForm1.lstEinsatzTeam.ListCount <> zähler2
Do While Worksheets("Einsatzbericht").Cells(zähler, 3) <> "" And Schleife = True
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, 2)
zähler = 6
Schleife = False
Else
zähler = zähler + 1
End If
Loop
zähler2 = zähler2 + 1
Schleife = True
Loop
Schleife = True
zähler = 6
zähler2 = 0
Do While UserForm1.lstAGTZeit.ListCount <> zähler2
Do While CStr(Worksheets("Einsatzbericht").Cells(zähler, 3)) <> "" And Schleife = True
If CStr(UserForm1.lstAGTZeit.List(zähler2, 0)) = CStr(Worksheets("Einsatzbericht").Cells(zähler, 3)) Then
Worksheets("Einsatzbericht").Cells(zähler, 9) = UserForm1.lstAGTZeit.List(zähler2, 2)
zähler = 6
Schleife = False
Else
zähler = zähler + 1
End If
Loop
zähler2 = zähler2 + 1
Schleife = True
Loop
End If
End Sub
|