Excel - Anführungszeichen bei Zeilenumbruch

[Petoschka]

Ich habe mir in Excel 2016 eine Wording-Tabelle für die Arbeit zusammengestellt, so dass ich sich wiederholende Texte nicht immer neu tippen muss. Kopiere ich nun die Zelle und füge sie in einen Editor oder direkt in das entsprechende Tool ein, so werden diese Texte (die auch Absätze enthalten) in Anführungszeichen gesetzt, was ab und an nervig ist, weil diese immer erst manuell entfernt werden müssen. Bei meiner alten Firma wurde Excel 2019 eingesetzt, wo dies nicht der Fall war. Dies scheint durch eine bestimmte Einstellung getriggert worden zu sein, denn in Office 365 tritt das Problem ebenfalls auf. Ich habe daher die vage Hoffnung, dass es eine entsprechende Einstellung auch in Excel 2016 gibt.

Ich weiß, dass es irgendwas mit dem manuellen Zeilenumbruch zu tun hat, finde aber die entsprechende Einstellung nicht. Automatischer Zeilenumbruch hilft mir leider nicht, da dieser (so vermute ich zumindest) nichts mit Absätzen anfangen kann.

Ich würde am Liebsten die Zelle selbst kopieren und dann im benötigten Tool einfügen, da ich dies sehr oft benötige und sich das manuelle entfernen der Anführungszeichen zeitlich dann doch summiert.

 

[drac23]

hatte ich damals auch immer, gab afair keine native lösung in der alten version.
helfen also allenfalls makros, dazu anhänglich eine beispieldatei.
einfach als xslm abspeichern und dann die beiden vba-makros einfügen.

Private Sub Workbook_Open()
    Call AktiviereMakro
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call DeaktiviereMakro
End Sub

Public Sub KopierenOhneAnfuehrungszeichen()
    On Error Resume Next
    
    Dim text As String
    text = ActiveCell.Value
    
    ' Entfernen von Anführungszeichen am Anfang und Ende
    text = Trim(text)
    If Left(text, 1) = """" And Right(text, 1) = """" Then
        text = Mid(text, 2, Len(text) - 2)
    End If
    
    ' Kopieren in die Zwischenablage
    Application.CutCopyMode = False
    With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .SetText text
        .PutInClipboard
    End With
End Sub

Public Sub AktiviereMakro()
    Application.OnKey "^c", "KopierenOhneAnfuehrungszeichen"
End Sub

Public Sub DeaktiviereMakro()
    Application.OnKey "^c"
End Sub