Hallo zusammen,
fällt jemanden auf warum es zu Fehler 1004 bei folgendem Code kommt? Es liegt an der Zeile wo ich die Formel in "H4" definiere. Dort möchte ich mit Funktion Verweis den Wert der Spalte C (Blatt Daten) rausfinden, wenn es dem Wert der Spalte D (Blatt Daten) gleich D11 (Blatt Gesamtübersicht entspricht
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim letzteZelle As Range
Dim wks1 As Worksheet
Set wks1 = Worksheets("Daten")
If Sh.Name = "Gesamtübersicht" Then
Application.ScreenUpdating = False
ActiveSheet.Unprotect
Set letzteZelle = wks1.Range("D2").End(xlDown)
ActiveSheet.Cells(4, 8).Formula = "=LOOKUP(2;1/(Daten!D2:D" & letzteZelle.Row & "=D11);Daten!C2:C" & letzteZelle.Row & ")"
Bin für jeden Tip dankbar
Viele Grüße