Noch ein paar Probleme
30.10.2002 08:55:17
Jens P.
Hi,dank bzw. mit der hilfe von boris funktioniert folgendes:
Sub Aktualisieren()
Dim zeile As Long
Dim y As Long
Dim z As Long
Application.ScreenUpdating = False
On Error Resume Next ' Falls Projektliste geöffnet
ChDir "\\Projektlisten\"
Workbooks.Open_
FileName:="\\Projektlisten\Projektliste Nr1.xls"
On Error GoTo 0
z = 7
y = 1
Windows("Projektliste Nr1.xls").Activate
letzte = Range("AC65536").End(xlUp).Row
While y < letzte
zeile = Range("AC" & y, "AC" & letzte).Find("X").Row
Workbooks("Abteilung.xls").Worksheets("Projektliste").Range_
("J" & z, "AF" & z).Value = Workbooks("Projektliste
Nr1.xls").Sheets("Ablage").Range("A" & zeile, "W" &_
zeile).Value
Workbooks("EF_horiz.xls").Worksheets("Projektliste").Range("J"
& z, "AF" & z).ClearFormats
y = zeile
z = z + 1 'Zähler +1
Wend
Windows("Projektliste Nr1.xls").Close
Windows("Abteilung.xls").Activate
Sheets("Projektliste").Select
End Sub
Wollte jetzt wissen wie ich den Code erwitern muss damit wenn ein feld mit zwei xx gefunden wird in der abteilungdatei die entsprechende zelle rot wird?
Und die Daten die kopiert werden, sind in unterschiedlich Stadien eingeordnet(in der ausgangsdatei spalten k bis p; entprechendes Stadium = X in k bis p). wie kann ich den code erweitern damit das kopierte nach den versch. Stadien sortiert wird? bzw. die einzelnen Stadien getrennt untereinader anordnen?
danke
mfg
Jens