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

Sortieren auf 2.Sheet ohne Select

Sortieren auf 2.Sheet ohne Select
09.01.2005 21:16:26
KlausF
Hallo Forum,
gibt es eine Möglichkeit untenstehendes Makro so zu verändern, dass ich auf
Sheet "Fragen" sortieren kann ohne das Sheet mit Select aktivieren zu müssen?
Hab schon mit >With Worksheets Fragen So funktionierts mit selektieren:

Sub Sort_FRAGEN()
variableALL = Worksheets("Fragen").Range("C1").Value
Worksheets("Fragen").Range("B3:K" & variableALL).Name = "All"
Application.ScreenUpdating = False
Worksheets("Fragen").Select
Range("All").Sort Key1:=Range("B3"), Order1:=xlAscending, Key2:=Range("D3") _
, Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
Application.CutCopyMode = False
Worksheets("Tabelle1").Select
Application.ScreenUpdating = True
End Sub

Danke für alle Antworten
Klaus

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sortieren auf 2.Sheet ohne Select
Ulf

Sub Sort_FRAGEN()
variableALL = Worksheets("Fragen").Range("C1").Value
Worksheets("Fragen").Range("B3:K" & variableALL).Name = "All"
With Worksheets("Fragen")
.Range("All").Sort Key1:=.Range("B3"), Order1:=xlAscending, Key2:=.Range("D3") _
, Order2:=xlAscending, Header:=xlNo, OrderCustom:=1
End With
End Sub

Ulf
Danke!
09.01.2005 21:49:22
KlausF
Hallo Ulf,
vielen Dank, klappt super!
Gruss aus Hamburg
Klaus
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige