29.01.2020, 17:42 (Dieser Beitrag wurde zuletzt bearbeitet: 29.01.2020, 17:42 von marose67.)
Hallo, deine Datei läßt sich nicht öffnen .... Was sollen wir mit einem Bild anfangen? Gruß Marcus
Wissen ist Macht - es ist aber nicht schlimm nicht alles zu wissen. Man muss nicht alles wissen - man muss nur wissen wo es steht, oder wo man Hilfe bekommt.
der Codeteil könnte dann so aussehen. Ich hab ihn zum Test nur an einigen Stellen angepasst - siehe Kommentare - und den Vergleichswert in B1 eingetragen ...
Code:
'Variablendeklaration - String (damit Formelcode kuerzer ist) Dim strConcat$ 'Laufwerk, Pfad, Datei und Blatt zuweisen strConcat = "'" & LW & "\[" & strJahr & .Offset(0, -1) & strExt & "]" & TB2 & "'!" 'Mit der Zelle B2 (Zum Test fest programmiert und Punkt vor Cells entfernt) With Cells(2, 2) 'Summe Spalte E bilden, wenn Der Eintrag aus B1 (R1C2) der aktiven Datei in Spalte B gefunden wird .FormulaR1C1 = "=SUMIF(" & strConcat & "R7C2:R33C2,R1C2," & strConcat & "R7C5:R33C5)" '.Value = .Value 'Ende Mit der Zelle B2 End With
. \\\|/// Hoffe, geholfen zu haben. ( ô ô ) Grüße, André aus G in T ooO-(_)-Ooo (Excel 97-2019+365)
11.02.2020, 14:59 (Dieser Beitrag wurde zuletzt bearbeitet: 11.02.2020, 15:47 von Markus_W.)
Hallo,
funktioniert der Code bei dir? Bei mir kommt leider eine Fehlermeldung. Wenn ich schrittweise mit F8 durchgehe sagt er mir beu .Offset: Fehler beim Komplilieren.
