Farbe der bedingten Formatierung

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Bernd,
puhhh, das ist harte kost :)))), ich dachte eingentlich an was kleines, simples!!!
Also hier mein kleins Makro (mit dem ich kopieren möchte und so):
Public


Sub Abgleich()
Dim WkSh_1     As Worksheet
Dim WkSh_2     As Worksheet
Dim lLetzte_1  As Long
Dim lLetzte_2  As Long
Dim lZeile_1   As Long
Dim lZeile_2   As Long
Set WkSh_1 = Worksheets("ABC_N Status")
Set WkSh_2 = Worksheets("Tabelle1")
lLetzte_1 = WkSh_1.Range("A65536").End(xlUp).Row
lLetzte_2 = WkSh_2.Range("A65536").End(xlUp).Row
For lZeile_1 = 4 To lLetzte_1
If WkSh_1.Range("J" & lZeile_1).Value <> "" And
WkSh_1.Cell(lZeile_1, "J").Interior.ColorIndex > 0 Then
Rows(lZeile_1).Copy
WkSh_2.Rows(lLetzte_2).PasteSpecial Paste:=xlPasteAll
lLetzte_2 = lLetzte_2 + 1
End If
Next lZeile_1
Und das mit dem Colorindex funktioniert halt nicht, weil die Felder mit Hilfe der bedingten Formatierung einfärbt werden. Wie kann ich die anderen Makros hier einbaue?
Vielen Dank für die Antworten
mfg
artur
End Sub

Hallo Artur,
wenn Du das Teil von mir nimmst mußt Du 3 Dinge tun:
1. Du braucht die 3 Funktionen GetCFColor, GetCFCondition und GetCFVal. Siehe obigen Link.
2. vor der For-Schleife ein "WkSh_1.Activate", da ich zum bestimmen der Farbe die entsprechende Zelle selektiere mußt Du in dieser Tabelle sein :-(
3. Anstatt WkSh_1.Cell(lZeile_1, "J").Interior.ColorIndex (das muss IMHO cells sein !) nimm sowas:
GetCFColor( WkSh_1.Cells(lZeile_1, "J") )
bzw. mit Spaltenindex der Spalte J = 10 s.u.
HTH, Bernd
--

Option Explicit

Public Sub Abgleich()
    Dim WkSh_1 As Worksheet
    Dim WkSh_2 As Worksheet
    Dim lLetzte_1 As Long
    Dim lLetzte_2 As Long
    Dim lZeile_1 As Long

    Set WkSh_1 = Worksheets("ABC_N Status")
    Set WkSh_2 = Worksheets("Tabelle1")

    lLetzte_1 = WkSh_1.Range("A65536").End(xlUp).Row
    lLetzte_2 = WkSh_2.Range("A65536").End(xlUp).Row

    WkSh_1.Activate

    For lZeile_1 = 4 To lLetzte_1
        If Cells(lZeile_1, 10).Value <> "" And GetCFColor(Cells(lZeile_1, 10)) > 0 Then
            lLetzte_2 = lLetzte_2 + 1
            Rows(lZeile_1).Copy WkSh_2.Rows(lLetzte_2)
        End If
    Next lZeile_1
End Sub

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Farbe der bedingten Formatierung

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread