application.match klappt nicht
22.07.2003 13:59:06
rainer
Sub download_durchlaufen()
Set ws1 = Worksheets("Verlauf nach Disponent detail")
Set ws2 = Worksheets("Verlauf Euro")
Set ws3 = Worksheets("Verlauf Menge")
Dim arraybereich_menge As Variant
Dim arraybereich_wert As Variant
Worksheets("Download").Select
lr_dl = Cells(Rows.Count, 2).End(xlUp).Row
' bestimmen der letzten zeilen der Zielblätter
lr_verlauf_dispo = ws1.Cells(Rows.Count, 1).End(xlUp).Row
arraybereich_verlauf_dispo = ws1.Range("A1:B" & lr_verlauf_dispo)
'ende bestimmen der letzten zeilen
ws1.Select
For i = 5 To lr_dl
matnr = Worksheets("Download").Cells(i, 1).Value
disponent = Worksheets("Download").Cells(i, 3).Value
'material in detail pro disponent vorhanden?
find_zeile_verlauf_dispo = Application.Match(disponent, arraybereich_verlauf_dispo)
t = ws1.Cells(1487, 2).Value
Next i
End Sub
Bin im Moment etwas ratlos...Könt ihr mir weiterhelfen?
Danke im voraus
Rainer