AW: neuer Code wegen Unübersichtlichkeit
19.04.2017 16:57:45
Frank
wegen Unübersichtlickeit im Threadbaum und damit ich das Projekt dank der tollen Hilfe von Sepp abschließen kann nochmals meine Frage:
Folgender Code:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
With Sh
If IsDate(.Name) Then
.Cells.Interior.ColorIndex = xlNone
If Target.Column
Nun habe ich ein Tabellenblatt,das April 2017 usw. heißen kann und bis zu 31 Tagesblättern die dann 01.April usw. heißen können. Im Monatsblatt hab ich nun aber Zelleneinfärbungen drin,die bestehen bleiben müssen,verständlicherweise durch obigen Code aber gelöscht werden.Wie muss der Code nun lauten,damit nur auf die Tabellenblätter zugreift,die das Format "dd mmmm",nicht aber "mmmm yyyy" haben?
Lg Frank