Subtrakltion aus Spalten 3 + 2 in Spalte 4
03.01.2005 11:44:50
Fritz
beim Schließen meiner Arbeitsmappe möchte ich in Spalte 4 das Ergebnis einer Subtraktion in aus den Spalten 3 - 2 haben. Ich versuche das möglichst ohne "select". Leider kapiere ich das immer noch nicht richtig.
Bis hierher bin ich mit meinem Wissen gekommen:
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Ende As Range, Anfang As Range
Set Ende = Cells(Cells(Rows.Count, 3).End(xlUp).Row + 1, 3)
Ende = Time
Application.DisplayAlerts = False
ActiveWorkbook.Save
End Sub
Private Sub Workbook_Open()
Dim Anfang As Range, Datum As Range
Set Datum = Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
Set Anfang = Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 2)
Anfang = Time
Datum = Date
End Sub
Es wäre nett, wenn Ihr mir wieder mal auf die Sprünge helfen könntet.
Danke,
Fritz
Anzeige