Code: Alles auswählen
If wks.Cells(a, 12).Interior.ColorIndex = far1 Then
Code: Alles auswählen
If wks.Cells(a, 12).Interior.ColorIndex = far1 Then
Code: Alles auswählen
Sub farbeAuslesen
Dim pm As Object
Set pm = CreateObject("PlanMaker.Application")
pm.Application.Visible = True
Dim row, col As Integer
Dim Hintergrundfarbe, Schriftfarbe As Long
row = 1
col = 1
Hintergrundfarbe = pm.activeSheet.Cells.Item(row, col).Font.BColor
Schriftfarbe = pm.activeSheet.Cells.Item(row, col).Font.Color
Set pm = Nothing
End Sub
Code: Alles auswählen
wks.Cells(118, 17).Font.ColorIndex=5
Code: Alles auswählen
wks.Cells(118, 17).Shading.ForegroundPatternColorIndex = smoColorIndexBlue