Excel AutoFilter setzen auf Farbe

  • VBScript

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von petaod.

    Excel AutoFilter setzen auf Farbe

    Hi zusammen,

    mit Hilfe des nachfolgenden Codes führe ich eine Suchabfrage nach einem Begriff aus,der meiner *.vbs-Datei per Commandline übergeben wird.

    Quellcode

    1. Suchbegriff = WScript.Arguments.Item(0)
    2. Set objExcel = createobject("Excel.application")
    3. objExcel.Visible =true
    4. Set objWorkbook = objExcel.Workbooks.Open("C:\Temp\Test.csv")
    5. Set objWorksheet = objWorkbook.Worksheets(1)
    6. Set objRange = objWorksheet.UsedRange
    7. Set objTarget = objRange.Find(Suchbegriff)
    9. If Not objTarget Is Nothing Then
    10. strFirstAddress = objTarget.AddressLocal(False,False)
    11. objTarget.EntireRow.Font.Bold = True
    12. objTarget.EntireRow.Interior.Color = RGB(128,128,128)
    13. Else
    14. MsgBox("Kein Eintrag gefunden!")
    15. End If
    17. Do Until (objTarget Is Nothing)
    18. Set objTarget = objRange.FindNext(objTarget)
    19. strHolder = objTarget.AddressLocal(False,False)
    20. If strHolder = strFirstAddress Then
    21. Exit Do
    22. End If
    23. objTarget.EntireRow.Font.Bold = True
    24. objTarget.EntireRow.Interior.Color = RGB(128,128,128)
    25. Loop
    27. objWorksheet.Range("A1:A1").AutoFilter
    28. objWorksheet.Range("A1:A1").AutoFilter 1, RGB(128, 128, 128)


    Funktioniert wunderbar bis auf die letzte Zeile.
    Hat jemand eine Ahnung, wie man per VBScript einen Filter auf eine Farbe setzen kann?
    Ich komm einfach nicht dahinter...

    Bin für jeden Tipp dankbar.

    Viele Grüße

    Daniel

Facebook
Telefonspende