Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
612to616
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
612to616
612to616
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA: Zeilenbereich über Indices angeben

VBA: Zeilenbereich über Indices angeben
18.05.2005 13:00:16
Karsten
Hallo,
ich möchte einen konkreten Bereich von Zeilen sortieren.
Über ein aufgezeichnetes Makro habe ich folgenden Befehl ermittelt:
Worksheets(2).Rows("7:11").Sort Key1:=Worksheets(2).Cells(ErsteZeile, 6), Order1:=xlAscending, Header:=xlNo, OrderCustom:=sortierliste, MatchCase:=False, Orientation:=xlTopToBottom
Soweit funktioniert das.
Das Problem sind nun die Rows("7:11"). Ich möchte beide Zahlenwerte durch Indices ersetzen (um statt der konkreten Zahlen auch Variablen schreiben zu können). Probiert habe ich nun Varianten wie:
Rows(7, 11),
Range(Rows(7), Rows(11))
und noch ein paar. Ich bekomme dann immer folgende Meldung:
1004: Anwendungs- oder objektdefinierter Fehler
Kennt jemand die Lösung?
Muchas gracias,
Karsten

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Zeilenbereich über Indices angeben
18.05.2005 13:33:13
Reinhard
Hallo Karsten,
r1=7
r2=11
worksheets(2).range(cells(r1,1),cells(r2,256)).sort...
genauso ungetestet geht ggfs auch
worksheets(2).rows(r1:r2).sort
Gruß
Reinhard
AW: VBA: Zeilenbereich über Indices angeben
18.05.2005 14:08:03
Karsten
Hallo Reinhard,
deine erste Variante ergibt leider wieder den Fehler 1004 (was für
mich nicht nachvollziehbar ist, theoretisch sollte das gehen,
aber Excel meckert es halt an).
Die beiden Variablen sind korrekt belegt (nach Meinung des
Debuggers).
Die untere Variante verursacht einfach einen Syntaxfehler. Bei der
war ich auch schon mal.
Gruß,
Karsten
AW: VBA: Zeilenbereich über Indices angeben
18.05.2005 14:23:49
Reinhard
Hallo Karsten,

Sub tt()
zei = 7
'Worksheets(2).Activate
r1 = 7
r2 = 11
Rows(r1 & ":" & r2).Sort Key1:=Cells(zei, 6), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

lief eben problemlos, warum das andere nicht geht, habs probiert, k.A.
Gruß
Reinhard
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige