Thema Datum  Von Nutzer Rating
Antwort
Rot Importierte Werte aus Excel in vorgegebenen Text umwandeln (Bewertungssystem)
16.08.2022 16:41:17 bluebyte85
Solved

Ansicht des Beitrags:
Von:
bluebyte85
Datum:
16.08.2022 16:41:17
Views:
243
Rating: Antwort:
 Nein
Thema:
Importierte Werte aus Excel in vorgegebenen Text umwandeln (Bewertungssystem)

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

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Importierte Werte aus Excel in vorgegebenen Text umwandeln (Bewertungssystem)
16.08.2022 16:41:17 bluebyte85
Solved