Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
932to936
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
932to936
932to936
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

Sortieren aus der Ferne...............
09.12.2007 15:45:00
Sonnenpeter
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
Anzeige
AW: Sortieren aus der Ferne...............
09.12.2007 15: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 15:58:44
Sonnenpeter
Recht herzlichen Dank Kurt.
Es klappt :-)
Gruß SP

AW: Sortieren aus der Ferne...............
09.12.2007 15: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

Anzeige
Danke für die Hilfe ............
09.12.2007 15:59:00
Sonnenpeter
Auch Dir ein Danke für die Hilfe :-)
Es klappt ebenfalls.
Gruß / SP

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige