Excel Export mit Bedingter Formatierung aus DataGridView

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Excel Export mit Bedingter Formatierung aus DataGridView

    Hallo zusammen,

    ich Exportiere mit folgendem Code den Inhalt eines DataGridView nach Excel. Ich möchte dem aber jetzt auch noch eine Bedingte Formatierung mit geben. Also das bei der letzten Spalte alle Zellen deren <=10 sind grün werden, Zellen die Zwischen 10 und 20 sind gelb und alles was dadrüber ist rot.
    Kann mir einer sagen wie man so was macht und/oder ob das überhaupt möglich ist?

    VB.NET-Quellcode

    1. Try
    2. Dim Excel As Microsoft.Office.Interop.Excel.Application
    3. Dim EXMappe As Microsoft.Office.Interop.Excel.Workbook
    4. Dim EXBlatt As Microsoft.Office.Interop.Excel.Worksheet
    5. Dim AZ As Integer
    8. ' neue Instanz von Excel erstellen und ggf. sofort anzeigen
    9. Excel = New Microsoft.Office.Interop.Excel.Application
    10. System.Threading.Thread.CurrentThread.CurrentCulture = System.Globalization.CultureInfo.CreateSpecificCulture("en-US")
    11. Excel.Visible = Not FillHiddenMode
    13. ' neue Mappe hinzufügen
    14. EXMappe = Excel.Workbooks.Add()
    16. ' aktuelles Blatt anzeigen
    17. EXBlatt = CType(EXMappe.ActiveSheet, Microsoft.Office.Interop.Excel.Worksheet)
    19. With DataGridView1
    20. ' Spaltenüberschriften übertragen
    21. For Spalte As Integer = 0 To .Columns.Count - 1
    22. EXBlatt.Cells(1, Spalte + 1) = .Columns(Spalte).HeaderText
    23. Next
    25. ' Anzahl Datenzeilen
    26. AZ = .Rows.Count
    27. If .AllowUserToAddRows = True Then
    28. AZ = AZ - 1
    29. End If
    31. ' ' Datenzeilen übertragen
    32. For Zeile As Integer = 0 To AZ - 1
    33. For Spalte As Integer = 0 To .Columns.Count - 1
    34. EXBlatt.Cells(Zeile + 2, Spalte + 1) = .Rows(Zeile).Cells(Spalte).Value.ToString
    35. Next
    36. Next
    37. End With
    39. ' Excel jetzt anzeigen
    40. If FillHiddenMode Then Excel.Visible = True
    41. Catch ex As Exception
    42. MsgBox("Error!" & vbCrLf & ex.Message, MsgBoxStyle.Exclamation)
    43. End Try

    Zunächst würde ich diese Abfrage in Excel machen und testen, dann das Resultat von VB aus senden.
    Kannst ja mal probieren und berichten.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    In Excel selbst führst musst Du diese Formatierng durchführen. Da hast Du auch die entsprechende Hilfe.
    Gehe auf Einfügen -> Funktion und suche bei WENN weiter.

    Hab mal fix gegoogelt:
    Farben in Formeln
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „RodFromGermany“ ()

    Ich habe mich grade gefragt, ob es dir darum geht, in den Excel Zellen die Eigenschaft der
    bedingten Formatierung einzusetzen, oder
    ob du einfach nur abhängig von deinen Werten, die du einträgst, die Zellen färben willst.

    Für Punkt 1 würde ich ein Excel Makro aufnehemen während ich die bedingte Formatierung
    auf die Zellen setze.

    Für Punkt 2 würde ich in deinem bereits vorhandenen Programm die Werte überprüfen
    und dann mit Font.Color oder ähnliches die Zellentexte färben.

    ob du einfach nur abhängig von deinen Werten, die du einträgst, die Zellen färben willst.
    Genau das will ich.

    Für Punkt 2 würde ich in deinem bereits vorhandenen Programm die Werte überprüfen
    und dann mit Font.Color oder ähnliches die Zellentexte färben.
    Kannst du mir sagen wie ich so was machen kann? Und wie ist das dann beim Export? wird die Formatierung übernommen?

    Probier doch zunächst mal, eine Formel zu übertragen:
    =MAX(A1:A2)
    oder so
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende