Nur Wert mit VBA kopieren

Hallo.
Zunächst möchte ich anmerken, dass ich neu in diesem Forum bin. Falls meine Ausführungen ggf. verbesserungswürdig sind, bin ich für jeden Hinweis dankbar. Ich hab recht gute Excelkenntnisse, bei VBA aber eher geringfügig.
Ich habe folgendes Excelproblem:
Ich habe in einer Zelle einen per Formel erstellten dynamischen Mustertext, der abhängig von verschiedenen Eingaben erstellt wird. So weit, so gut. Nun möchte ich diesen Text über eine Schaltfläche per VBA kopieren. Ziel ist es, dass der Text dann in einer anderen Anwendung (nicht von MS) einfach mit Strg + V eingefügt werden kann. Problem hierbei ist, dass ich diese Prozedur mit VBA hinbekomme, aber nur so, dass es die gesamte Zelle samt Formatierungen etc. kopiert. Damit kann aber die andere Anwendung, in der der Text eingefügt werden soll, nicht umgehen. D.h. ich benötige tatsächlich nur den Textinhalt.
Hat jemand eine Idee, wie sich dies mit VBA bewerkstelligen lässt? Wie gesagt, ich habe echt nur rudimentäre VBA-Kenntnisse. Evtl. wurde dieses Thema auch bereits im Forum behandelt. Meine Google-Suche blieb dazu leider wenig erfolgreich.
Ich danke euch bereits im Voraus für eure Hilfe!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub zusammen() 'Beispiel: 'in A1 steht "Das" 'in B1 steht "ist" 'in C1 steht "mit" 'in D1 steht 6 'in E1 steht =D1*F1 'in F1 steht 55 'in G1 steht "ganz schön teuer." With Sheets("Tabelle1") meinText = .Range("A1") & " " & .Range("B1") & _ " " & .Range("C1") & " " & Format(.Range("E1"), "0.00 ") _ & " " & .Range("G1") End With MsgBox meinText End Sub

Sub Txt_in_Zwischenablage() 'eigentlich reicht schon dies (ohne Dimensionierung einer Variablen): Sheets("Tabelle1").Range("B12").Copy 'damit befindet sich der Inhalt(der Text) von Zelle "B12" in der Zwischenablage 'weil die Zwischenablage lediglich Text aufnimmt, keine Formatierung etc. 'Die MessageBox zeigt den Inhalt von Zelle "B12" MsgBox Sheets("Tabelle1").Range("B12") End Sub

Ich verstehe was Sie meinen.
Das Problem ist, die Software in die der Text übertragen werden soll, ist ebenso eine Art Textverarbeitungs- /Formularmanagementsystem. Bei Anwendung dieses VBA-Code wird auch die Tabellenformatierung kopiert und in die genannte Software mit eingefügt, allerdings mit fehlerhafter Darstellung.
D.h. es funktioniert tatsächlich nur reibungslos wenn ausschließlich der Textinhalt der Zelle kopiert wird und ich in der Lage bin, diesen Text dann mit Strg + V einzufügen. Also im Grunde so, wie der Code mit der Msgbox nur eben, dass ich es nicht in der Msgbox brauche sondern in der Zwischenablage.
Also der Code war schon gut:


Sub MustertextKopieren()
With Sheets("Tabelle1")
meinText = Range("B12").Value
End With
MsgBox meinText
End Sub

Der Bereich MsgBox müsste eben nur durch eine Procedur ersetzt werden, die den Text nicht in der MsgBox wiedergibt, sondern eben in die Zwischenablage kopiert.
Danke.

Sub kopieren() Dim objClip As dataobject Set objClip = New dataobject strTmp = Cells(1, 1).Value objClip.SetText strTmp objClip.PutInClipboard 'nun sollte mit STRG+V der Inhalt 'der Zwischenablage in die andere App einzufügen sein End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim vText As Variant If Target.Cells(1, 1).Address(0, 0) = "F5" Then ' F5 durch deine Zelladdresse erstetzen Cancel = True vText = Target.Cells(1, 1).Text With CreateObject("htmlfile") With .parentwindow.clipboarddata If Len(vText) Then .setdata "text", vText End With End With End If End Sub

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Nur Wert mit VBA kopieren

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread