Hallo zusammen,
ich stehe vermutlich vor einem simplen Problem, wo ich aber aktuell keinen Schritt vorwärts komme.
Ich möchte eine bestimmte Formatierung in ein Blatt einfügen.
Das Blatt weise ich wie folgt zu:
Ich habe mir aus dem Makro Recorder folgendes versucht umzuändern:
Wie in den Zeilen auch erwähnt, zeigt er mit an, dass spätes Binden nicht zulässig ist.
Leider stehe ich jetzt auf dem Schlauch und weiß nicht wie ich es abändern kann, sodass es funktioniert.
Mein erster Ansatz war, die geaddete Formatierung einer Variable zuzuordnen und diese dann mit der Variable zu ändern. Aber das die neue Formatierung vom Typ Object ist, komme ich da auch nicht weiter.
Hat jemand einen neuen Lösungsansatz?
Vielen Dank und Grüße
Jan
ich stehe vermutlich vor einem simplen Problem, wo ich aber aktuell keinen Schritt vorwärts komme.
Ich möchte eine bestimmte Formatierung in ein Blatt einfügen.
Das Blatt weise ich wie folgt zu:
VB.NET-Quellcode
- Dim oXLApp As Microsoft.Office.Interop.Excel.Application = New Microsoft.Office.Interop.Excel.Application
- Dim oWbk As Microsoft.Office.Interop.Excel.Workbook = oXLApp.Workbooks.Add
- Dim oS As Microsoft.Office.Interop.Excel.Sheets = oWbk.Worksheets
- Dim oWks = DirectCast(oS(1), Microsoft.Office.Interop.Excel.Worksheet)
Ich habe mir aus dem Makro Recorder folgendes versucht umzuändern:
VB.NET-Quellcode
- With oWks.Range("I2:I" & oWks.Range("A2000").End(Microsoft.Office.Interop.Excel.XlDirection.xlUp).Row)
- .FormatConditions.Add(Type:=Microsoft.Office.Interop.Excel.XlFormatConditionType.xlCellValue, Operator:=Microsoft.Office.Interop.Excel.XlFormatConditionOperator.xlEqual, Formula1:="=""LLE""")
- .FormatConditions(.FormatConditions.Count).SetFirstPriority 'Option Strict on lässt spätes Binden nicht zu.
- .FormatConditions(1).Interior.PatternColorIndex = Microsoft.Office.Interop.Excel.Constants.xlAutomatic 'Option Strict on lässt spätes Binden nicht zu.
- .FormatConditions(1).Interior.ThemeColor = Microsoft.Office.Interop.Excel.XlThemeColor.xlThemeColorAccent3 'Option Strict on lässt spätes Binden nicht zu.
- .FormatConditions(1).Interior.TintAndShade = 0.399945066682943 'Option Strict on lässt spätes Binden nicht zu.
- End With
Wie in den Zeilen auch erwähnt, zeigt er mit an, dass spätes Binden nicht zulässig ist.
Leider stehe ich jetzt auf dem Schlauch und weiß nicht wie ich es abändern kann, sodass es funktioniert.
Mein erster Ansatz war, die geaddete Formatierung einer Variable zuzuordnen und diese dann mit der Variable zu ändern. Aber das die neue Formatierung vom Typ Object ist, komme ich da auch nicht weiter.
VB.NET-Quellcode
- Dim fcCondition As Microsoft.Office.Interop.Excel.FormatConditions
- fcCondition = DirectCast(oWks.Range("I2:I" & oWks.Range("A2000").End(Microsoft.Office.Interop.Excel.XlDirection.xlUp).Row).FormatConditions.Add(Type:=Microsoft.Office.Interop.Excel.XlFormatConditionType.xlCellValue, Operator:=Microsoft.Office.Interop.Excel.XlFormatConditionOperator.xlEqual, Formula1:="=""LLE"""), Microsoft.Office.Interop.Excel.FormatConditions)
Hat jemand einen neuen Lösungsansatz?
Vielen Dank und Grüße
Jan