|
Hallo zusammen,
per Makro soll folgendes ausgewertet werden:
Wenn ein Datum einer Kategorie (hier Kategorie als Spalte D, F und H) zum Tagesdatum überschritten ist (alle rot gefärbten) muss in eine Extra Datei „Auswertung.xls“ auf dem Desktop folgendes einkopiert werden:
Abhängig, ob in der jeweiligen Zeile etwas „rot“ bzw. eine Frist überschritten wurde die jeweils betroffenen Spalten A, B, und das jeweilige überschrittene Datum in der gleichen Spalte. D.h. D bleibt D und F bleibt F usw.
Wenn keine Fristen in D, F und H überschritten wurde, wird auch gar nichts kopiert.
Sind zwei Spalten rot (wie in Zeile 2 und 3), müssen auch beide Daten mit kopiert werden… wenn drei, dann alle drei….das geht bis maximal sechs Spalten.
Gesamtspalten mit Daten sind D, F, H, J, L und M
Schwierigkeit ist, dass das Einfügen in die Zeildatei immer an der nächstfreien Zeile stattfinden soll….d.h. in der Quelldatei können auch mal Zeilen dazwischen liegen, in denen keine Fristen überschritten sind.. z.B. Quelldatei sind in Zeile 2 und 5 (in Zeile 1 sind die Überschriften) überschrittene Fristen… die Daten müssen aber in der „Auswertung.xls“ in Zeile 2 und 3 eingefügt werden.
Die Mitnahme von Überschriften ist nicht notwendig, die sind in der Zieldatei schon vorhanden.
So sieht es in Excel aus:
[IMG]http://i65.tinypic.com/2l9rrwn.png[/IMG]
Was ich bereits habe:
[CODE]
Set Destination = Workbooks.Open("C:\Desktop\Auswertung.xls")
Set NewSheet = Destination.Worksheets(1)
Worksheets(1).Select
Dim Counter As Integer
Counter = 1
Do
If Cells(Counter, 1) = "" Then
If Cells(Counter + 1, 1) = "" Then
Counter = Counter + 1
Exit Do
End If
End If
Counter = Counter + 1
Loop
Dim newrange As Range
Set newrange = NewSheet.Range(Cells(Counter + 1, 1), Cells(Counter + 1, 1))
newrange.PasteSpecial Paste:=xlPasteValues
Destination.Save
Destination.Close
Sheets("Auswertung").Select
Range("A1").Select
MsgBox "Auswertung erfolgreich!"
[/CODE]
Das setzt aber voraus, dass der gesamte zu kopierende Inhalt davor schon festgelegt wurde und in die Zwischenablage kopiert wurde…. Und das fehlt mir bzw. da komme ich auf keinen grünen Zweig.
Bitte um Hilfe. ?
Danke.
|