Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon EKG vom 18.11.2021, 21:41 Options

vba: zelle oberhalb der aktiven zelle suchen

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

Antwort schreiben

Antwort 1 von malSchauen vom 18.11.2021, 22:17 OptionsLösung

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

Antwort 2 von EKG vom 19.11.2021, 15:40 Options

Hallo malSchauen

Danke für deine schnelle Reaktion.

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

thanks Erwin

Antwort 3 von EKG vom 21.11.2021, 20:23 Options

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?

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken