Probleme beim einfügen einer Formel

Hallo zusammen

Bis jetzt hatte ich in diesem Forum schon ganz viele Antworten bekommen, in dem ich lediglich die Suchfunktion benutzte. An dieser Stelle mal ein Danke an alle.
Aber irgendwie stehe ich jetzt an. wahrscheinlich liegts an meiner Problem-Formulierung, aber ich komm aktuell grad nicht weiter...

Ich möchte per Code eine Formel einfügen. unten habe ich mal die Befehle rausgezogen die das machen sollen..

Kurze Erklärung dazu:
Auf der Seite "Start" ist eine Auflistung der verschiedenen Reports. Per Button füge ich ein neuer Report ein (externes Excelfile, ein Sheet)
Der code soll dann die Nummer des letzten Reports raussuchen, und den Namen des neuen Sheets mit hochlaufender Nummer vergeben.

Auf der "Start" seite möchte ich automatisch einen Zellbezug auf den neuen Report einfügen. (report x, zelle c7)

 

Dim letztezeile, aktuelleNummer As Integer

Dim name_neu As String 



  letztezeile = Sheets("Start").Cells(Rows.Count, 1).End(xlUp).Row



 aktuelleNummer = Split(ActiveWorkbook.Sheets("Start").Cells(letztezeile, 1), " ")(1)



 name_neu = "report " & aktuelleNummer + 1



 ActiveWorkbook.Sheets("Start").Cells(letztezeile + 1, 8).FormulaLocal = "='" & name_neu & "'!C7"

in der entsprechende Zelle steht auch die Richtige Formel drin. Nur geht mir jedesmal ein Fenster auf mit dem Titel "Werte aktualisieren" und in der Zelle der Fehler #Bezug. Auch in der Verbindungsliste von Excel taucht dieser "link" auf weil er irgendwie eine externe Datei verlangt.
Wenn ich manuell die Zelle anklicke und Enter drücke, dann funktionierts plötzlich....

Jemand eine Idee, was ich da falsch mache?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub PrüfeUndErgänze() Dim Dic As Object Dim Z As Range Dim ws As Worksheet Set Dic = CreateObject("Scripting.Dictionary") With Sheets("Start").Cells(Rows.Count, 1) 'Sammlen der bisher abgelgeten Links For Each Z In Range(.Range("A1"), .End(xlUp)) Dic(Z.Value) = 1 Next 'Prüfen und ergänzen Application.EnableEvents = False For Each ws In Worksheets If ws.Name > "Start" Then If Not Dic.Exists(ws.Name) Then .End(xlUp).Offset(1, 7).Formula = "='" & ws.Name & "'!C7" End If Next Application.EnableEvents = True End With End Sub

Sub text() Set Akt_sheet = ActiveSheet Set sh = ActiveWorkbook.Sheets.Add(Sheets(Sheets.Count)) sh.Range("C7") = Now() Sheets(Sheets.Count).Select letztezeile = Akt_sheet.Cells(Rows.Count, 1).End(xlUp).Row aktuelleNummer = Split(Akt_sheet.Cells(letztezeile, 1), " ")(1) sh.Name = "report " & Format(aktuelleNummer + 1, "00") With Akt_sheet .Cells(letztezeile + 1, 1) = sh.Name .Cells(letztezeile + 1, 8).FormulaLocal = "='" & sh.Name & "'!C7" End With End Sub

Beliebteste Forumthreads (12 Monate)

Probleme beim einfügen einer Formel

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread