Formeln beim Starten der Mappe berechnen

Forumthread: Formeln beim Starten der Mappe berechnen
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Formeln beim Starten der Mappe berechnen

22.05.2025 17:09:20

Christian

Hallo, gibt es zufällig die Möglichkeit, mit VBA oder so, die Formeln in alle!K1:K6 ausschließlich beim Öffnen der Datei zu berechnen, während alle anderen Formeln in der Mappe auch während ich in der Mappe arbeite, berechnet werden sollen?

Danke für eure Unterstützung
Christian

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Formeln beim Starten der Mappe berechnen

22.05.2025 18:02:53

Armin
AW: Formeln beim Starten der Mappe berechnen

22.05.2025 18:04:53

Christian
erledigt

22.05.2025 18:03:04

Christian

AW: Formeln beim Starten der Mappe berechnen

22.05.2025 18:02:53

Armin

Hallo,
Und welche Formel sollen dann gestartet werden?

Gruß Armin

AW: Formeln beim Starten der Mappe berechnen

22.05.2025 18:04:53

Christian

Hallo Armin,

sorry bin beim Schreiben der Anfrage, davon ausgegangen, dass die Lösung die Formeln im einzelnen nicht benötigt...

aber unsere Beiträge haben sich überschnitten, hatte grad geschrieben, dass ich eine Lösung habe.

Gruß
Christian

Danke troztdem für die Hilfe

erledigt

22.05.2025 18:03:04

Christian

Private Sub Workbook_Open()

    Dim ws As Worksheet

    Dim lastRow As Long



    Set ws = Worksheets("alle")



    Application.EnableEvents = False

    Application.ScreenUpdating = False



    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row



    With ws

        .Range("K1").Formula = "=TODAY()+1"

        .Range("K2").Formula = "=XLOOKUP(MIN(I2:I" & lastRow & "), I2:I" & lastRow & ", B2:B" & lastRow & ", """", 0, 1)"

        .Range("K3").Formula = "=XLOOKUP(K2, B2:B" & lastRow & ", F2:F" & lastRow & ", """", 0, 1)"

        .Range("K4").Formula = "=XLOOKUP(K2, B2:B" & lastRow & ", G2:G" & lastRow & ", """", 0, 1)"

        .Range("K5").Formula = "=XLOOKUP(K2, B2:B" & lastRow & ", E2:E" & lastRow & ", """", 0, 1)"

        .Range("K6").Formula = "=XLOOKUP(K2, B2:B" & lastRow & ", H2:H" & lastRow & ", """", 0, 1)"

    End With



    Dim cell As Range

    For Each cell In ws.Range("K1:K6")

        cell.Value = cell.Value

    Next cell



    Application.ScreenUpdating = True

    Application.EnableEvents = True

End Sub