Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
796to800
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
796to800
796to800
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

in ausgeblendeten Tabellenbl. Bereich sortieren

in ausgeblendeten Tabellenbl. Bereich sortieren
27.08.2006 13:33:06
Dieterlem
Hallo,
in meiner Exceldatei habe ich ein ausggeblendetes Tabellenblatt. In diesem Tabellenblatt habe ich diverse Einstellungsinformationen der Datei gespeichert.
Auf diese Informationen greife ich per VBA zurück. Damit dieses Tabellenblatt dem User nicht zugänglich ist habe ich es ausgeblendet. Ich möchte nun einen Bereich aus dem ausgeblendeten Tabellenblatt sortieren. Das Problem ist, daß die Befehle select und activate nicht auf ausgeblendete Tabellenblätter anwendbar ist. Mein Code lautet:
Sheets("Einstellungen").Activate
Sheets("Einstellungen").Range("O21:P120").Select
Selection.Sort Key1:=Range("O21"),Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Wie kann ich Activate und Select umgehen?
Gruß
Dieterlem

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: in ausgeblendeten Tabellenbl. Bereich sortieren
27.08.2006 13:51:37
Beate
Hallo Dieterlem,
du musst nur activate und select vermeiden:
Sub Test()
Sheets("Einstellungen").Range("O21:P120").Sort Key1:=Sheets("Einstellungen").Range("O21"), Order1:=xlAscending, Header:=xlNo, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub



Guckst Du: Achtung Makrorekorder oder Wer selektiert denn da?
Gruß,
Beate
Anzeige
AW: in ausgeblendeten Tabellenbl. Bereich sortier
27.08.2006 13:59:12
Dieterlem
Hallo Beate,
danke daß Du mir mal wieder geholfen hast. Die gleiche Lösung hatte ich auch schon. Nur
das ich bei dem SortKey1 vergessen habe das Tabellenblatt einzufügen
Falsch : SortKey1:=Range("O21")
Richtig: SortKey1:=Sheets("Einstellungen").Range("O21")
Gruß
Dieterlem
AW: in ausgeblendeten Tabellenbl. Bereich sortier
27.08.2006 13:57:07
Reinhard
Hi Dieterlem,

Sub sortieren()
Sheets("Tabelle2").Range("A1:A5").Sort Key1:=Sheets("Tabelle2").Range("A1"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
AW: Danke das wars (siehe Antw an Beate) o.w.T.
27.08.2006 14:01:08
Dieterlem

160 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige