Streichungen per Makro löschen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Option Explicit Sub Test() ReinigeBlatt Sheets(3) End Sub Sub ReinigeAlleBlaetter() Dim wks As Worksheet For Each wks In Worksheets ReinigeBlatt wks Next wks End Sub Sub ReinigeBlatt(ws As Worksheet) Dim CC As Range, strA As String, strN As String, ii As Integer For Each CC In ws.UsedRange If CC.Interior.ColorIndex = 4 Then CC.Interior.ColorIndex = 0 Else If Not IsEmpty(CC) And Application.IsText(CC) Then With CC If .Font.Strikethrough Then .ClearContents .Font.Strikethrough = False ElseIf IsNull(.Font.Strikethrough) Then strN = "" strA = CC.Value For ii = 1 To Len(CC) If Not CC.Characters(ii, 1).Font.Strikethrough Then _ strN = strN & Mid(strA, ii, 1) Next ii CC = strN End If End With End If End If Next CC End Sub

Hallo Erich,
vielen Dank für Deine schnelle Hilfe!
Die Markierungen werden mit der Hand am Arm (also manuell ;) erzeugt um Änderungen an Vorlagen zu dokumentieren und für eine Umsetzung weiterzugeben. Die Änderungsverfolgung "springt nicht so gut ins Auge".
Das Makro funktioniert in der Beispieldatei wunderbar. Genau das was ich gesucht habe! :)
Ich habe das Makro auch gleich mal auf eine "echte" Datei losgelassen. In einem Fall funktioniert es leider nicht 100%ig, die Streichungen zu löschen.
Denn teilweise deklarieren wir verschiedene Bedingungen in einer Zelle wobei ein Absatz in die Zellen eingefügt wird. Diese Zelle wurde vom Makro nicht berücksichtigt. Liegt dies vielleicht am Absatz innerhalb der Zelle? Absatzwechsel in der Zelle hatte ich in der Beipieldatei leider nicht beigefügt.
Als Beispiel hänge ich eine weitere Datei an: https://www.herber.de/bbs/user/73040.xls . Vielleicht hast Du hierzu einen Hinweis für mich.
Auf jeden Fall vorab schonmal vielen lieben Dank für jegliche Unterstützung.
Viele Grüße nach Kamp-Lintfort und einen schönen Tag wünscht Andi

Hi Andi,
beim Löschen der durchgestrichenen Teiltexte habe ich kein Problem entdecken können,
auch "Bedingung3->Effekt3" (nach Umbruch) wird sauber gelöscht.
Ist das bei dir nicht so?
Allerdings haben nach dem Löschen (genauer: nach dem Eintragen des geänderten Textes)
alle Zeichen einheitlich die Farbe, die vorher das erste Zeichen hatte.
Auch das könnte man natürlich noch berücksichtigen und wieder herzustellen versuchen.
Stellt sich die Frage: Was kommt danach?
Es könnte ja auch sein, dass ein Teil des Textes z. B. in Fettschrift oder kursiv ist und bleiben soll.
Unterschiedliche Formatierungen innerhalb der Zellen würde ich operativ nicht einsetzen,
dazu wird das in Excel (das ja keine Textverarbeitung, sondern eine Kalkulationsplatform ist) zu schlecht unterstützt.
Hier noch eine etwas schönere Version der Routine:


Sub ReinigeBlatt(ws As Worksheet)
Dim CC As Range, strA As String, strN As String, ii As Integer
For Each CC In ws.UsedRange
If CC.Interior.ColorIndex = 4 Then
CC.Interior.ColorIndex = 0
Else
If Not IsEmpty(CC) And Application.IsText(CC) Then
With CC
If .Font.Strikethrough Then
.ClearContents
.Font.Strikethrough = False
ElseIf IsNull(.Font.Strikethrough) Then
strN = ""
strA = .Value
For ii = 1 To Len(strA)
If Not .Characters(ii, 1).Font.Strikethrough Then _
strN = strN & Mid(strA, ii, 1)
Next ii
.Value = strN
End If
End With
End If
End If
Next CC
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread