Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1544to1548
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
1544to1548
1544to1548
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
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
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
Anzeige
Gerne u. Danke für die Rückmeldung. o.w.T.
03.03.2017 19:39:31
Werner

304 Forumthreads zu ähnlichen Themen

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
Anzeige
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
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
Anzeige
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
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
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
Gesperrte Zellen in Zwischenablage kopieren
Elias

Hallo Forum,
ich habe eine Tabelle, in welcher ein Datenbereich von B5:B20 per Button in die Zwischenablage kopiert werden soll.
Der Kram mit dem Button ist alles kein Problem, aber die Crux ist:
-Die Zellen sind gesperrt.
-Das PW darf nicht im VBA-Code hinterlegt werden, da das...
13.06.2009 23:26:05
Thread-ID: 1081337
6 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton TextBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
1
2
3
10
2
8
2
2
5
7
6
1
4
7
3
1
5
5
6
8
2
2
8
1