Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Nur Text in die Zwischenablage kopieren

Nur Text in die Zwischenablage kopieren
02.10.2019 06:58:06
Elkador
Hallo,
vielleicht kann mir jemand weiterhelfen.
Das Problem, dass ich habe ist folgendes. Ich nutze Excel (Office Professional Plus 2016) auf Arbeit um viel benutzte Formulierungen und Daten schnell in ein anderes Programm einzufügen. Das ging bisher ohne Probleme. Leider ist das neue Programm einem Update "zum Opfer gefallen" und jetzt ist es so, dass die eingefügten Daten nicht mehr automatisch nur als Text erscheinen, sondern mit Formatierung und als Zelle.
Ich möchte deshalb nur noch den reinen unformatierten Text in die Zwischenablage bekommen, so dass in dem Programm die Standardformatierung erhalten bleibt.
Ich kann das bisher zwar so machen, dass ich die Daten in Outlook oder im Windows Notepad einfüge, neu kopiere und dann einfüge aber es muss ja auch einfacher gehen.
Die betreffenden Zellen werden bisher folgendermaßen (beispielhaft) kopiert.
Formel in der Zelle:
=VERKETTEN(TEXT(C34;"hh:mm");D34;D36;D37;D38)
Commandbutton:

Private Sub Einweisung_Click()
ActiveSheet.Calculate
Range("B34").Copy
End Sub

Ich bin leider kein Experte in dem Gebiet so dass ich grad ratlos bin, wie ich nun vorgehe.
Ich hoffe mir kann jemand weiterhelfen. Danke schonmal
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nur Text in die Zwischenablage kopieren
02.10.2019 08:48:31
Nepumuk
Hallo Elkador,
teste mal:
Private Sub Einweisung_Click()
    Dim objClipBoard As Object
    ActiveSheet.Calculate
    Set objClipBoard = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    Call objClipBoard.SetText(Range("B34").Text)
    Call objClipBoard.PutInClipboard
    Set objClipBoard = Nothing
End Sub

Gruß
Nepumuk
Anzeige
AW: Nur Text in die Zwischenablage kopieren
02.10.2019 09:44:08
Elkador
Vielen Dank,
scheint zu funktionieren.
AW: Nur Text in die Zwischenablage kopieren
02.10.2019 08:59:52
UweD
Hallo
so?
Private Sub Einweisung_Click()
    'Es mus der Verweis: MS Forms...Object Library gesetzt sein 
    
    Dim MyData As DataObject
    ActiveSheet.Calculate
    Set MyData = New DataObject
 
    ActiveSheet.Calculate
    MyData.SetText Range("B34")
    MyData.PutInClipboard
End Sub

LG UweD
Anzeige
AW: Nur Text in die Zwischenablage kopieren
02.10.2019 09:46:19
Elkador
Kann ich erst Freitag testen, aber werde ich definitiv auch probieren, auch wenn das von Nepumuk zu funktionieren scheint.
'Es mus der Verweis: MS Forms...Object Library gesetzt sein
Wo mache ich den Verweis nochmal? Stehe gerade auf dem Schlauch ^^
AW: Nur Text in die Zwischenablage kopieren
02.10.2019 10:02:09
UweD
- im VB-Editor
- Extras
- Verweise
- Haken bei "MS Forms..Object Library"
LG UweD
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Nur Text in die Zwischenablage kopieren


Schritt-für-Schritt-Anleitung

  1. Öffne dein Excel-Dokument und gehe zum VBA-Editor, indem du ALT + F11 drückst.

  2. Füge ein neues Modul hinzu, indem du mit der rechten Maustaste auf „VBAProject (dein Dokument)“ klickst und „Einfügen“ > „Modul“ wählst.

  3. Kopiere den folgenden VBA-Code in das Modul:

    Private Sub Einweisung_Click()
       Dim objClipBoard As Object
       ActiveSheet.Calculate
       Set objClipBoard = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
       Call objClipBoard.SetText(Range("B34").Text)
       Call objClipBoard.PutInClipboard
       Set objClipBoard = Nothing
    End Sub
  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Füge einen Button hinzu, um das Makro auszuführen. Klicke auf „Entwicklertools“ > „Einfügen“ > „Button“ und ziehe ihn auf dein Arbeitsblatt.

  6. Wähle das Makro Einweisung_Click aus, wenn du den Button erstellst.

  7. Klicke auf den Button, um den Text in die Zwischenablage zu kopieren.


Häufige Fehler und Lösungen

  • Problem: Der Text wird mit Formatierungen kopiert.

    • Lösung: Stelle sicher, dass du die .Text-Eigenschaft im Code verwendest, um nur den unformatierten Text zu kopieren.
  • Problem: Das Makro funktioniert nicht.

    • Lösung: Überprüfe, ob du den Verweis auf die „Microsoft Forms 2.0 Object Library“ gesetzt hast. Dies kannst du im VBA-Editor unter „Extras“ > „Verweise“ nachprüfen.

Alternative Methoden

Wenn VBA nicht die gewählte Methode ist, kannst du auch folgende Optionen nutzen:

  • Strg + Shift + V: Verwende diesen Shortcut, um nur den Text aus der Zwischenablage einzufügen, wenn du in ein anderes Programm kopierst.
  • Notepad: Kopiere die Daten zuerst in Notepad und dann erneut, um nur den Text zu verwenden.

Praktische Beispiele

Hier sind einige praktische Anwendungsbeispiele:

  • Wichteln in Excel: Du kannst den Text von Namen oder Formulierungen in die Zwischenablage kopieren und dann in ein Wichtel-Tool einfügen, ohne dass formatierte Daten stören.
  • Berichte erstellen: Wenn du Daten aus Excel in einen Bericht einfügen möchtest, hilft es, nur den Text zu kopieren, um Formatierungsprobleme zu vermeiden.

Tipps für Profis

  • Nutze den zwischenablage shortcut in Excel, um schnell zwischen verschiedenen Datenformaten zu wechseln.
  • Speichere häufig verwendete VBA-Skripte in einem persönlichen Makroarbeitsbuch, um sie in verschiedenen Projekten wieder verwenden zu können.
  • Wenn du oft nur Text kopieren musst, könnte das Erstellen einer Schaltfläche auf deinem Arbeitsblatt deine Produktivität erheblich steigern.

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass ich nur den Text kopiere?
Verwende die .Text-Eigenschaft im VBA-Code, um sicherzustellen, dass nur der unformatierte Text in die Zwischenablage kopiert wird.

2. Was mache ich, wenn mein Makro nicht funktioniert?
Überprüfe die Makrosicherheitseinstellungen in Excel und stelle sicher, dass die „Microsoft Forms 2.0 Object Library“ aktiviert ist. Gehe dazu in den VBA-Editor und unter „Extras“ > „Verweise“.

Beliebteste Forumthreads (12 Monate)

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