Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.09.2025 21:07:18
Nicht alle benötigten Daten im Dictionary
28.09.2025 15:31:23
Listbox durchsuchen die über list array befüllt wurde
28.09.2025 15:25:50
Excel Zufall Dienstplan
27.09.2025 15:11:53
Probleme mit dem Autovervollständigen
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
1520to1524
1520to1524
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelleninhalt kopieren

Forumthread: Zelleninhalt kopieren

Zelleninhalt kopieren
24.10.2016 15:45:11
Defence
Hallo VBA Cracks
Versuche seit langem, den Inhalt eine Zelle per VBA zu kopieren. Gelingt mir einfach nicht. Auch mit dem Makrorekorder schaut nicht schlaues raus.
Beispiel in A1 steht Montag. Ich klicke auf diese Zelle und gehe mit F2 rein, dann markiere ich das Wort "Montag" und drücke strg+c. Somit habe ich den Zelleninhalt kopiert. Doch wie lautet der VBA Code dafür? Normales kopieren über strg.+c, führt ja dazu, dass die ganze Zelle umrandet wird und kopiert. Wenn ich aber mit F2 in eine Zelle reinklicke ist die Zwischenablage geleert. Daher meine Frage: kann man nur den Zelleninhalt per VBA kopieren? Und dann irgendwo wieder einfügen?
Danke und Gruss
Defence
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelleninhalt kopieren
24.10.2016 15:50:23
Bonduca
Hallo Defence,
so vielleicht?
Sub kopiere()
Range("A1").Value = Range("B1").Value
End Sub
Gruß,
Bon
AW: Zelleninhalt kopieren
24.10.2016 15:58:32
Defence
Hallo Bonduca
Danke für die Antwort. Aber so einfach ist es nicht ;-)
Ich möchte ja den Inhalt von A1 kopieren und irgendwo einfügen lassen mittels strg.+V. Wie gesagt muss aber der Inhalt markiert werden und nicht die Zelle. Also einfaches copy/paste wird hier nicht funktionieren :-(
Hoffe du kannst mir weiterhelfen.
Gruss
Defence
Anzeige
AW: Zelleninhalt kopieren
24.10.2016 16:50:49
EtoPHG
Hallo Defence,
Mache folgendes:
1. Füge im VBE über Einfügen - UserForm eine leere Userform in die Mappe ein.
2. Wechsle im VBE-Navigator zu DieseArbeitsmappe und füge diesen Code ein: 
Option Explicit
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel  _
As Boolean)
Dim doClipBoard As New DataObject
doClipBoard.SetText Target.Text
doClipBoard.PutInClipboard
Cancel = True
MsgBox Target.Text, , "Now in clipboard"        ' Ohne Kontrolle, diese Zeile löschen
End Sub

3. Im VBE Menü - Debuggen - Kompilieren von VBAProject
4. Über Rechtsklick - UserForm1 - Entfernen von UserForm1 - Nein die Userform entfernen.
In die Arbeitsmappe wechseln.
Doppelklick in eine Zelle kopiert deren sichtbaren Inhalt ins Clipboard. Das kann dann mit Strg-v in irgendeine andere Zelle eingefügt werden, wobei diese überschrieben wird.
Gruess Hansueli
Falls du dich fragst, warum die Userform? Das ist nur ein kleiner Trick, damit das DataObject zur Verfügung steht.
Die Msgbox.... Code-Zeile am Schluss kannst du löschen, falls sie stört!
Anzeige
AW: Zelleninhalt kopieren
25.10.2016 06:57:30
Defence
Hallo Hansueli
Du hast mir gerade mehrere Tage Arbeit erspart. Genau das habe ich gesucht. Vielen herzlichen Dank. Ich hoffe ich werde dir eines Tage auch helfen können.
Gruss
Defence
AW: Zelleninhalt kopieren
25.10.2016 07:11:59
Defence
Noch eine Frage. Kann ich das auch für ein Tabellenblatt anwenden oder geht das nur für die gesamte Arbeitsmappe? Ich möchte das eigentlich nur für einzelne Tabellenblätter?
Wenn ja? Wie müsste ich den Code anpassen?
Gruss und Dank
Defence
Anzeige
AW: Zelleninhalt kopieren
25.10.2016 08:25:14
EtoPHG
Hallo Defence,
1. Code in DieseArbeitsmappe löschen
2. Tabellenblatt doppelklicken, für das die Copy-Funktion gelten soll und diesen Code einfügen 
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim doClipBoard As New DataObject
doClipBoard.SetText Target.Text
doClipBoard.PutInClipboard
Cancel = True
MsgBox Target.Text, , "Now in clipboard"        ' Ohne Kontrolle, diese Zeile löschen
End Sub
Gruess Hansueli
Anzeige
;

Forumthreads zu verwandten Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Anzeige
Problem mit Drag&Drop und kopieren (VBA)
Micha

Hallo liebe Spezialisten,
ich habe mal wieder ein Problem und hoffe auf Hilfe :-)
Hier im Forum habe ich den folgenden Code zum deaktivieren von „Drag&Drop“ bekommen.
Private Sub Workbook_Activate() 'Verhindert Drag&Drop (Teil-1) Application.CellDragAndDrop = False End Sub...
17.09.2008 10:34:00
Thread-ID: 1010266
2 Beiträge
VBA Zellen mit x kopieren aber nur bestimmte Zellen
balta

Hallo zusammen,
habe folgendes problem, undzwar sieht meine Tabelle so aus
__A____B______C______D_____E_______F_____G____H
1_x___alf___test1_________________1234___a____ist ein Auto
2_y________________Ulf____test2__________b____ist ein Krad
3
4
5
6_y_____________...
26.09.2008 23:48:47
Thread-ID: 1012775
6 Beiträge
VBA--Zellen finden/vergleichen/kopieren
Christian

Hallo
einen Beispieldatei ist anbei!!
Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
07.10.2008 10:15:00
Thread-ID: 1014634
3 Beiträge
VBA Zellen prüfen, txt kopieren, einfügen in txt
Stevie

Hallo Zusammen,
da ich kaum Erfahrung im Bereich VBA habe hätte ich gerne mal folgendes Problem :)
Ich habe folgenden Code der Variablen in einer Textdatei ersetzt, eine neue Datei speichert und die File anschleißend mittels Batchrutine an einen Drucker schickt.
Hier der bisherige C...
06.11.2008 09:56:19
Thread-ID: 1022167
3 Beiträge
Filtern und Kopieren - VBA
Wolfgang

Hallo,
gestern konnte ich von Daniel viele gute Tipps und Hinweise erhalten, um meine Frage zu klären. Mit dem folgenden Code möchte ich erreichen, dass gefilterte Daten in "Grunddaten" in die Tabelle "Altdaten" kopiert werden und diese Datensätze dann in "Grunddaten" gelöscht werden. Das k...
09.11.2008 10:21:00
Thread-ID: 1023032
7 Beiträge
Zelleninhalt in Bereich kopieren
Ludger

Hallo zusammen,
im Seet 1 habe ichin Zelle A1 einen Wert stehen. Diesen möchte ich nach Sheet 2 Zelle C3 bringen.
Problem: Im Sheet 2 ist die Zelle C3 in einem vordef. Bereich C3:D10
Wie bekomme ich das in VBA gelöst ?
Danke
Ludger
23.02.2009 17:25:39
Thread-ID: 1053201
4 Beiträge
VBA Zelle finden und einfügen
Einzel

Hallo,
ich hab mal wieder ein kleines VBA Problem
Ich habe in Tabelle 1 unter E3 bis E7 Werte eingetragen.
Nun möchte ich das sie mit einen Code ausgelesen werden und den jeweiliegen Tagen in Tabelle 2 (neben den Tag rechts) eingefügt wird. Und zwar nur der Wert nicht die Formel.
15.07.2009 09:50:12
Thread-ID: 1088685
4 Beiträge
Zeilen einfügen und kopieren
bug-i

Hallo, ich brauche eure Hilfe:
Folgende Beispietabelle:
Merkmal - Text
1 - Text1
3 - Text2
1 - Text3
1 - Text4
2 - Text5
1 - Text6
Ich möchte jetzt für jede Zeile, die ein Merkmal größer als 1 hat danach eine neue Zeile mit gleichem Inhalt einfügen.
Die T...
05.08.2009 10:11:39
Thread-ID: 1093668
2 Beiträge
Anzeige
Zeilen variabel oft kopieren und einfügen
Bernd

Hallo Forum,
ich tüftle seit einiger Zeit vergebens an folgender Aufgabe und bitte um eure Hilfe:
Ich habe in einer Mappe zwei Sheets: Tab1 und Tab2
In Tab1 importiere ich Daten mit Hilfe des Textkonvertierungsassistenten aus einer txt-Datei.
Die txt-Datei kann unterschiedlich v...
03.09.2009 17:41:35
Thread-ID: 1100389
9 Beiträge
Anzeige
Zellen anhand Inhalt auswählen und kopieren
Matthias

