Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
396to400
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
396to400
396to400
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Rows.Count

Rows.Count
15.03.2004 13: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
Anzeige
AW: Rows.Count
15.03.2004 13: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 13: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
Anzeige
Danke an beide!!! :-))) o.T.
15.03.2004 13:55:43
andif
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige