Sortieren aus der Ferne...............

Forumthread: Sortieren aus der Ferne...............
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Sortieren aus der Ferne...............

09.12.2007 16:45:00

Gast

Hallo,
ich probiere gerade eine Tabelle aus der Ferne zu sortieren.


Sub Makro3()
Application.ScreenUpdating = False
Bereich = ("B:C")
With Worksheets("Daten")
Columns(Bereich).Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
Application.ScreenUpdating = True
End Sub

Wenn das Tabellenblatt Daten aktiv ist das kein Problem,der Button sitzt aber im Worksheet Datenverwaltung.
Geht das Sortieren einer Tabelle aus einer anderen Tabelle überhaupt? oder muss ich mit Worksheets("Daten").Select und Worksheets("Datenverwaltung").Select arbeiten?
Gruß / SP

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Sortieren aus der Ferne...............

09.12.2007 16:48:34

Original
Danke für die Hilfe ............

09.12.2007 16:58:44

Gast
AW: Sortieren aus der Ferne...............

09.12.2007 16:49:08

{Boris}
Danke für die Hilfe ............

09.12.2007 16:59:00

Gast

AW: Sortieren aus der Ferne...............

09.12.2007 16:48:34

Original

Hi,
richtig referenzieren:


Sub Makro3()
Application.ScreenUpdating = False
Bereich = ("B:C")
With Worksheets("Daten")
.Columns(Bereich).Sort Key1:=.Range("B1"), Order1:=xlAscending, Header:=xlGuess
End With
Application.ScreenUpdating = True
End Sub

mfg Kurt

Danke für die Hilfe ............

09.12.2007 16:58:44

Gast

Recht herzlichen Dank Kurt.
Es klappt :-)
Gruß SP

AW: Sortieren aus der Ferne...............

09.12.2007 16:49:08

{Boris}

Hi SP,
Du packst einen With-Rahmen drumherum, beziehst die Bereiche allerdings mangels Punkt nicht darauf. Ungetestet:


Sub Makro3()
Application.ScreenUpdating = False
Const Bereich As String = "B:C"
With Worksheets("Daten")
.Columns(Bereich).Sort Key1:=.Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
Application.ScreenUpdating = True
End Sub

Grüße Boris