Ich importiere Werte aus einer Excel-Tabelle in eine Word-Vorlage. Nun möchte ich diese Werte aber noch umwandeln.

Wir z.B. in die Textmarke "Textmarke_L_1" der Wert "3" geschrieben, dann möchte ich das diese "3" in "alles super" umgewandelt wird. Das möchte ich mit einer Vielzahl von Textmarken machen.

Ich komme aber mit meinen geringen VBA-Kenntnissen hier einfach nicht weiter. Ich würde dies eigentlich gerne mit einer IF-Condition machen.

Hier ein Ausschnitt:

Private Sub CommandButton1_Click()
  Dim oExcelApp As Object
  Dim oExcelWorkbook As Object
  Dim lZeile As Long
  Dim i As Integer
  
    'Nur wenn ein Eintrag in der Liste markiert ist, wird das Makro ausgefuehrt
    If ListBox1.ListIndex >= 0 Then
    
        'Zuerst wird die Excel Datei geoeffnet
        Set oExcelApp = CreateObject("Excel.Application")
        Set oExcelWorkbook = oExcelApp.Workbooks.Open(sAdressDatei)
    
        lZeile = 2 'Wir starten in Zeile 2, da in der ersten Zeile Ueberschriften stehen
        With oExcelWorkbook.sheets(sTabellenblatt)
            Do While .Cells(lZeile, 23) <> ""
                'Wenn der Eintrag der Listbox mit dem Namen in der Adresstabelle
                'Uebereinstimmt, dann werden die Textmarken gefuellt
                If ListBox1.Text = CStr(.Cells(lZeile, 23).Value) Then
                
                    'Allgemeine Daten
                    ActiveDocument.Bookmarks("Textmarke_Name").Range.Text = _
                        CStr(.Cells(lZeile, 23).Value)
                    ActiveDocument.Bookmarks("Textmarke_Bereich").Range.Text = _
                        CStr(.Cells(lZeile, 24).Value)
                    ActiveDocument.Bookmarks("Textmarke_Funktion").Range.Text = _
                        CStr(.Cells(lZeile, 25).Value)
                    ActiveDocument.Bookmarks("Textmarke_Vorgesetzter").Range.Text = _
                        CStr(.Cells(lZeile, 26).Value)
                        
                        
                    'Werte
                    ActiveDocument.Bookmarks("Textmarke_L_1").Range.Text = _
                        CStr(.Cells(lZeile, 3).Value)
                    ActiveDocument.Bookmarks("Textmarke_L_2").Range.Text = _
                        CStr(.Cells(lZeile, 4).Value)
                    ActiveDocument.Bookmarks("Textmarke_L_3").Range.Text = _
                        CStr(.Cells(lZeile, 5).Value)
                    ActiveDocument.Bookmarks("Textmarke_L_4").Range.Text = _
                        CStr(.Cells(lZeile, 6).Value)

		Exit Do
                End If
                lZeile = lZeile + 1
            Loop
        End With
       
        oExcelWorkbook.Close False
        oExcelApp.Quit
    
    Else
        MsgBox "Bitte wählen Sie einen Eintrag aus der Liste aus!", _
            vbInformation + vbOKOnly, "HINWEIS!"
        Exit Sub
    End If

  Set oExcelWorkbook = Nothing
  Set oExcelApp = Nothing
  Unload Me
End Sub