Extraktionsmakro
10.06.2005 17:29:47
Reno
ich brauch leider etwas Hilfe bei diesem Makro.
Ich habe es mir nach und nach erfragt, weiß jedoch die einzelnen Befehle nicht zu deuten. Da ich es jetzt nochmals anpassen muss, bräuchte ich kurz eure hilfe, damit ich z.B. selbstständig die Zellbezüge ändern kann bzw. eine Formel anpassen kann.
Kann mir deshalb irgend jemand kurz die einzelnen Zeilen erklären...was sich dahinter verbirgt?
___________________________________
Private Sub EXPORT_Click()
Dim WsAll As Worksheet
Dim WsDel As Worksheet
Dim LetzteZeile&, I&, J&, X&, LetzteZeileDel&
Set WsAll = ActiveWorkbook.Worksheets(1)
Set WsDel = ActiveWorkbook.Worksheets(2)
LetzteZeile = WsAll.Cells.SpecialCells(xlCellTypeLastCell).Row 'letzte Zeile ernmitteln
LetzteZeileDel = WsDel.Cells.SpecialCells(xlCellTypeLastCell).Row 'letzte Zeile in Del ernmitteln
X = 5 'Startzeile in delivered
For I = 5 To LetzteZeileDel
If WsDel.Cells(I, 3) = "" Then
X = I
Exit For
End If
Next
For I = 5 To LetzteZeile
If UCase(WsAll.Cells(I, 10)) = "DELIVERED" Then
For J = 3 To 10
WsDel.Cells(X, J) = WsAll.Cells(I, J)
Next
X = X + 1
WsAll.Rows(I).Delete
I = I - 1
End If
Next
Set WsAll = Nothing
Set WsDel = Nothing
End Sub
_____________________________________
vielen dank schon im voraus...
Gruß, Reno