Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1196to1200
1196to1200
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten färbig lt.Jahreszahl

Forumthread: Spalten färbig lt.Jahreszahl

Spalten färbig lt.Jahreszahl
robert
Hi,
hier eine Beispieldatei
https://www.herber.de/bbs/user/73185.xls
danke für hilfeleistung ;-)
gruß
robert
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Spalten färbig lt.Jahreszahl
22.01.2011 11:57:01
Reinhard
Hallo Robert,
wozu die Mappem hättste doch das Makro gezeigt. 
Sub Farbe()
Dim Zei As Long, arrF
arrF = Array(3, 10, 20, 30, 40, 50)
On Error Resume Next
For Zei = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(Zei, 3).Resize(1, 3).Interior.ColorIndex = arrF(Year(Cells(Zei, 3)) - 2006)
Cells(Zei, 6).Resize(1, 3).Interior.ColorIndex = arrF(Year(Cells(Zei, 6)) - 2006)
Next Zei
End Sub

Gruß
Reinhard
Anzeige
So einfach und doch genial...
22.01.2011 12:06:45
robert
Hallo,
dachte, die CASE beschreibung genügt ;-)
aber deine lösung ist so einfach und genial- *staun*
naja, da sieht man erst, was noch zu lernen ist.........
Danke und Gruß
Robert
AW: So einfach und doch genial...
22.01.2011 12:42:52
Reinhard
Hallo Robert,
nimm lieber diesen Code: 
Sub Farbe()
Dim Zei As Long, arrF, Letzte As Long
arrF = Array(3, 10, 20, 30, 40, 50)
Letzte = Cells(Rows.Count, 1).End(xlUp).Row
On Error Resume Next
Range(Cells(2, 3), Cells(Letzte, 8)).Interior.ColorIndex = xlNone
For Zei = 2 To Letzte
Cells(Zei, 3).Resize(1, 3).Interior.ColorIndex = arrF(Year(Cells(Zei, 3)) - 2006)
Cells(Zei, 6).Resize(1, 3).Interior.ColorIndex = arrF(Year(Cells(Zei, 6)) - 2006)
Next Zei
End Sub

Gruß
Reinhard
Anzeige
Danke - owT
22.01.2011 13:05:56
robert
AW: Spalten färbig lt.Jahreszahl
22.01.2011 12:02:43
Josef

Hallo Robert,
zu faul um die Aufgabe hier zu beschreiben?

Sub faerben()
  Dim rng As Range, lngEnd As Long
  
  With ActiveSheet
    lngEnd = .Cells(.Rows.Count, 1).End(xlUp).Row
    
    For Each rng In Union(.Range(.Cells(2, 3), .Cells(lngEnd, 3)), _
        .Range(.Cells(2, 6), .Cells(lngEnd, 6))).Cells
      
      If IsDate(rng) Then
        rng.Resize(1, 3).Interior.ColorIndex = Year(rng) - 2000
      Else
        rng.Resize(1, 3).Interior.ColorIndex = xlNone
      End If
    Next
  End With
  
End Sub

Gruß Sepp

Anzeige
@Sepp, nicht zu faul, aber...
22.01.2011 12:12:16
robert
Hallo,
meine beobachtung im forum hat mir gezeigt, dass meist
die antwort kommt:
...kannst du eine beispieldatei hochladen?..
deshalb meine vorgehensweise......sorry ;-)
PS: deine lösung ist ebenfalls super !
Danke und Gruß
robert
AW: @Sepp, nicht zu faul, aber...
22.01.2011 13:02:28
Josef

Hallo Robert,
das eine Beispieltabelle oft hilfreich ist ist schon klar, aber in Text zumindest versucht werden, das Problem zu beschreiben, warum soll ich mir eine Datei runterladen, wenn ich nicht weiß worum es eigentlich geht.

Gruß Sepp

Anzeige
OK,werd es mir merken :-) owT
22.01.2011 13:08:58
robert

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige