Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.09.2025 15:11:53
Probleme mit dem Autovervollständigen
27.09.2025 13:16:54
Mit VBA erstellter S.-Brief erzeugt mehr Briefe als Daten
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
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
1544to1548
1544to1548
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Kopieren in die Zwischenablage funkt nicht

Forumthread: VBA: Kopieren in die Zwischenablage funkt nicht

VBA: Kopieren in die Zwischenablage funkt nicht
02.03.2017 15:52:19
Tim
Hallo,
ich habe eine UserForm und möchte dort gerne per Button-Klick den Text einer Textbox in die Zwischenablage kopieren.
Bisher habe ich folgenden Code: 
Private Sub BtnCopySql_Click()
Dim varResults As New DataObject
With varResults
.SetText varSql ' identisch zu Me.TxtSql.Text
.PutInClipboard
End With
Unload Me
End Sub
Das funktioniert leider nicht und kopiert mir gar nichts (bzw, je nach Editor, nur 2 Fragezeichen) in die Zwischenablage.
An der Variablen (varSql) liegt es nicht, denn wenn ich sie zum testen in einer Message Box anzeige, erscheint der Text korrekt.
Kann mir jemand sagen, wo hier der Fehler liegt oder ob es einen besseren / alternativen Weg dafür gibt ?
VG und vielen Dank im Voraus,
Tim
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Kopieren in die Zwischenablage funkt nicht
02.03.2017 16:21:05
Werner
Hallo Tim,
Private Sub CommandButton1_Click()
Dim objClip As DataObject
Dim strTemp As String
Set objClip = New DataObject
strTmp = Me.TextBox1.Text
objClip.SetText strTmp
objClip.PutInClipboard
End Sub
Gruß Werner
AW: VBA: Kopieren in die Zwischenablage funkt nicht
02.03.2017 16:24:19
Tim
Hallo Werner,
vielen Dank für die schnelle Antwort.
Du hast strTmp einmal mit e geschrieben, aber wenn ich das korrigiere, ist das Problem das gleiche wie bei mir.
VG,
Tim
Anzeige
AW: VBA: Kopieren in die Zwischenablage funkt nicht
02.03.2017 16:38:35
Werner
Hallo Tim,
keine Ahnung, kann dir nur sagen, dass es bei mir geht. Ich habe jetzt mal auf deine Variablennamen angepasst.
Private Sub CommandButton1_Click()
Dim varResults As DataObject
Dim varSql As String
Set varResults = New DataObject
varSql = Me.TextBox1.Text 'Name der TextBox anpassen
varResults.SetText varSql
varResults.PutInClipboard
Unload Me
End Sub
Gruß Werner
Anzeige
AW: VBA: Kopieren in die Zwischenablage funkt nicht
02.03.2017 16:44:04
Tim
Danke, Werner !
Offenbar lag es daran, dass mein Zwischenspeicher voll war ? Ich habe jetzt mal alle möglichen temporären Dateien etc. gelöscht und neu gestartet und jetzt funktioniert es wieder - mit beiden Lösungen.
Seltsam aber vielleicht hat es damit zu tun, dass ich hier größere Dantenmengen in die Zwischenablage kopiere.
VG,
Tim
Anzeige
AW: VBA: Kopieren in die Zwischenablage funkt nicht
02.03.2017 17:00:12
Werner
Hallo Tim,
vorher zur Sicherheit einfach leeren?
Private Sub CommandButton1_Click()
Dim varResults As DataObject
Dim varSql As String
Set varResults = New DataObject
varSql = ""
varResults.SetText varSql
varResults.PutInClipboard
Set varResults = New DataObject
varSql = Me.TextBox1.Text 'Name der TextBox anpassen
varResults.SetText varSql
varResults.PutInClipboard
Unload Me
End Sub
Gruß Werner
Anzeige
AW: Noch eine Änderung
02.03.2017 18:29:15
Werner
Hallo Tim,
noch eine kleine Änderung. Ansonsten knallt es, wenn deine TextBox leer ist und du den Button betätigst.
Private Sub CommandButton1_Click()
Dim varResults As DataObject
Dim varSql As String
Set varResults = New DataObject
varSql = ""
varResults.SetText varSql
varResults.PutInClipboard
Set varResults = New DataObject
varSql = Me.TextBox1.Text 'Name der TextBox anpassen
If Not varSql = vbNullString Then
varResults.SetText varSql
varResults.PutInClipboard
End If
Unload Me
End Sub
Gruß Werner
Anzeige
AW: Noch eine Änderung
03.03.2017 16:57:31
Tim
Hallo Werner,
vielen Dank nochmal für die Ergänzungen - das funktioniert super so. :)
VG und ein schönes WE,
Tum
Gerne u. Danke für die Rückmeldung. o.w.T.
03.03.2017 19:39:31
Werner
;

Forumthreads zu verwandten Themen

Fehler in der Formel
Baywatch

Hi
ich habe eine Formel und die tut es leider nicht. Wenn ich MIN durch Max ersetze klappt es, aber warum bei min NIcht?
Vielleicht findet jemand den Denkfehler?
{=(BEREICH.VERSCHIEBEN(Daten!$A$1;SUMME(WENN(Daten!D1:D5002=MIN(WENN(Daten!F1:F5002="M"; Daten!D1:D5002;0));ZEILE(Date...
15.08.2008 15:59:00
Thread-ID: 1002235
8 Beiträge
Anzeige
Beim Kopieren eines Tabellenblattes den VBA-Code e
Alfi

Hallo Excel-Gemeinde!
ich habe eine mehrblättrige Datei, per Makro kopiere ich ein Blatt und speichere dieses unter neuem Namen ab.
Dieses Blatt soll aber nicht mehr den VBA-Code der ursprübglichen Datei enthalten, sprich ein Blatt ohne Makros.
Wer kann mir helfen?
So sieht der...
09.09.2008 09:58:00
Thread-ID: 1008333
8 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
Anzeige
LZF 1004 Anwendungs- oder objektdefinierter Fehler
Himmelsbach

Hallo zusammen,
Ich habe ein kleines Problem beim Einfügen eines Kommentars in ein Zelle.
Der Code lautet:
Sub vergleichen () dim icolmax as integer dim irowmax as integer dim icol as integer dim irow as integer dim kommentar$ icolmax = 16 irowmax = thisworkbook.worksheets("IASEK...
20.10.2008 20:20:00
Thread-ID: 1017794
6 Beiträge
In Zwischenablage kopieren
Claudia

Hallo liebe VBA-Profis,
ich habe eine sehr einfache Bitte. Ich möchte die Daten aus den ersten drei Spalten (ab Zeile 2 einschließlich der letzten befüllten Zelle in Spalte A) mittelsn Makro in die Zwischenablage kopieren. Mehr nicht. :-)
Ich könnte das natürlich mit der Hand machen, d...
15.12.2008 18:19:49
Thread-ID: 1033106
4 Beiträge
Bei Fehler schließen verhindern
Wolfgang

Einen guten abend an alle
Ich suche eine Lösung für folgendes Problem:
Ich habe eine Monatstabelle (Tab1 bis31) hier sind Spalten vorgegeben, bzw. werden
durch sverweis gefüllt, in den Tabellen sind nur einige Eingabefelder frei, ansonsten sind
die Tabellen geschützt.
Mein P...
17.12.2008 19:38:53
Thread-ID: 1033686
12 Beiträge
Fehler in der Verkettung der Formel ?
Selma

Hallo Leute,
ich habe in Spalte E und F mit Formeln die Zelleninhalte verkettet. Mit einem Makro markiere ich ab Zeile 3 die Zellen in Spalte E und F und erzeugte eine Datei move.bat die danach ausgeführt wird.
In Spalte E stehen die Ordnername die erstellt werden und in Spalte F die D...
21.12.2008 13:20:00
Thread-ID: 1034590
2 Beiträge
VBA Code mit VBA in Tabelle kopieren - Fehler?!
Andreas

Hallo Herber Fans,
ich habe mir heute aus der Recherche eine Möglichkeit rausgesucht, einen Code über VBA in ein anderes VBA Worksheet zu kopieren. Das dies in VBA überhaupt geht ist ja schon genial. Es soll ein Code in das VBA Worksheet des activeworkbooks kopiert werden.
Der Code dafü...
11.02.2009 15:56:00
Thread-ID: 1049657
3 Beiträge
Anzeige
suchen kopieren einfügen vba
Bea

Hallo zusammen
Ich hab folgendes Problem.
in der angehängten Beispielmappe möchte ich, das die in Arbeitsblatt "Nummern" hinterlegten Anfänge von Telefonnummern in Arbeitsblatt "evnachweis" gesucht die jeweiligen Zeilen kopiert und dann in Arbeitsblatt in dem Fall "Februar" (am besten...
10.03.2009 11:55:49
Thread-ID: 1058557
9 Beiträge
variable Zeilenanzahl kopieren, einfügen (VBA)
Alex

Hallo Leute,
In meiner Arbeitsmappe kopiere ich eine! Zeile (aus dem TabBlatt „Grundformular“) - via Doppelklick auf einen Namen in „Übersicht“ - in andere TabBlätter.
(das geht wunderbar)
Sieht jemand eine Möglichkeit ob/wie das ganze mit einer variablen Zeilenanzahl, die im „Grund...
18.03.2009 17:23:56
Thread-ID: 1061522
3 Beiträge
wo ist mein fehler in der wenn-funktion?
Caro

=WENN(UND(H3="A";K3="A";N3="A");"Top 01";WENN(UND(H3="A";K3="A";N3="B");"Top 02";WENN(UND("h3"="a"; "k3"="a";"n3"="A");"Top 03";WENN(UND("h3"="a";"k3"="b";"n3"="A");"Top 04";WENN(UND("h3"="a"; "k3"="c"; "n3"="A");"Top 05";WENN(UND("h3"="a";"k3"="b";"n3"="b");"Top 06";WENN(UND("h3"="a"; "k3"="c...
26.03.2009 00:16:05
Thread-ID: 1064042
6 Beiträge
Anzeige
Mit VBA Zeilen in neue Register kopieren
Andreas

Ein Tabellenblatt soll nach einem bestimmten Kriterium durchsucht werden. Immer wenn das Suchkriterium gefunden wird, soll die Zeile kopiert und in ein neues Tabellenblatt eingefügt werden. Dies soll solange geschehen bis alle Zeilen durchsucht worden sind.
Im Detail soll dies wie folgt fun...
08.06.2009 12:29:49
Thread-ID: 1079883
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

VBA: Text in die Zwischenablage kopieren

Schritt-für-Schritt-Anleitung

Um Text aus einer TextBox in einer UserForm in die Zwischenablage zu kopieren, befolge diese Schritte:

  1. Öffne den VBA-Editor:

    • Drücke ALT + F11 in Excel, um den VBA-Editor zu öffnen.

  2. Erstelle eine UserForm:

    • Füge eine UserForm hinzu und platziere eine TextBox (z.B. TextBox1) und einen Button (z.B. CommandButton1).

  3. Füge den folgenden Code in das Click-Ereignis des Buttons ein:

    Private Sub CommandButton1_Click()
   Dim varResults As New DataObject
   Dim varSql As String
   varSql = Me.TextBox1.Text
   If Not varSql = vbNullString Then
       varResults.SetText varSql
       varResults.PutInClipboard
   End If
   Unload Me
End Sub

  4. Teste die UserForm:

    • Fülle die TextBox aus und klicke auf den Button, um den Text in die Zwischenablage zu kopieren.

Häufige Fehler und Lösungen

  • Der Inhalt konnte nicht in die Zwischenablage kopiert werden:

    • Stelle sicher, dass die Bibliothek "Microsoft Forms 2.0 Object Library" aktiviert ist. Gehe zu Extras -> Verweise im VBA-Editor und aktiviere diese Bibliothek.

  • Excel fehler in der zwischenablage:

    • Überprüfe, ob dein Zwischenspeicher möglicherweise voll ist. Leere den Zwischenspeicher, bevor du den Text kopierst.

  • Fragezeichen kopieren:

    • Dieser Fehler kann auftreten, wenn der Text nicht richtig gesetzt wird. Überprüfe die Variable, die du kopieren möchtest.

Alternative Methoden

Eine alternative Methode ist die Verwendung von Clipboard API, um den Text zu kopieren. Hier ist ein Beispielcode:

Private Declare PtrSafe Sub OpenClipboard Lib "user32" (ByVal hwnd As LongPtr)
Private Declare PtrSafe Sub CloseClipboard Lib "user32"
Private Declare PtrSafe Sub EmptyClipboard Lib "user32"
Private Declare PtrSafe Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As Long) As Long

Private Sub CommandButton1_Click()
    Dim varSql As String
    varSql = Me.TextBox1.Text
    If Not varSql = vbNullString Then
        OpenClipboard 0
        EmptyClipboard
        SetClipboardData 1, StrPtr(varSql)
        CloseClipboard
    End If
    Unload Me
End Sub

Praktische Beispiele

  1. Text kopieren:

    • Füge in die TextBox einen langen Text ein und drücke den Button. Der gesamte Text sollte in die Zwischenablage kopiert werden.

  2. Leere TextBox:

    • Wenn die TextBox leer ist, wird der Code den Text nicht kopieren, um Fehler zu vermeiden.

Tipps für Profis

  • Zwischenspeicher leeren: Leere den Zwischenspeicher, bevor du neuen Text kopierst, um Konflikte zu vermeiden.

    varResults.SetText ""
varResults.PutInClipboard

  • Fehlerbehandlung: Implementiere Fehlerbehandlung, um zu vermeiden, dass dein Programm abstürzt, wenn ein Fehler auftritt.

FAQ: Häufige Fragen

1. Wie kann ich überprüfen, ob der Text erfolgreich kopiert wurde? Du kannst den Inhalt der Zwischenablage nach dem Kopieren in einer MessageBox anzeigen.

2. Warum funktioniert der Code nicht in Excel 2016? Stelle sicher, dass alle erforderlichen Verweise aktiv sind und dass du die richtige Syntax für die VBA-Version verwendest.

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