Hallo
ch habe ein Problem und zwar möchte ich die Prozedur (von malschauen) siehe untenauf mehrere verschiedene Tabelen anwenden. In den Tabellen sind die Bereiche unterschiedlich.
Meine Idee ist ich bennene die Unterschiedkichen Bereiche in den veschiedenen Excel Tabellen mit dem gleichen Namen.
Meine Frage lautet wie kann ich das einfärben der Zellen mit derProzedur auf unterschiedliche Bereiche (d.H. mal mehr oder mal weniger Zeilen) anwenden?
Dim r As Range
For Each r In Range("a2:af2") ' erste Zeile der Tabelle
'("b1").CurrentRegion
If IsDate(r.Value) Then
Select Case Weekday(r.Value)
Case 1
Range(Cells(2, r.Column), Cells(17, r.Column)).Interior.Color = vbBlue
Range(Cells(2, r.Column), Cells(17, r.Column)).Font.Color = vbWhite
Case 7
Range(Cells(2, r.Column), Cells(17, r.Column)).Interior.Color = vbBlue
Range(Cells(2, r.Column), Cells(17, r.Column)).Font.Color = vbWhite
Case Else
End Select
End If
Next r
bye
malSchauen
ch habe ein neues Problem und zwar möchte ich die Prozedur auf mehrere verschiedene Tabelen anwenden. In den Tabellen sind die Bereiche unterschiedlich.
Meine Idee ist ich bennene die Unterschiedkichen Bereiche in den veschiedenen Excel Tabellen mit dem gleichen Namen.
Meine Frage lautet wie kann ich das einfärben der Zellen mit derProzedur auf unterschiedliche Bereiche (d.H. mal mehr oder mal weniger Zeilen) anwenden?