bitte helft mir weiter, ich möchte ein Makro schreiben, das auf Knopfdruck die Farbe der Registerkarte,dessen Blatt gerade aktiv ist nach rot einfärbt. da ich insgesamt 30 Blätter habe, möchte ich nicht auf jedem einzelnen blatt ein makro haben mit
Sheets("Blatt1").Select
ActiveWorkbook.Sheets(Blatt1).Tab.ColorIndex = 40
Es müsste eher so was wie
sheets("aktuellesblatt").select
ActiveWorkbook.Sheets(aktuelles blatt).Tab.ColorIndex = 40
Ich möchte also nicht die Registerkarte eines bestimmten blattes anwählen, sondern das Blatt, auf dem ich mich sowieso schon gerade befinde und dessen registerkarte einfärben.
Kann mir da vielleicht jemand weiterhelfen?
Vielen dank für eure hilfe