HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Forumbeitrag
Excel-Version des Fragestellers:
2019
Erfahrungslevel des Fragestellers:
Excel gut - VBA bescheiden
volti
05.09.2025 10:47:18
AW: Leerzeichen beim kopieren einer Excel Zelle entfernen
Hallo Uwe,

ich weiß ja nicht, ob es an der Excelversion liegt oder wir einfach nur von Excel "verarscht" werden, aber bei mir sind nach Kopie einer Zelle mit dieser Version und Einfügen in den Editor auch ohne die Replace keine nachfolgenden Steuerzeichen vorhanden.

Deshalb hatte ich in meiner Version auch darauf verzichtet.

Gruß
KH
Als Antwort auf diesen Beitrag
UweD
05.09.2025 10:15:01
AW: Leerzeichen beim kopieren einer Excel Zelle entfernen
Hallo

Das in ein Modul

Sub CopyCellWithoutCR()

Dim txt As String
Dim DataObj As New MSForms.DataObject

' Inhalt der aktiven Zelle holen
txt = ActiveCell.Value

' Wagenrücklauf (Chr(13)) und Zeilenumbruch (Chr(10)) entfernen
txt = Replace(txt, Chr(13), "")
txt = Replace(txt, Chr(10), "")

' Nur den reinen Text in die Zwischenablage legen
With DataObj
.SetText txt
.PutInClipboard
End With
End Sub


Wenn noch nicht gemacht:
im VBA-Editor unter Extras → Verweise die Bibliothek „Microsoft Forms 2.0 Object Library“ aktivieren.

danach in Excel Alt+F8, das Makro auswählen -> „Optionen“ -> dort z. B. Strg+q zuweisen.

Wenn du nun eine Zelle markierst und Strg+q drückst müsstest du in Word einfügen können ohne Enter


LG UweD
Antwort auf Beitrag erstellen

Beispieldatei hochladen