Hintergrundfarbe aus geschl. Datei auslesen
08.05.2016 12:21:27
Jens
Ich müsste aus einer geschlossenen Datei die Hintergrundfarbe einer Zelle auslesen. Im aktiven Worksheet klappt das gut. Nur den Befehl für die geschlossenen Datei bekomme ich nicht ganz zusammen.
Die bisherige Abfrage sieht so aus und funktioniert in meinem Code:
Sub Abfrage()
Dim Farbe As Long
Dim Rot As Long
Dim Gruen As Long
Dim Blau As Long
For zeile = 14 To 44
For spalte = 3 To 7
Farbe = ActiveSheet.Cells(zeile, spalte).Interior.Color
On Error Resume Next
Rot = Farbe Mod 256
Farbe = (Farbe - Rot) / 256
Gruen = Farbe Mod 256
Farbe = (Farbe - Gruen) / 256
Blau = Farbe Mod 256
On Error GoTo 0
If Rot = 255 And Gruen = 255 And Blau = 255 Then
End If
Next spalte
Next zeile
End Sub
Ich habe das folgendermassen probiert:
For Zeile = 14 To 44
Zellbezug = Cells(Zeile, 1).Interior.Color.Address(ReferenceStyle:=xlR1C1)
Adresse = "'" & Pfad & "[" & Datei & "]" & Register & "'!" & Zellbezug
Farbe = ExecuteExcel4Macro(Adresse)
On Error Resume Next
Rot = Farbe Mod 256
Farbe = (Farbe - Rot) / 256
Gruen = Farbe Mod 256
Farbe = (Farbe - Gruen) / 256
Blau = Farbe Mod 256
On Error GoTo 0
If Rot = 255 And Gruen = 255 And Blau = 255 Then Feiertag = 0 Else Feiertag = 1
Kann mir da jemand helfen ?
Das hier ist wohl falsch: Zellbezug = Cells(Zeile, 1).Interior.Color.Address(ReferenceStyle:=xlR1C1)
Aber wie geht's das richtg ?
Vielen Dank !