habe folgendes Problem mit diesem Excel-File;
Die Datei https://www.herber.de/bbs/user/35727.xls wurde aus Datenschutzgründen gelöscht
In Zeile 5 sind die Links zum Informationssystem eingetragen, danach werden mitels VBA-Makro einmal die Woche die Preise in die darunterfolgende Tabelle eingefügt (die Werte werden in die erste leere Zeile eingefügt). Dies funktioniert mit dem exisitierenden Makro eigentlich tadellos:
Sub WEEKLYFUNDS()
Range("B5:IV5").Select
Selection.COPY
iRow = Worksheets("Testsheet").Cells(Rows.Count, 2).End(xlUp).Row + 1
Worksheets("Testsheet").Cells(iRow, 2).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End Sub
Nun gibts aber das Problem, dass zum Teil wenn die Kurse nach unten kopiert werden, noch nicht alle Wertpapiere einen neuen Kurs eingetragen haben.
z.B. wie auf dem Sheet zu sehen, existiert für Aktie A bereits ein neuer Kurs, jedoch für die Aktien B und C noch nicht.
Ideal wäre ein Funktion, die abfragt, ob der letzte eingetragene Kurs in der untenstehenden Tabelle noch dem obenstehenden Kurs entspricht, wenn ja dann wird nichts kopiert, wenn jedoch ein neuerer Kurs vorhanden ist, wird er nach unten kopiert (es müssten alle Angaben der drei zugehörigen Spalten kopiert werden, also für Aktie A sind es die Spalten A, B, C ). Dies sollte natürlich für alle Akiten (in unserem File sind nicht nur drei Aktien eingetragen) unabhängig voneinander funktionieren. (gibts da die Möglichkeit eine Schleife einzubauen?)
Sorry wenns etwas kompliziert klingt, aber es ist halt etwas schwierig zum beschreiben...
gruss
rookie