Thema Datum  Von Nutzer Rating
Antwort
Rot Application.FindFormat LineStyle
 25.09.2020 12:37:39 Gast68777
NotSolved
25.09.2020 13:07:56 Gast85985
NotSolved
25.09.2020 21:26:54 Gast43839
Solved

Ansicht des Beitrags:
Von:
Gast68777		 Datum:
25.09.2020 12:37:39		 Views:
738		 Rating:
     
Antwort:
  Ja
Thema:
Application.FindFormat LineStyle

Hallo,

ich möchte einen Bereich nach einer Zelle mit einem Unterstrich durchsuchen
Folgende Prozedur bringt jedoch nicht das gewünschte Ergebnis. Suche ich nach einem FontStyle funktioniert der Code jedoch, nicht jedoch für LineStyles.
In Excel selbst funktioniert die Suche, durch Application.FindFormat.Clear wird jedoch die Eingabe durch Excel gelöscht.

Sub FindLineStyle()
    
    Dim rg As Range
    
    Range("A4").Select
    Debug.Print "LineStyle before set = " & Range("A4").Borders(xlEdgeBottom).LineStyle
    Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous
    Debug.Print "LineStyle after set = " & Range("A4").Borders(xlEdgeBottom).LineStyle

    
    Application.FindFormat.Clear
    Range("A1:A9").Select
    Application.FindFormat.Borders(xlEdgeBottom).LineStyle = xlContinuous
    Set rg = Selection.Find(What:="", SearchFormat:=True)
    If Not rg Is Nothing Then
        Debug.Print rg.row
    Else
        Debug.Print "LineStyle after search = " & Range("A4").Borders(xlEdgeBottom).LineStyle
    End If
    
    Range("A4").Borders(xlEdgeBottom).LineStyle = xlLineStyleNone
    Debug.Print vbCrLf
    
    
End Sub

Vielen Dank im Voraus.

Gruß Holger

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 Application.FindFormat LineStyle
 25.09.2020 12:37:39 Gast68777
NotSolved
25.09.2020 13:07:56 Gast85985
NotSolved
25.09.2020 21:26:54 Gast43839
Solved