Frage stellen

vba: zelle oberhalb der aktiven zelle suchen

1.7k Aufrufe
Gefragt in Tabellenkalkulation von ekg Mitglied (303 Punkte)
Hi,

Ich habe folgendes Problem: ich habe in Excel eine Tabelle in der in der obersten Zeile das fortlaufende Datun des aktuellen Monats steht.

Die Wochenendtage habe ich mit der Prozedur blau gefärbt.

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
r.Interior.Color = vbBlue
r.Font.Color = vbWhite
Case 7
r.Interior.Color = vbBlue
r.Font.Color = vbWhite
Case Else
End Select
End If
Next r

Range("a2:AF17").Select ' Rest der Tabelle

Meine Frage lautet:

Wie kann ich die Zellen die direkt unter den blau eingefärbten Zellen stehen, und die innerhalb des Bereiches B2:AF17 befinden, ebenfalls blau einfärben.

Gruß Erwin

3 Antworten

0 Punkte
Beantwortet von
Hi,

Hilft Dir eine Abwandlung Deiner Prozedur?
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
0 Punkte
Beantwortet von ekg Mitglied (303 Punkte)
Hallo malSchauen

Danke für deine schnelle Reaktion.

Geniale Lösung ,funktioniert einwandfrei genau wie ich es wollte.

thanks Erwin
0 Punkte
Beantwortet von ekg Mitglied (303 Punkte)
Hallo
die Antwort von malschauen war sehr gut. Ich 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?
...