Geschätzte Community
Ich sollte Daten Zusammenstellen mit einem Excel-Makro.
Die Schleifen-Funktionen funktionieren.
Eine Bedingung ist: Die Zelle in die Kopiert wird darf nicht schwarz sein.
Meine Abfrage lautet: MsgBox(Sheets(„Jan_Dez_Master“).Cells(i, 1).Font.Color)
Die MsgBox gibt immer ein leeres Resultat zurück.
Was mache ich Falsch?
Herzlichen Dank für Deinen Hinweis.
Severin aus Zürich
Grüezi Severin
Eine Bedingung ist: Die Zelle in die Kopiert wird darf nicht
schwarz sein.Meine Abfrage lautet: MsgBox(Sheets(„Jan_Dez_Master“).Cells(i,
1).Font.Color)Die MsgBox gibt immer ein leeres Resultat zurück.
Was mache ich Falsch?
Nimm mal ‚ColorIndex‘ anstelle von ‚Color‘.
Des weiteren prüfst Du so die Schriftfarbe, nicht aber die Farbe des Zellenhintergrundes.
Mit freundlichen Grüssen
Thomas Ramel
Perfekt, das funktioniert…
Herzlichen Dank für den Input