Ich habe eine lange Liste von Namen, für die Anführungszeichen erforderlich sind (es können doppelte oder einfache Anführungszeichen sein), und ich habe ungefähr 8.000 von ihnen. Ich habe sie in Excel ohne Anführungszeichen und ich kann alle Namen kopieren und sie problemlos einfügen, aber es gibt noch keine Anführungszeichen. Ich habe nach einer Excel-Formel gesucht und gesucht, um dem Namen in jeder Zeile Anführungszeichen hinzuzufügen, aber ich hatte kein Glück. Ich habe auch einige clevere Techniken zum Suchen und Ersetzen ausprobiert, aber auch keine hat funktioniert. Das Format, das ich suche, ist das folgende:

"Allen" oder 'Allen'

Alle von denen würde funktionieren. Ich brauche das, damit ich die Informationen in einer Datenbank speichern kann. Jede Hilfe wird sehr geschätzt. Vielen Dan

PS:

Ich habe festgestellt, dass andere Leute online dasselbe tun müssen wie ich und diese Lösung hat für sie funktioniert, aber ich weiß nicht, was ich damit anfangen soll:

Sie können das Problem beheben, indem Sie eine Bereichsvariable verwenden (z. B. myCell) und diese dann verwenden, um die Auswahlsammlung von Bereichsobjekten wie folgt zu durchlaufen:

Sub AddQuote()
Dim myCell As Range
    For Each myCell In Selection
        If myCell.Value <> "" Then
            myCell.Value = Chr(34) & myCell.Value
        End If
    Next myCell
End Sub

Eine andere Lösung, die auch für andere funktioniert hat, war:

Sub OneUglyExport()

Dim FileToSave, c As Range, OneBigOleString As String

FileToSave = Application.GetSaveAsFilename

Open FileToSave For Output As #1

For Each c In Selection

If Len(c.Text) <> 0 Then _

    OneBigOleString = OneBigOleString & ", " & Chr(34) & Trim(c.Text) & Chr(34)

Next

Print #1, Mid(OneBigOleString, 3, Len(OneBigOleString))

Close #1

End Sub