Problem beim markieren von Zellen
04.11.2003 09:02:42
Tobias
Mein problem liegt darin, dass es zur Fehlermeldung kommt "select method of range class failed"an der Stelle !!:
Public Sub sheet_kopieren()
Sheets("Pipeline").Select
Sheets("Pipeline").Copy Before:=Sheets(3)
Sheets("Pipeline (2)").Select
Sheets("Pipeline (2)").Name = "Direktgeschäft nach OO"
End Sub
Public Sub markieren_sortieren()
Sheets("Direktgeschäft nach OO").Select
!! Rows("4:372").Select
Selection.Sort Key1:=Range("K4"), Order1:=xlAscending, Key2:=Range("J4") _
, Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False _
, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
xlSortNormal
End Sub
Private Sub CommandButton1_Click()
sheet_kopieren
markieren_sortieren
End Sub
Was er tun soll, ist, so denke ich, ersichtlich.
thx 4 ur answers!
Anzeige