Thema Datum  Von Nutzer Rating
Antwort
08.04.2016 13:08:38 WenigAhnung
NotSolved
Blau Finden von durchgestrichenem Text und farbliche Markierung der Zelle per Makro
 08.04.2016 14:46:35 Gast68435
Solved
08.04.2016 15:46:37 WenigAhnung
Solved

Ansicht des Beitrags:
Von:
Gast68435		 Datum:
08.04.2016 14:46:35		 Views:
873		 Rating:
     
Antwort:
 Nein
Thema:
Finden von durchgestrichenem Text und farbliche Markierung der Zelle per Makro

Hallo wenig Ahnung! HIer mal ein Codebeispiel wie es gehen könnte. Da ich mir nicht sicher war, ob du A&B oder C&D markiert haben wolltest, habe ich mich für C & D entschieden. Falls es die anderen beiden waren, dann einfach die Variable G im Code von 3 bis 4 auf 1 bis 2 ändern. Sollte dann so aussehen.

For g = 1 To 2

das hier klappt dann aber für 3 und 4 also C und D
Option Explicit

Sub durchgestichen()
Dim durchgestrichen As Boolean
Dim i As Long
Dim h As Long
Dim g As Long
Dim zeile As Long

For g = 3 To 4
    zeile = ActiveSheet.Cells(Rows.Count, g).End(xlUp).Row 

    For h = 1 To zeile
        durchgestrichen = False
        For i = 1 To Len(ActiveSheet.Cells(h, g))
            If ActiveSheet.Cells(h, g).Characters(i, 1).Font.Strikethrough = True Then durchgestrichen = True
        Next i

        If durchgestrichen = True Then ActiveSheet.Cells(h, g).Interior.ColorIndex = 4
    Next h
Next g

End Sub

Viele Grüße

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
08.04.2016 13:08:38 WenigAhnung
NotSolved
Blau Finden von durchgestrichenem Text und farbliche Markierung der Zelle per Makro
 08.04.2016 14:46:35 Gast68435
Solved
08.04.2016 15:46:37 WenigAhnung
Solved