Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
25.09.2025 16:01:26
VBA - Laufzeitfehler 9105 zu viele Zeichen 255
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
544to548
544to548
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kürzen und schneller machen?

Forumthread: Kürzen und schneller machen?

Kürzen und schneller machen?
12.01.2005 13:07:46
Roman
Hallo,
wie kann diesen Befehl kürzen und schneller machen?
Sheets("SAPDATEN").Select
ActiveWindow.LargeScroll ToRight:=-1
Columns("A:A").Select
ActiveWindow.SmallScroll ToRight:=3
Range("A:A,F:F,G:G").Select
Range("G1").Activate
Selection.Copy
Sheets("Auswertung-Warengruppen").Select
ActiveWindow.SmallScroll ToRight:=6
Range("G1").Select
ActiveSheet.Paste
Range("J3").Select
ActiveWindow.LargeScroll ToRight:=-2
danke
Roman
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kürzen und schneller machen?
12.01.2005 13:08:54
Roman
oder auch diesen Befehl:
Columns("A:D").Select
Selection.Sort Key1:=Range("D2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("F18").Select
ActiveWindow.LargeScroll ToRight:=-2
danke
roman
AW: Kürzen und schneller machen?
Uduuh
Hallo,
die Selects und Scrolls kannst du größtenteils vergessen.
Sheets("SAPDATEN").Select
Range("A:A,F:G").Copy Sheets("Auswertung-Warengruppen").Range("G1")
Gruß aus'm Pott
Udo

Anzeige
AW: Kürzen und schneller machen?
12.01.2005 13:40:16
Roman
Kann ich an dem anderen Befehl noch was kürzen?
Columns("A:D").Select
Selection.Sort Key1:=Range("D2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("F18").Select
ActiveWindow.LargeScroll ToRight:=-2
danke
roman
Anzeige
AW: Kürzen und schneller machen?
u_
Hallo,
Columns("A:D").Sort key1:=Range("D2") usw.
Rest weg!
Gruß
AW: Kürzen und schneller machen?
12.01.2005 13:49:33
Roman
Hallo Udo,
irgendwie geht der Befehl nicht so wie er soll.
Er geht nicht auf den Sheet (Auswertung-Warengruppen)
fehlt da was?
gruß
roman
AW: Kürzen und schneller machen?
u_
Hallo,
aber er kopiert dahin.
Wenn du es auswählen willst, dann mit sheets("auswertung-warengruppen").select
Gruß
Anzeige
AW: Kürzen und schneller machen?
12.01.2005 13:59:40
Roman
Hallo,
jawohl er kopiert. ich will nur noch auf die seite.
damit wird es jetzt gehen.
vielen Dank
Gruß
Roman
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige