|
In FindFormat ist der Wurm drin.
Option Explicit
Sub Test()
'#1
Call PrintCellFormat("FINDFORMAT_1")
Call CellSearch("CELLSEARCH_1")
'#2
With Application.FindFormat
.Clear
' .Borders.LineStyle = xlLineStyleNone
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
End With
Call PrintCellFormat("FINDFORMAT_2")
Call CellSearch("CELLSEARCH_2")
End Sub
Private Sub CellSearch(Optional Tag)
Dim rngResult As Excel.Range
Set rngResult = Cells.Find(What:="", SearchFormat:=True)
Debug.Print 'empty line
If Not IsMissing(Tag) Then Debug.Print "["; CStr(Tag); "]"
Debug.Print ">> Found: ";
If Not rngResult Is Nothing Then
Debug.Print rngResult.Address(False, False)
Else
Debug.Print "NOTHING"
End If
End Sub
Private Sub PrintCellFormat(Optional Tag)
Dim i As Long
With Application.FindFormat
Debug.Print 'empty line
If Not IsMissing(Tag) Then Debug.Print "["; CStr(Tag); "]"
Debug.Print "LineStyle", "ColorIndex", "TintAndShade", "Weight"
For i = 1 To 10
Debug.Print .Borders(i).LineStyle, .Borders(i).ColorIndex, .Borders(i).TintAndShade, .Borders(i).Weight
Next
End With
End Sub
Führt man die Suche 1 mal manuell aus
(Voreinstellung Rahmen: Keine + dünne Rahmenlinie unten)
und führt anschließend obiges Makro aus, erhält man diese
#1 Ausgabe:
[FINDFORMAT_1]
LineStyle ColorIndex TintAndShade Weight
-4142 -4142 Null 2
-4142 -4142 Null 2
-4142 -4142 Null 2
1 -4105 0 2
-4142 -4142 Null 2
-4142 -4142 Null 2
-4142 -4142 Null 2
-4142 -4142 Null 2
1 -4105 0 2
-4142 -4142 Null 2
[CELLSEARCH_1]
>> Found: A5
[FINDFORMAT_2]
LineStyle ColorIndex TintAndShade Weight
Null -4142 Null Null
Null -4142 Null Null
Null -4105 0 Null
1 -4105 0 2
Null -4142 Null Null
Null -4142 Null Null
Null -4142 Null Null
Null -4105 0 Null
1 -4105 0 2
Null -4142 Null Null
[CELLSEARCH_2]
>> Found: NOTHING
Nach dem Clear findet er also nichts mehr. Es fällt auf, dass im Fall 2 - bei dem nichts gefunden wurde - der LineStyle nicht gesetzt ist.
Nimmt man nun im obigen Makro die auskommentierte Zeile 12 hinein, erhält man diese
#2 Ausgabe:
[FINDFORMAT_1]
LineStyle ColorIndex TintAndShade Weight
Null -4142 Null Null
Null -4142 Null Null
Null -4105 0 Null
1 -4105 0 2
Null -4142 Null Null
Null -4142 Null Null
Null -4142 Null Null
[CELLSEARCH_1]
>> Found: NOTHING
[FINDFORMAT_2]
LineStyle ColorIndex TintAndShade Weight
-4142 -4142 Null 2
-4142 -4142 Null 2
-4142 -4142 Null 2
1 -4105 0 2
Null -4142 Null Null
Null -4142 Null Null
-4142 -4142 Null 2
[CELLSEARCH_2]
>> Found: A5
Und oh Wunder, es funktioniert auf einmal!
Grüße
|