Office: Sortieren in einem anderen Tabellenblatt

ozon · 31. Oktober 2009

Hallo zusammen,

ich möchte von einem Butten, welcher sich in dem Worksheet ("Tabelle1") befindet, eine Tabelle im Worksheet ("Stammdaten") nach der Spalte "K" aufsteigend sortieren. Ich bekomme permanent Fehlermeldungen:

Code:

'dieser Button befindet sich im Workshet "Tabelle1"
Private Sub bZeitklassen_Click()

Worksheets("Stammdaten").Range("A1:P85").Sort Key1:=Range("K1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

'Fehlermeldung: Laufzeitfehler 1004: Der Sortierbezug ist ungültig,

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wernn ich einfach nur Range("K1") auswählen mächte, geht das auch nicht:

Code:

Private Sub bZeitklassen_Click()

Worksheets("Stammdaten").Range("K1").Select
' Fehlermeldung: Laufzeitfehler 1004: Die select-Methode des Range-Objektes konnte nicht ausgeführt werden
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn ich das Macro1 im Modul 1 aufrufe, funktioniert es:

Code:

Private Sub bZeitklassen_Click()

Call Macro1
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

End Sub

Sub Macro1

Worksheets("Stammdaten").Range("A1:P85").Sort Key1:=Range("K1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Kann mir das jemand erklären?

Gruss

:)

Silvestro · 1. November 2009

Ciao Ozon,

füge dies in einem Modul ein:

Code:

Sub Aufsteigend_sortieren()
Application.ScreenUpdating = False
Sheets("Stammdaten").Select
Range("A1:P85").Select
Selection.Sort Key1:=Range("K1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("K1").Select
Sheets("Tabelle1").Select
Application.ScreenUpdating = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und dies ist der Code für deinen Button:

Code:

Sub Button()
Call Aufsteigend_sortieren
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

So müsste es funktionieren.

Ciao
Silvestro

ozon · 2. November 2009

Jetzt funktioniert es, Danke.

EarlFred · 2. November 2009

Hallo Ozon,

Variante:

Dem Key1 noch den Blattbezug mitgeben:

Code:

Key1:=Worksheets("Stammdaten").Range("K1")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Jetzt sollte es klappen.

Grüße
EarlFred

Office: Sortieren in einem anderen Tabellenblatt

Sortieren in einem anderen Tabellenblatt

Sortieren in einem anderen Tabellenblatt

Sortieren in einem anderen Tabellenblatt

Sortieren in einem anderen Tabellenblatt - Similar Threads - Sortieren Tabellenblatt

Zeilen aus Tabelle mit bestimmten Wert in verschiedene Tabellenblätter sortieren

Tabellenblatt automatisch sortieren

Sortieren über mehrere Tabellenblätter mit Bezug

mehrere Tabellenblätter über eine Schaltfläche mit nur einem Makro sortieren.

Tabellenblätter sortieren mit Ausnahme

Namen sortieren in andere Tabellenblatt

Namen suchen und kopieren in andere Tabellenblatt