Clever-Excel-Forum

Seiten: 1 2 3

Hi Markus,

Dein Anhang lässt sich nicht öffnen ...

Hallo,

ich kann die Datei öffnen. Ich hänge noch einen Screenshot an.

Viele Grüße,

Markus

Hallo,
deine Datei läßt sich nicht öffnen .... Was sollen wir mit einem Bild anfangen?
Gruß
Marcus

Hallöchen,

das Format xls passt auch nicht unbedingt zu Office 365 …
Die Datei aus #3, ..KW02, lässt sich öffnen. Die Datei ..KW04 aus #19 leider nicht ...

Okay, danke, könnt ihr die Datei jetzt öffnen?

Hallöchen,

ja, jetzt ging's Smile

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

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.

Vieler Grüße,

Markus

Hallöchen,

Drum herum stand ja noch etwas mehr, oben drüber u.a. With TB1.
Kannst Du mal Deinen kompletten Code posten?

Seiten: 1 2 3

schauan

Markus_W

marose67

schauan

Markus_W

schauan

Markus_W

schauan