Formel in Makro einbinden

Hallo !
Ich bräuchte nochmal Eure Hilfe. Ich habe die Formel =TEXT(C7-1;"TTTT") in der Zelle D7 stehen. Diese schreibt mir den Vortag in Spalte J wenn eine neue Zeile gespeichert wird.
Nun dachte ich, das, wenn andere die Datei benutzen und diese Formel "irrtümlich" löchen, wäre es gut, wenn diese Formel gleich im Makro enthalten wäre. wie kann ich es anstellen, das dies ermöglich wrid. Ich habe es mit dem Makrorecorder versucht, jedoch wird das nichts.

Hier die Formel die mir der Makrorecorder auswirft. Diese habe ich in das Makro eingebaut, die o.a. Formel gelöscht, doch es kommt immer der gleiche Tag, egal welches Datum ich eingabe. Da Datum wird in Spalte A eingetragen.
' Formel in Spalte J
TB.Cells(sMaxZeile, 10).FormulaR1C1 = "=R[-8]C[-6]"

Danke für Eure Hilfe
chris

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim TB As Worksheet, sMaxZeile As Long Set TB = ActiveSheet 'oder ein anderes Tabellenblatt : Set TB = Worksheets("Tabelle1") sMaxZeile = TB.Cells(Rows.Count, 3).End(xlUp).Row 'Letzte Zeile - in Abhängigkeit der Werte in Spalte C If sMaxZeile > 8 Then Application.EnableEvents = False 'Reaktion auf Zelländerung abschalten TB.Range([D5], Cells(sMaxZeile, 4)).FormulaR1C1 = "=Text(RC[-1],""TTTT"")" 'Weshalb "=R[-8]C[-6]" ? Application.EnableEvents = True 'Reaktion auf Zelländerung einschalten End If End Sub

Hallo !
Danke das Ihr Euch das angesehen habt, doch ich habe nun herumprobiert und es geht nicht so wie ich es mir vorstelle. Ich habe nun den gesamten Code hier reingestellt, die ganz Datei geht nicht. Ich will eigentlich nur, das in der Spalte J dort der Tag zum Datum aus A eingetragen wird.
Falls wer eine Idee hat......danke
chris

Sub ProtokollSichern()
        Dim i As Long
        Const NewConstSheet As String = "Berechnung"
        Dim bfound As Boolean
        Dim sMerk As String
        Dim sMaxZeile As Long
        Dim TB As Worksheet
        
        Application.ScreenUpdating = False
        
        'Prüfen ob Tabelle NewConstSheet schon angelegt ist
        For i = 1 To ActiveWorkbook.Sheets.Count
            If ActiveWorkbook.Sheets(i).Name = NewConstSheet Then
                bfound = True
                Exit For
            End If
        Next i
        
        'wenn nicht dann anlegen
        If bfound = False Then
            sMerk = ActiveWorkbook.ActiveSheet.Name
            ActiveWorkbook.Sheets.Add after:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
            ActiveWorkbook.ActiveSheet.Name = NewConstSheet
            ActiveWorkbook.Sheets(sMerk).Activate
        End If
        
        Set TB = ActiveWorkbook.Sheets(NewConstSheet)
        
        'nächste leere Zeile ermitteln
        sMaxZeile = TB.Cells(TB.Rows.Count, 1).End(xlUp).Row + 1
        
        'Daten in neue Tabelle übertragen
        TB.Cells(sMaxZeile, 1) = ActiveWorkbook.ActiveSheet.Range("C7")
        TB.Cells(sMaxZeile, 2) = ActiveWorkbook.ActiveSheet.Range("B7")
        TB.Cells(sMaxZeile, 3) = ActiveWorkbook.ActiveSheet.Range("C6")
        TB.Cells(sMaxZeile, 4) = ActiveWorkbook.ActiveSheet.Range("C12")
        TB.Cells(sMaxZeile, 5) = ActiveWorkbook.ActiveSheet.Range("C13")
        TB.Cells(sMaxZeile, 6) = ActiveWorkbook.ActiveSheet.Range("C14")
        TB.Cells(sMaxZeile, 7) = ActiveWorkbook.ActiveSheet.Range("C15")
        TB.Cells(sMaxZeile, 10) = ActiveWorkbook.ActiveSheet.Range("D7")
        
           
        
       '   Formel in Spalte G
        TB.Cells(sMaxZeile, 8).FormulaR1C1 = "=(RC3-R[-1]C3)/(RC1-R[-1]C1)" '=($C64-$C63)/($A64-$A63)
       
        '   Formel in Spalte I
        TB.Cells(sMaxZeile, 9).FormulaR1C1 = "=(RC[-1])/24"
        
        '   Formel in Spalte J
        ' TB.Cells(sMaxZeile, 10).FormulaR1C1 = "=R[-8]C[-6]"
        
     
        Application.ScreenUpdating = True
    End Sub

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Formel in Makro einbinden

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread