Hallo zusammen,
ich habe folgendes Problem:
Ich muss Bewertungsbögen auswerten. Hierfür muss ich die textfelder einer Excel-Datei auslesen.
Solange diese durch einen Text (z.B. "x") markiert sind, ist dies kein Problem.
Jedoch gibt es Spezialisten, die die Textfelder farbig markieren.
Hierfür habe ich noch keine Lösung gefunden, wie ich das Auslesen kann.
Hier ein Auszug aus dem Code:
...
Sheets("Checkliste").Select
ActiveSheet.TextBoxes(box).Select
If Len(Selection.Text) > 0 OR * (HIER MÜSSTE DAS MIT DER FARBE HIN) Then
Sheets("Auswertung").Select
Cells(n, m).Select
Selection.Value = 1
Else
Sheets("Auswertung").Select
Cells(n, m).Select
Selection.Value = 0
End If
* falls das Textfeld farbig ist (also mit Füllung)
vielen Dank schon mal für eure Hilfe
gruß
stefan