Office - Word, Excel und Co. 9.744 Themen, 41.408 Beiträge

Excel 2010 Frage / Kommentare ändern

Stefan H1 / 14 Antworten / Flachansicht Nickles

Hallo

wie geht das dass ich in einem Excel Dokument alle 50 - 100 Kommentare, überall wo 2018 vorkommt das in 2019 ändere?

bei Antwort benachrichtigen
hddiesel Stefan H1 „Excel 2010 Frage / Kommentare ändern“
Optionen

Hallo Stefan H1,

per Makro geht es.
Teste mit einer kopie deiner Datei, Spalte und Bereich anpassen
und die Datei als .xlsm speichern, da Datei mit Makro.

Sub Kommentar_Eintrag_ändern()
    Dim TxIst As String
    Dim TxNew As String
    Dim Zei As Long
    Dim posA As Long

    For Zei = 2 To 10
        With ActiveSheet.Cells(Zei, "A")
            If Not .Comment Is Nothing Then
                TxIst = .Comment.Text

                If InStr(.Comment.Text, ".2018") > 0 Then
                    posA = InStr(.Comment.Text, ".2018")
                    TxNew = Left(.Comment.Text, posA) & 2019 & Mid(.Comment.Text, posA + 5)
                    .ClearComments
                    .AddComment TxNew

                End If

            End If

        End With

    Next

End Sub

Windows 10 Pro 64-Bit, 22H2: MS Office Pro Plus 2016 32-Bit: Mein Motto: Leben und leben lassen: Gruss Karl
bei Antwort benachrichtigen