Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
372to376
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
372to376
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Programmieren ohne select

Programmieren ohne select
02.02.2004 15:11:41
Peter Stähler
Hallo liebes Forumsmitglieder,
da ja das Thema "Programmieren ohne select" hier immer wieder zur Sprache kommt hier einige kleine Fragen dazu.
Ich möchte meinen eigenen Code "schöner" machen ... komme allerdings bei den folgenden Schnipseln nicht weiter.
Wie kann ich die denn ohne select schreiben ?

Fenster fixieren
Worksheets("Ergebnis").Range("A2").Select
ActiveWindow.FreezePanes = True
Sortieren
Range("A1:E1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("C2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
Spalten löschen
Columns("A:F").Select
Range("F1").Activate
Selection.Delete Shift:=xlToLeft
Vielen Dank für Eure Hilfe
Peter Stähler

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

Betreff
Datum
Anwender
Anzeige
AW: Programmieren ohne select
02.02.2004 16:33:47
Nepumuk
Hallo Peter,
fixieren geht nicht ohne select, da diese Eigenschaft eine Eigenschaft des Windowsobjektes ist und nicht das des Worksheetobjektes. Da muss die Zelle ab der fixiert wird vorher festgelegt sein.
Der Rest geht so:

Range("A1:E1").Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("C2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
Columns("A:F").Delete Shift:=xlToLeft


Gruß
Nepumuk
Anzeige
AW: Programmieren ohne select
02.02.2004 16:47:59
Peter Stähler
Hallo Nepomuk
und vielen Dank für Deine Hilfe.
Ich werd' den Code gleich einbauen.
Gruß aus Frankfurt
Peter

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige