Jedoch bekomme ich jetzt die Fehlermeldung Sub oder Function nicht definiert.
... und die rote Zeile im Code-Editor macht dich nicht stutzig?
Ist ein Problem, welches in Verbindung mit dem hier eingesetzten Editor und dem Kopieren aus dem Webbrowser heraus ensteht. Scheint nur Firefox zu betreffen.
Lösch mal die Leerzeichen am Anfang jeder Zeile
oder kopier das hier:
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
|