Rows.Count

Forumthread: Rows.Count
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Rows.Count

Rows.Count

15.03.2004 14:50:41

andif

Hallöchen,
ich bins nochmal. Also das mit dem Flexiblen bearbeiten einer Tabelle muss ich noch üben. Möchte eine Tabelle sortieren. Hier der Code der nicht läuft:
b = Cells(Rows.Count, 1).End(xlUp).Row
Rows("7:b").Select
Selection.Sort Key1:=Range("A7"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Die zweite Zeile wird als "Typenunverträglichkeit" beanstandet. Wenn da aber statt b die 250 steht (nicht flexibel!!!) läuft das.
Weiß jemand wieso?
andi

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Rows.Count

15.03.2004 14:53:23

Hajo_Zi
AW: Rows.Count

15.03.2004 14:53:57

Bert
Danke an beide!!! :-))) o.T.

15.03.2004 14:55:43

andif

AW: Rows.Count

15.03.2004 14:53:23

Hajo_Zi

Hallo Andi
auf select und Activate kann in VBA verzichtet werden.
Rows("7:" &Cells(Rows.Count, 1).End(xlUp).Row).Sort _
Key1:=Range("A7"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro

AW: Rows.Count

15.03.2004 14:53:57

Bert

Rows("7:" & b).Select
Es ist übrigens nicht nötig, zu selektieren:
Rows("7:" & b).Sort Key1:=Range("A7"), Order1:=xlAscending, Header:=xlNo

reicht!
Bert

Danke an beide!!! :-))) o.T.

15.03.2004 14:55:43

andif

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!