Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 10:28:49
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Excel: Format des Zwischenablage-Inhaltes?

Forumthread: Excel: Format des Zwischenablage-Inhaltes?

Excel: Format des Zwischenablage-Inhaltes?
11.10.2005 13:37:58
Ace_NoOne
Hallo zusammen,
zur Abwechslung habe ich heute mal 'ne (hoffentlich) simple Frage:
Ich möchte ein Macro erstellen, das den Zwischenablage-Inhalt auf Knopfdruck* automatisch als unformatierten Text einfügt.
Das Problem ist, dass es dabei zwei unterschiedliche Versionen gibt:
Wenn die Zwischenablage normalen Text (z.B. aus dem Webbrowser) enthält, benötigt man folgenden Code:
ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:=False
(entspricht Bearbeiten - Inhalte einfügen - Text)
Wenn allerdings eine oder mehrere Tabellenzellen kopiert wurden, lautet der Code wie folgt:
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
(entspricht Bearbeiten - Inhalte einfügen - Werte)
Daher bräuchte ich also eine IF-Abfrage, die zwischen diesen beiden Fällen unterscheidet.
Für hilfreiche Hinweise wäre ich dankbar!
* A propos: Wie kann ich eine Übersicht aller belegten Tastenkombinationen erhalten? Denn ich würde ungern Shortcuts wählen, die bereits existieren...
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
CutCopyMode
11.10.2005 13:47:41
MichaV
Hallo,
frag nicht ab, was in der Zwischenablage ist. Frage ab, ob Excel im CutCopyMode ist.
If Application.CutCopyMode Then 'Excel- Inhalt in der Ablage ;o)
Gruss- Micha
PS: Rückmeldung wäre nett.
AW: CutCopyMode
11.10.2005 14:00:57
Ace_NoOne
Nice idea! Klappt perfekt:

Sub cleanPaste()
' paste clipboard contents as unformatted text
Dim info
If Application.CutCopyMode Then
' for Excel contents
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False ' for table cells
Else
' for standard text
ActiveSheet.PasteSpecial Format:="Text", Link:=False, _
DisplayAsIcon:=False
End If
End Sub

Besten Dank!
PS: Rückmeldung gebe ich nach Möglichkeit immer... :)
Anzeige
AW: CutCopyMode
11.10.2005 14:06:58
MichaV
Hallo,
Rückmeldung gebe ich nach Möglichkeit immer... :) na fein, trotzdem danke ;o)
Mit dem CutCopyMode kanns wahrscheinlich ein Problem geben, wenn Du mit mehreren Excel- Instanzen arbeitest und von einer in die andere kopierst. Hab ich aber nicht ausprobiert.
Gruss- Micha
Anzeige
AW: CutCopyMode
11.10.2005 14:20:17
Ace_NoOne
|| Rückmeldung gebe ich nach Möglichkeit immer... :)
| na fein, trotzdem danke ;o)
War nicht als Zurechtweisung gedacht... :o
Nein, hat bei mir bisher problemlos funktioniert. "Jippie!"
;
Anzeige
Anzeige

Infobox / Tutorial

Zwischenablage-Inhalte in Excel korrekt einfügen


Schritt-für-Schritt-Anleitung

Um den Inhalt der Zwischenablage in Excel korrekt einzufügen, musst du ein Makro erstellen, das den Inhalt je nach Format behandelt. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

  3. Füge den folgenden Code in das Modul ein:

    Sub cleanPaste()
       ' paste clipboard contents as unformatted text
       If Application.CutCopyMode Then
           ' für Excel-Inhalte
           Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
           SkipBlanks:=False, Transpose:=False ' für Tabellenzellen
       Else
           ' für standardmäßigen Text
           ActiveSheet.PasteSpecial Format:="Text", Link:=False, _
           DisplayAsIcon:=False
       End If
    End Sub
  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Weise dem Makro eine Tastenkombination zu, um es einfach ausführen zu können.


Häufige Fehler und Lösungen

  • Problem: "Excel, es gibt ein Problem mit der Zwischenablage."

    • Lösung: Stelle sicher, dass du die richtigen Formate für die Zwischenablage verwendest. Verwende ActiveSheet.PasteSpecial für Text und Selection.PasteSpecial für Excel-Inhalte.
  • Problem: Der Code funktioniert nicht, wenn mehrere Excel-Instanzen geöffnet sind.

    • Lösung: Teste den Code in einer einzelnen Excel-Instanz, um sicherzustellen, dass der CutCopyMode korrekt abgerufen wird.

Alternative Methoden

Wenn du eine andere Herangehensweise bevorzugst, kannst du auch die Funktion "Inhalte einfügen" manuell nutzen:

  1. Kopiere den gewünschten Inhalt in die Zwischenablage.
  2. Klicke mit der rechten Maustaste auf die Zielzelle in Excel.
  3. Wähle "Inhalte einfügen" und wähle das gewünschte Format (z.B. Werte oder Text).

Praktische Beispiele

Hier sind einige Beispiele für die Anwendung des Makros:

  • Beispiel 1: Füge unformatierten Text aus dem Webbrowser ein.

    • Kopiere einen Textabschnitt aus einem Webbrowser und führe das Makro aus. Der Text wird als reiner Text ohne Formatierungen eingefügt.
  • Beispiel 2: Füge kopierte Zellen aus einer Excel-Tabelle ein.

    • Kopiere mehrere Zellen und führe das Makro aus. Nur die Werte werden in die Zielzellen eingefügt.

Tipps für Profis

  • Verwende Application.CutCopyMode effizient, um zu überprüfen, ob Excel im Kopiermodus ist, bevor du den Inhalt einfügst.
  • Du kannst den Code erweitern, um spezielle Formate zu unterstützen, indem du weitere Bedingungen hinzufügst.
  • Teste dein Makro immer in einer Kopie deiner Arbeitsmappe, um ungewollte Änderungen zu vermeiden.

FAQ: Häufige Fragen

1. Warum ist es wichtig, zwischen verschiedenen Formaten der Zwischenablage zu unterscheiden? Es gibt verschiedene Formate für den Inhalt der Zwischenablage, und das richtige Einfügen hilft, unerwünschte Formatierungen zu vermeiden und die Datenintegrität zu gewährleisten.

2. Kann ich das Makro in verschiedenen Excel-Versionen verwenden? Ja, das Makro sollte in den meisten modernen Excel-Versionen funktionieren, die VBA unterstützen. Es ist jedoch ratsam, es vorher zu testen, insbesondere bei älteren Versionen.

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