29.01.2020, 16:42 (Dieser Beitrag wurde zuletzt bearbeitet: 29.01.2020, 16: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, 13:59 (Dieser Beitrag wurde zuletzt bearbeitet: 11.02.2020, 14: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.