PDA

Vollständige Version anzeigen : Format *durchgestrichen* erkennen


Joachim Hofmann
25.09.2001, 14:20
Hallo,

ein Kunde von mir hat eine Excel-Datei, in dem einige Einträge das Format *durchgestrichen* bekommen haben.
Nun möchte er genau diese erkennen und zB durch was anderes ersetzen.
Im Dialog zum Suchen bzw ersetzen findet man aber keine zusätzliche Formatangabe wie bei Word.

Any Ideas?

<p align="left"><font size="1" face="Century Gothic"><font color="#000000">Moderatorenanmerkung: die Überarbeitung dieses Beitrages ist im Zuge der Arbeiten zu sehen, die durch den Wechsel der Forensoftware zum 01.01.2003 verursacht wurden.

Es wurde in diesem Beitrag ein Link entfernt.</font>

Klaus-Dieter
25.09.2001, 15:42
Hallo Joachim,

mit diesem Script kannst Du durchgestrichene Texte erkennen:

<div><link href="http://www.ms-office-forum.net/forum/externals/codeconv.css" rel="stylesheet"><pre><span class="TOKEN">Sub</span> Durchstrich_erkennen()
<span class="TOKEN">For</span> r = 1 <span class="TOKEN">To</span> 10
Cells(r, 1).Select
<span class="TOKEN">If</span> Selection.Font.Strikethrough = <span class="TOKEN">True</span> <span class="TOKEN">Then</span> Cells(r, 2) = &quot;OK&quot;
<span class="TOKEN">Next</span> r
<span class="TOKEN">End</span> <span class="TOKEN">Sub</span></pre></div>
Code eingefügt mit dem MOF Code Converter (http://www.ms-office-forum.net/forum/codeconverter.php)

<font size="1" face="Century Gothic">Moderatorenanmerkung: die Überarbeitung dieses Beitrages ist im Zuge der Arbeiten zu sehen, die durch den Wechsel der Forensoftware zum 01.01.2003 verursacht wurden.

Es wurde in diesem Beitrag der Code für dieses Forum angepasst.<font>

Stema
25.09.2001, 16:37
Hallo zusammen,

noch eine andere Variante:


Sub Durchstrich_erkennen()
Dim Zelle As Range
For Each Zelle In Selection
If Zelle.Font.Strikethrough = True Then Zelle.Font.Strikethrough = False
Next
End Sub