Hallo
unter der Vorrausetzung, dass es sich nicht um eine "intelligente Tabelle" handelt...
Sub Uhrzeit_Abfahrt()
'Fügt die Abfahrtszeit in die letzte Zeile der Tätigkeiten ein
Dim letzte_Zeile As Integer
letzte_Zeile = ActiveSheet.Cells(31, 2).End(xlUp).Row
Cells(letzte_Zeile, 10).Value = Cells(6, 5).Value
End Sub
mfg
|