Hallo zusammen,
ich habe folgendes Problem: Aus einer Datei mit ca. 30.000 Zeilen und 38 Spalten sollen einige Bereiche ausgewählt werden und in unterschiedliche Blätter einer zweiten Arbeitsmappe einsortiert werden.
Konkret: Per Makro soll in Spalte C der Bereich gesucht werden der z.B...
08.11.2009 21:04:13
Thread-ID: 1115418
13 Beiträge
aus E:E kopieren und am Ende von D:D einfügen
D:D

Hallo,
Ich habe in meiner Adressliste in D:D Straßennamen stehen, und in E:E die Hausnummern. Ich möchte die Hausnummern aber direkt hinter den Straßennamen in die selbe Zelle einfügen.
Da es sehr viele Zeilen sind möchte ich es ungern manuell machen.
Wie würdet Ihr das machen?
19.11.2009 11:46:47
Thread-ID: 1118567
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Zelleninhalt kopieren in Excel mit VBA

Schritt-für-Schritt-Anleitung

  1. Öffne den Visual Basic Editor (VBE): Drücke ALT + F11 in Excel.

  2. Füge eine UserForm hinzu: Gehe zu Einfügen - UserForm.

  3. Füge den folgenden Code in "DieseArbeitsmappe" ein:

    Option Explicit
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
   Dim doClipBoard As New DataObject
   doClipBoard.SetText Target.Text
   doClipBoard.PutInClipboard
   Cancel = True
   MsgBox Target.Text, , "Now in clipboard" ' Diese Zeile kann gelöscht werden, wenn nicht benötigt
End Sub

  4. Kompiliere das VBA-Projekt: Gehe zu Debuggen - Kompilieren von VBAProject.

  5. Entferne die UserForm: Rechtsklick auf UserForm1 und Entfernen wählen, dann Nein klicken.

  6. Teste die Funktion: Doppelklicke in eine Zelle, um den sichtbaren Inhalt in die Zwischenablage zu kopieren. Dies kann dann mit STRG + V in eine andere Zelle eingefügt werden.

Häufige Fehler und Lösungen

  • Fehler: Der Code funktioniert nicht, wenn ich die UserForm nicht einfüge.

    • Lösung: Die UserForm ist notwendig, um das DataObject zu verwenden. Halte dich an die Anleitung, um sicherzustellen, dass du die UserForm hinzufügst.

  • Fehler: Keine Rückmeldung bei Doppelklick.

    • Lösung: Stelle sicher, dass der Code korrekt in DieseArbeitsmappe eingefügt wurde und dass die Makros aktiviert sind.

Alternative Methoden

Wenn du vba zelleninhalt kopieren ohne UserForm nutzen möchtest, kannst du den Wert direkt von einer Zelle in eine andere kopieren:

Sub ZelleKopieren()
    Range("B1").Value = Range("A1").Value
End Sub

Diese Methode ist einfacher, jedoch wird der Inhalt nicht in die Zwischenablage kopiert, sondern direkt von einer Zelle zur anderen übertragen.

Praktische Beispiele

  1. Einfaches Kopieren: Um den Inhalt von A1 nach B1 zu kopieren:

    Sub EinfachesKopieren()
   Range("B1").Value = Range("A1").Value
End Sub

  2. Zelleninhalt kopieren und einfügen: Um den Inhalt einer Zelle zu kopieren und anschließend in eine andere Zelle einzufügen, kannst du folgenden Code verwenden:

    Sub ZelleninhaltKopierenUndEinfügen()
   Dim doClipBoard As New DataObject
   doClipBoard.SetText Range("A1").Value
   doClipBoard.PutInClipboard
   Range("B1").PasteSpecial
End Sub

Tipps für Profis

  • Verwende die Zwischenablage: Mit DataObject kannst du flexibler arbeiten. Dies ermöglicht dir, Inhalte einfach zu kopieren und an verschiedenen Stellen einzufügen.
  • Optimale Nutzung von Shortcuts: Wenn du oft vba zelleninhalt kopieren und einfügen verwendest, kannst du eigene Tastenkombinationen in Excel festlegen, um die Effizienz zu steigern.
  • Fehlerbehandlung einfügen: Überlege, Fehlerbehandlungsroutinen zu integrieren, um die Benutzererfahrung zu verbessern.

FAQ: Häufige Fragen

1. Kann ich den Code nur für ein bestimmtes Tabellenblatt verwenden?
Ja, du kannst den Code in das spezifische Tabellenblatt einfügen, indem du den Code in das entsprechende Arbeitsblatt-Modul einfügst.

2. Wie kann ich nur den Zelleninhalt kopieren, ohne die Formatierung?
Verwende Range("Ziel").Value = Range("Quelle").Value, um nur den Zelleninhalt zu kopieren, ohne die Formatierungen zu übertragen.

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