AW: Schaltfläche formatieren
18.11.2003 16:14:42
Martin S.
Hier ist der Code.
Private Sub CommandButton1_Click()
Sheets("Artikel").Select
Selection.AutoFilter Field:=4, Criteria1:="P"
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Angebot").Select
Range("B7").Select
Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Sheets("Artikel").Select
Selection.AutoFilter Field:=4, Criteria1:="all"
Sheets("Angebot").Select
Range("B7").Select
Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Select
End Sub
Dieser Code läuft, wie gesagt, bei den anderen Schaltflächen super durch.
Gruß
Martin