Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1196to1200
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten färbig lt.Jahreszahl

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
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
Anzeige
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
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige