Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 13:44:37
Datum in Excelformel anzeigen
23.04.2024 13:31:41
alle Tabellblätter als csv exportieren - Verzeichnis wählen
23.04.2024 13:19:18
Daten aus externer Datei als Bereich übernehmen... ?
23.04.2024 12:57:21
Makro für aktuell geöffn. Datei mit gleichen Namen speichern
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
328to332
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
328to332
328to332
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zwischenablage leeren

Zwischenablage leeren
28.10.2003 15:08:13
Jürgen
Hallo
habe ein Makro das oft in die Zwischenablage kopiert (und auch wieder an anderer Stelle einfügt). Anscheinend wird aber dadurch die Zwischenablage so voll das das Makro immer langsamer läuft. Kann man die Zwischenablage leeren oder ähnliches . Danke

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

Betreff
Datum
Anwender
Anzeige
AW: Zwischenablage leeren
28.10.2003 15:28:18
Mac4
Hallo Jürgen,

mit folgendem Befehl kannst Du die Zwischenablage leeren:

Application.CutCopyMode = False

Marc
AW: Zwischenablage leeren
28.10.2003 15:39:56
Jürgen
Danke für Deine Mühe, leider ist mein Problem, dass das Makro sehr langsam wird damit nicht gelöst.
AW: Zwischenablage leeren
28.10.2003 15:41:54
Michael Scheffler
Hm,

poste doch mal Deine Code?

Gruß

Micha
AW: Zwischenablage leeren
28.10.2003 15:44:32
Jürgen
Hier der Code:

Workbooks(datei).Sheets("1").Activate
Workbooks(datei).Sheets("1").Range(Cells(3, 32), Cells(8, 32)).Copy
Workbooks(a).Sheets("2").Activate
Workbooks(a).Sheets("2").Range(Cells(3, 6), Cells(8, 6)).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Workbooks(datei).Sheets("1").Activate
Workbooks(datei).Sheets("1").Range(Cells(1, 55), Cells(100, 71)).Copy
Workbooks(a).Sheets("2").Activate
Workbooks(a).Sheets("2").Range(Cells(31, 3), Cells(130, 19)).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige