Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1256to1260
1256to1260
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Code optimieren (Copy&Paste)

Forumthread: Code optimieren (Copy&Paste)

Code optimieren (Copy&Paste)
Martin
Hallo,
ich versuche gerade meinen mit dem Makrorecorder aufgezeichneten Code zu verbessern. Daher die Frage ob Ihr noch n Tipp hättet das ganze noch weiter zu kürzen. Ich hab' schon einiges ausprobiert, aber es klappt's nicht so recht.

Import.Range("C4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Ausgabe.Range("B4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, _
Transpose:=False
Gibt's da noch n Kniff für den Copybereich, oder ist dies schon die beste Lösung?
Würde mich über einen Tipp freuen :-)
LG,
Martin
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Code optimieren (Copy&Paste)
26.03.2012 14:50:50
JoWE
Hallo Martin,
ohne das völlig überflüssige select geht's vllt. so: 
Sub copy()
Dim shI, shA As Worksheet
Set shI = Sheets("Import")
Set shA = Sheets("Ausgabe")
shI.Range("C4:C" & shI.Range("C4").End(xlDown).Row).copy
shA.Range("B4").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

Wenn ich die Vraiablendeklaration, die Aufhebung der Markierung wegließe und die Verwendung der Worksheetnamen statt der VAriablen setzte wär's immer noch kürzer!?
Gruß
Anzeige
kleine Änderung
26.03.2012 15:12:10
Erich
Hi JoWE,
deine Deklaration ist verbesserungsfähig. Mit "Dim shI, shA As Worksheet"
deklarierst du shI nicht als Worksheet, sondern als Variant.
Ich meine:
Dim shI As Worksheet, shA As Worksheet
Aber sind diese Variablen überhaupt nötig? Vielleicht sind ja Import uns Ausgabe bereits Objektvariablen,
oder es sind Codenamen der Tabellenblätter - was auch ok wäre.
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich
Anzeige
AW: kleine Änderung
26.03.2012 15:40:08
Martin
Hallo,
vielen Dank euch beiden. Genau das habe ich gesucht! Klasse! Auf die Variablen habe ich allerdings verzichtet, weil Import/Ausgabe die Namen der Tabellenblätter sind.
Mein Code jetzt: 

Import.Range("C4:C" & Import.Range("C4").End(xlDown).Row).copy
Ausgabe.Range("B4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False,  _
Transpose:=False
Import.Range("B4:B" & Import.Range("B4").End(xlDown).Row).copy
Ausgabe.Range("C4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False,  _
Transpose:=False
usw
Matrin
Anzeige
AW: Jau!! Ich nicke ergebenst! oT
26.03.2012 16:17:55
JoWE

Forumthreads zu verwandten Themen

Activate erforderlich?
Peter

Hallo,
ich möchte von einem Blatt einen Bereich kopieren und in einem anderen Blatt transponiert einfügen.
Dazu nutze ich folgenden Code, der auch funktioniert:
Sub feiern() Sheets("Feiern").Cells.ClearContents Sheets("Übersicht").Activate Sheets("Übersicht").Range(Cells(1, 3), Cell...
16.09.2009 11:34:51
Thread-ID: 1103112
4 Beiträge
Excel Liste Verlnüpfung mit sich selbst
Lisa

Guten Morgen,
ich habe ein bzw. zwei Probleme, die aber zusammenhängen denke ich.
Ich habe für meine Kollegin eine Excel-Mappe gebaut, die ewig einwandfrei lief und seit heute nicht richtig funktioniert.
Eine Verknüpfung kann nicht mehr aktualisiert, gelöscht oder sonstiges werden....
06.09.2018 11:07:46
Thread-ID: 1643711
1 Beitrag
VBA Prüfung ob Eintrag schon vorhanden, Einträge bearbeiten
Stefan
Hallo Gemeinde

Ich suche schon den ganzen Tag nach einer passenden VBA Programmierung, für meinen Fall.

Es gibt genügend Beiträge dazu, leider schaffe ich es nicht die Programmierung auf meine Situation anzupassen.

Vielleicht könnt Ihr Helfen.

Tabelle "ABL"
d...
04.08.2024 19:56:39
Thread-ID: 1987129
7 Beiträge
Überlauf Fehler
Ingo

Hallo und guten Abend,
Ich habe schon das Forum durchsucht und meine eigenen Kenntnisse sind nun am Ende.
Beim Einfügen von Formeln es sind ein paar mehr)per Makro in ein Auswertungsblatt (Bezüge) wird der Makro abgebrochen, sobald meine Variable den Wert 32500 überschreitet.
Sämtli...
03.11.2004 21:09:49
Thread-ID: 511442
3 Beiträge
Anzeige
Autofilterfehler in VB
Slugger

Hallo,
ich habe es auf einem normalen Tabellenblatt so ausprobiert. Da funtioniert es. Jedoch in meinem Code funktioniert es nicht. Hier der Code:
Private Sub CommandButton1_Click() ActiveSheet.Unprotect ("fcn") MsgBox "Dieser Vorgang wird ca. 40 Minuten in Anspruch nehmen. Excel kann...
04.05.2005 10:14:22
Thread-ID: 607326
1 Beitrag
Daten kopieren
Daniela
Hallo zusammen,
Wer kann mir bei meinem Problemchen weiterhelfen?
Ich habe das folgende Makro mit dem Makrorekorder aufgezeichnet.
Das Makro kopiert Zellen werte vom einen zum anderen Formular (inhaltlich gleich große Zellen). Der Sinn der Sache ist, die Daten vom einen Formular nicht no...
06.04.2022 17:54:43
Thread-ID: 1878573
17 Beiträge
Macro schöner oder schneller machen
Thomas

Hallo Excelfreunde,
ich habe mir mal das Macro zusammengestrickt. Es funktioniert eigentlich auch.
Aber ich wollte mal fragen ob man es auch schöner oder schneller darstellen kann.
Es soll die spalten h,k,D,b,z und cn (ohne formeln aber mit allen formaten )kopieren und anschließend...
28.12.2015 02:41:32
Thread-ID: 1466166
9 Beiträge
Arbeitsmappe schliessen
René

Hallo
Ich habe eine Excel-Datei erstellt wo ich ein Button "Transfer SAP" mit einem Code versehen haben. Mit diesem Button wird die Datei in ein definiertes Verzeichnis gespeichert. Weiter werden relevante Daten in bestimmte Zellen kopiert.
Nun möchte ich, dass man beim Speichern der Da...
09.10.2009 17:52:42
Thread-ID: 1108601
2 Beiträge
Schliessen Arbeitsmappe -> Button Klick
René

Hallo
Ich habe eine Excel-Datei erstellt wo ich ein Button "Transfer SAP" mit einem Code versehen haben. Mit diesem Button wird die Datei in ein definiertes Verzeichnis gespeichert. Weiter werden relevante Daten in bestimmte Zellen kopiert.
Nun möchte ich, dass man beim Speichern der Da...
14.10.2009 09:58:24
Thread-ID: 1109490
2 Beiträge
Makrofehler
thomas

Hallo Leute,
das folgende Makro funktioniert nicht, es kommt immer die Meldung:
Fehler beim komp.: Else ohne If. Sieht jemand den Fehler?
vielen Dank für Hilfe!
thomas
Private Sub CheckBox2_Click() If CheckBox2.Value = True Then Sheets("Start").ComboBox1.ListIndex = 3 'dam...
29.05.2004 19:34:28
Thread-ID: 434992
2 Beiträge
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum