Es sit leider nciht möglich auf den bestehenden Thread zu antworten, daheri hier noch einmal die Datei von Onur:
https://www.herber.de/bbs/user/125079.xlsm
In VBA kenne ich mich aber garnicht aus.
Ich habe nun die Folgenden Änderungen vorgenommen um damit in meiner Originaldatei zu arbeiten:
Tabelle2 geändert in Tabelle6 (
z0 = 57 (meine letzte Spalte im Ursprungs-Datenblatt ist Spalte Nr 57)
Range(Cells(3, 1), Cells(10, 1)).ClearContents geändert in (8, 1) und (25, 1) (meine Ausgabe _
soll in A8 bis A 25 erscheinen)
For z = 2 To 54 Step 2 (da ich 54 Zeilen im Ursprungs-Datenblatt betrachten möchte
If Target.Row 2 Or Target.Column 1 Then Exit Sub geändert in If Target.Row 4 Or Target. _
_
Column 2 Then Exit Sub (da mein datum in der Zielliste in Feld B4 steht
Wenn ich jetzt ein Datum eingebe, rechnet er zwar, aber es werden keine Ergebnisse angezeigt.LG
Manu