Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
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
1240to1244
1240to1244
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Range("A1").Paste ???

Forumthread: Range("A1").Paste ?

Range("A1").Paste ?
Karsten
Hallo,
wenn ich einen Teil einer Zelle kopiere und danach folgenden Code starte
Range("A1").select
ActiveSheet.Paste
funktioniert das Einfügen.
Wenn ich das Kopierte über diesen Code einfügen möchte,
Range("A1").Paste
geht es nicht.
Kann mir jemand den Code richtig schreiben um Select einzusparen?
Danke
Gruß
Karsten
P.S. ich weiß, ich bin's schon wieder.
Anzeige
AW: Range("A1").Paste ?
27.12.2011 16:47:29
Hajo_Zi
Hallo Karsten,
Range("E7:F8").copy Range("A1")

AW: Range("A1").Paste ?
27.12.2011 17:17:02
Karsten
Hallo Hajo,
ne, ne das war nicht meine Frage.
Gruß
Karsten
Nur Werte kopieren: Range("A1") = Range("D10")
27.12.2011 16:54:50
NoNet
Hallo Karsten,
die .PASTE Methode gehört zum WorkSheet-Objekt und nicht zum RANGE-Objekt, daher funktioniert das (leider !) nur für Blätter und nicht für Zellen/Bereiche ! Daher ist auch zunächst die Auswahl (.SELECT) einer Zelle notwendig.
Was möchtest Du denn kopieren ? - Nur Werte oder auch Formate (Zellen-, Schrift-, Zahlenformate, Bedingte Formatierungen) - oder auch Gültigkeiten, Kommentare etc. ?
Falls nur Werte kopiert werden sollen genügt folgende Alternative ohne .SELECT :
Range("A1") = Range("D10")

Diese Syntax "kopiert" den Wert von Zelle D10 nach A1 (genauer: A1 erhält den gleichen Wert wie Zelle D10).
Genügt Dir diese Syntax bereits ? - Wie geschrieben : Hiermit werden lediglich die WERTE übertragen, keine Formatierungen oder Formeln !
Gruß, NoNet
(jaja, ich weiß : Ich bin's auch schon wieder *nerv* ;-)
Anzeige
AW: Nur Werte kopieren: Range("A1") = Range("D10")
27.12.2011 17:15:02
Karsten
Hallo NoNet,
es geht nur um einen Teil des Zellinhaltes (Wert). Also beim Wort "Tasse" z.B. nur um "asse". Ist ein blödes Beipiel aber mir fällt gerade nichts anderes ein.
Range("A1").PasteSpecial xlValues z.B. geht ja auch bei der ganzen Zelle. Nun, für einen Zellteil dachte ich, müsste es mit Range("A1").Paste gehen.
Gruß
Karsten
Anzeige
Range("A1") = MID(Range("D10"),2,4) _oT
27.12.2011 17:29:22
NoNet
_oT = "ohne Text"
AW: Range("A1") = MID(Range("D10"),2,4) _oT
27.12.2011 17:53:42
Karsten
Hallo NoNet,
Au, das haut aber auch nur für Tasse hin. Hätte ich lieber mal was anderes genommen. :o)
Jetzt hab ich mal ein Beispiel angelegt.
https://www.herber.de/bbs/user/78107.xls
Das in A1 Kopierte wird mittels des Makro in B1 abgelegt. Das ist eine Zwischenablage. Nachdem möglicherweise ein Haufen andere Makros durchforstet wurden, vielleicht auch die Mappe gespeichert, geschlossen und wieder geöffnet wurde, wird der Inhalt irgendwo anders wieder eingefügt. Vielleicht in A1 oder X10. Kann überall sein.
Es funktioniert ja auch bei mir, aber nur mit select.
Die vollmundig angepriesene Methode - ohne select (geht zu 99,9 Prozent) scheint in diesem Falle wohl nicht zu gehen. Oder doch...
Gruß
Karsten
Anzeige
AW: Range("A1") = MID(Range("D10"),2,4) _oT
27.12.2011 19:08:05
Luschi
Hallo Karsten,
hier eine Möglichkeit ohne'Select' und ohne 'Clipboard': 

Sub mein_Versuch()
Dim ok As Boolean
ok = False
Select Case Application.CutCopyMode
Case Is = False
ActiveSheet.Range("A1").Copy
ok = True
Case Is = xlCopy
ok = True
Case Is = xlCut
End Select
If ok Then
ActiveSheet.Paste ActiveSheet.Range("B1")
If ActiveSheet.Range("B1").HasFormula Then
ActiveSheet.Range("B1").Value = ActiveSheet.Range("B1").Value
End If
End If
Application.CutCopyMode = False
End Sub
Gruß von Luschi
aus klein-Paris
Anzeige
AW: Range("A1") = MID(Range("D10"),2,4) _oT
27.12.2011 19:53:44
Karsten
Hallo Luschi,
danke, bin erst gerade drauf gestoßen, dass es mit einem purem ActiveCell.PasteSpecial geht.
Trotzdem, vielleicht brauch ichs noch.
Gruß
Karsten
..und das verstehst Du?bei dem Level?
28.12.2011 19:26:54
robert
*gggg*
Umbenennung von Herber.Forum auf Karsten.Forum?
27.12.2011 19:06:35
Herber.Forum
Anzeige
Gespannt, wie sich das noch entwickelt! Ausmaße...
28.12.2011 15:55:15
Luc:-?
…nicht Inhalt, denn der ist trivial! Aber irgendwann müssen ja mal die eigentl Probleme kommen… ;->>
GRutsch, Luc :-?
GRutsch auch von mir ;o)
28.12.2011 17:11:01
mir
... auch an den selbsternannten "Querulant" ;-))
Gruß Matthias
;

Forumthreads zu verwandten Themen

Copy Paste Problem mit VBA
Chris

Hallo Leute,
ich habe ein Makro geschrieben, das ein aus SAP gezogenes Spreadsheet in ein formatiertes Excel File umwandelt.
Jetzt taucht plötzlich folgendes Problem auf:
Ein String wird in Zelle "A1" geschrieben, der Buchstaben und steuercode enthält.
D.H. ich habe in dieser Ze...
08.08.2008 15:10:35
Thread-ID: 1000317
11 Beiträge
Anzeige
VBA - paste special
Doro

Hallo Zusammen,
weiß jemand, ob es eine Möglichkeit gibt, per VBA in EINEM Schritt Inhalte und Formate einzufügen? Also statt
...
Formelbereich.Copy
.Cells(Zielzeile, Zielspalte).PasteSpecial Paste:=xlPasteValues
.Cells(Zielzeile, Zielspalte).PasteSpecial Paste:=xlPasteFor...
10.12.2009 12:16:11
Thread-ID: 1122882
3 Beiträge
Pivot VBA: Elemente DataBodyRange
Holger,

Guten Morgen liebes Forum,
Tange Google und Onkel Bing haben mir keinen sinnvollen Code ausgespuckt,
um durch die Elemente des DataBodyRanges einer PivotTabelle zu schleifen
und den value abzufragen. Sollte der value 0 sein, würde ich das dazugehörige
Item aus ColumnField lösche...
14.01.2011 09:57:31
Thread-ID: 1195575
2 Beiträge
Copy and Paste in Tabelle mit VBA erkennen
Helmut

Hallo,
kann ich über eine Ereignisprozdur erkennen, ob ein User in einer Tabelle manuell einen Bereich von A nach B kopiert oder ausgeschnitten hat.
Mich interessiert dann in VBA der Range der Quelle und der Range des Ziels, sobald das Ereignis eingetreten ist.
Danke im Voraus
H...
21.03.2011 15:17:35
Thread-ID: 1206677
7 Beiträge
VBA - PasteSpecial Fehler
Klaus

Hallo Leute,
ich habe ein Problem beim Kopieren und einfügen (als Werte) mittels Access.
Bisher lautet der Code folgendermaßen: ' Erstellt von XXXXX ChDir "C:\Temp" Workbooks.OpenText Filename:= _ "C:\Temp\test.txt", _ Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifie...
03.05.2011 08:28:22
Thread-ID: 1212743
8 Beiträge
Text in Range während Eingabe per VBA analysieren?
Max

Hallo zusammen,
ist es möglich während der Texteingabe in einem normalen Rangefeld, den Input zu erfassen und ggf. mit Makros zu reagieren?
Ich weiß, daß ich dies früher über eine Form bzw. Objekt möglich war, kann aber auch hierzu nichts mehr finden. Kann ich für meinen normale Rangefe...
21.03.2012 13:49:05
Thread-ID: 1255910
4 Beiträge
Verketten von Zellen per VBA aber nicht in Range..
Zellen

Also,
ich hab mir gerade im Archiv so allerlei angeschaut, und das ist auch alles ganz toll, aber leider nur bedingt was ich suche.
Ich benötige eine VBA Function die nur verkettet wenn die Zelle gefüllt ist, und dann ein _ Trennzeichen setzt. Soweit so gut da gibts schon ein Dutzend...
09.09.2012 19:50:54
Thread-ID: 1277932
6 Beiträge
In Sumif Formel Range aus VBA verwenden
Peter

Guten Tag
In einem Code habe ich zwei Range-Variablen definiert und diesen Bereiche zugewiesen, nämlich rDest und rDestSum.
Nun möchte ich in einer Formel, die ich in einer Tabellenspalte einsetze, die Adresse von rDest (anstelle des definierten Namens "_AAA", welcher der Adresse von rD...
17.10.2012 10:16:36
Thread-ID: 1282354
3 Beiträge
PasteSpecial statt copy Range geht nicht
Burghard

Hallo,
ich möchte mittels dieses Makros nur die Werte einfügen (also nicht mittels copy):
Sub Leerzellen_auffuellen() Dim L As Long Dim Bereich As Range For L = 1 To 10000 If WorksheetFunction.CountIf(Range(Cells(L, 6), Cells(L, 8)), "") = 3 Then _ Range(Cells(L, 1), Cells(L, 2)).Copy R...
21.01.2013 17:34:43
Thread-ID: 1295268
9 Beiträge
VBA: Zeilen aus Range kopieren bei Übereinstimmung
Patrik

Hallo zusammen
Ich möchte die Werte einer ganze Zeilen aus einem Bereich in einen zweiten Bereich auf ein anderes Blatt kopieren, sofern in einem zweiten einspaltigen Bereich die Werte in der gleichen Zeile übereinstimmen.
Range_Offset_Origin: Einspaltiger Bereich mit Vergelichswerten
01.03.2013 10:05:19
Thread-ID: 1301702
7 Beiträge
Kopierprobleme m.PasteSpecial Methode RangeObjekt
Peter

Guten Tag
Ich kopiere von Workbook A nach Workbook B Daten und zwar wie folgt:
1. zuerst USEDRANGE kopieren, neue Arbeitsmappe anlegen in Sheet(1) Zelle A1 anwählen und einfügen
2. Formate der ganzen Tabelle ws kopieren und in Sheet(1) der neuen Arbeitsmappe einfügen
Das gibt be...
01.03.2013 15:59:08
Thread-ID: 1301803
6 Beiträge
Copy/Paste funktion für bestimmten Range sperren
StefanG

Hallo zusammen,wie kann ich die Copy/paste Funktion für einen Bestimmten Range sperren?Ich möchte für einen bestimmten Zellrange die möglichkeit sperren etwas reinzukopieren. Geht das, wenn ja, wie?das ganze soll Sheet spezifisch sein, also unter Worksheet laufen.GrußStefan
11.07.2002 08:08:54
Thread-ID: 135585
8 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Range("A1").Paste: Einfache Methoden und Lösungen

Schritt-für-Schritt-Anleitung

  1. Kopiere einen Zellbereich. Zum Beispiel:

    Range("D10").Copy

  2. Füge den Inhalt in die Zielzelle ein. Die direkte Verwendung von .Paste in Kombination mit einem Range-Objekt ist nicht möglich. Stattdessen kannst du:

    ActiveSheet.Paste Destination:=Range("A1")

    verwenden, um den Inhalt ohne vorheriges Selektieren der Zelle einzufügen.

  3. Alternativ kannst du auch den Wert direkt zuweisen, wenn du nur einen Wert kopieren möchtest:

    Range("A1").Value = Range("D10").Value

Häufige Fehler und Lösungen

  • Fehler: "Method 'Paste' of object 'Range' failed."

    • Lösung: Die .Paste Methode ist an das ActiveSheet-Objekt gebunden, nicht an ein Range-Objekt. Verwende immer ActiveSheet.Paste.

  • Fehler: Nichts wird eingefügt, wenn kein Bereich kopiert ist.

    • Lösung: Stelle sicher, dass du tatsächlich etwas kopiert hast, bevor du versuchst einzufügen. Überprüfe den CutCopyMode: 
      If Application.CutCopyMode = False Then Exit Sub

Alternative Methoden

  • Verwendung von PasteSpecial: Wenn du spezielle Werte oder Formate einfügen möchtest, kannst du PasteSpecial verwenden:

    Range("A1").PasteSpecial xlPasteValues

    Diese Methode ist nützlich, um nur die Werte ohne Formatierungen einzufügen.

  • Direkte Zuweisung von Werten: Wenn du nur einen Teil eines Zellinhalts kopieren möchtest, kannst du auch Funktionen wie MID nutzen:

    Range("A1").Value = Mid(Range("D10").Value, 2, 4)

Praktische Beispiele

  1. Kopieren und Einfügen von Werten:

    Sub CopyAndPasteExample()
   Range("D10").Copy
   ActiveSheet.Paste Destination:=Range("A1")
End Sub

  2. Einfügen ohne .Select:

    Sub PasteWithoutSelect()
   If Application.CutCopyMode Then
       ActiveSheet.Paste Destination:=Range("A1")
   End If
End Sub

Tipps für Profis

  • Nutze die Application.CutCopyMode-Eigenschaft, um den Status des Kopierens zu überprüfen und unerwünschte Fehler zu vermeiden.

  • Denke daran, dass das Arbeiten mit .Paste in größeren Makros oft ineffizient ist. Überlege, ob du statt dessen den Wert direkt zuweisen kannst.

  • Halte deinen Code sauber und vermeide überflüssige Selektionsbefehle, um die Ausführungszeit zu verkürzen.

FAQ: Häufige Fragen

1. Funktioniert Range("A1").Paste in allen Excel-Versionen? Ja, Range("A1").Paste funktioniert nicht, weil die Paste-Methode nicht auf Range-Objekte angewendet werden kann. Stattdessen solltest du die Paste-Methode des ActiveSheet verwenden.

2. Wie kann ich nur Werte ohne Formate einfügen? Verwende Range("A1").PasteSpecial xlPasteValues, um nur die Werte ohne Formatierungen einzufügen.

3. Ist es möglich, einen Teil des Zellinhalts zu kopieren? Ja, du kannst Funktionen wie MID verwenden, um Teile des Zellinhalts zu extrahieren und in eine andere Zelle einzufügen.

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