Microsoft Excel

Herbers Excel/VBA-Archiv

farbige felder finden per vba | Herbers Excel-Forum


Betrifft: farbige felder finden per vba von: jhaustein
Geschrieben am: 21.01.2010 09:30:03

hallo gemeinschaft

habe in einer spalte felder zum teil eingefaerbt - wie kann ich mir eine liste erstellen, in der ich nur die farbigen felder habe

lg

  

Betrifft: AW: farbige felder finden per vba von: Hajo_Zi
Geschrieben am: 21.01.2010 09:33:12

Hallo,

per Hand oder bedingter Formatierung?
Was möchtest Du haben?

GrußformelHomepage


  

Betrifft: AW: farbige felder finden per vba von: jhaustein
Geschrieben am: 21.01.2010 09:36:49

HIHI

nicht per hand - bedingter formatierung wenn das geht und du mir erklären würdest wie das funzt


  

Betrifft: AW: farbige felder finden per vba von: Hajo_Zi
Geschrieben am: 21.01.2010 09:39:46

Hallo,

bei Deinem Level würde ich das sein lassen. Die Farbe der Bedingte Formatierung auslesen ist sehr kompliziert.
http://hajo-excel.de/chCounter3/getfile.php?id=153
Oder Du machst es über die Bedingungen.

Gruß Hajo


  

Betrifft: AW: farbige felder finden per vba von: jhaustein
Geschrieben am: 21.01.2010 09:43:21

bischen was kann ich ja mit vba

wie waere den der vba code für interior

wenn ich erstmal nur die felder zaehlen möchte, die den colorindex = 3 haben

for i=1 to 10
farbe = worksheets(Tabelle1").cells(i,1)

next i


  

Betrifft: AW: farbige felder finden per vba von: Hajo_Zi
Geschrieben am: 21.01.2010 10:13:47

Hallo,

meine Datei hast Du Dir schon angesehen?

Gruß Hajo


  

Betrifft: Feht nur noch .Color{Index} nach .Interior ! orT von: Luc:-?
Geschrieben am: 21.01.2010 11:38:28

Gruß Luc :-?


  

Betrifft: AW: farbige felder finden per vba von: welga
Geschrieben am: 21.01.2010 09:52:23

Hallo,

versuch es mal so:

Sub liste()

Dim i As Long
Dim ii As Long
Dim a As Boolean
a = False
    Sheets(1).Select
    Sheets(1).Copy Before:=Sheets(2)
    Sheets(2).Select
    Sheets(2).Name = "sortierte Liste"
    With Sheets(2)
    For i = .UsedRange.Rows.Count To 1 Step -1
    If a = True Then
    Rows(i + 1).Select
    Selection.Delete Shift:=xlUp
    End If
    a = True
    For ii = 1 To .Cells(i, Columns.Count).End(xlToLeft).Column
    .Cells(i, ii).Select
    If Selection.Interior.ColorIndex <> xlNone Then a = False
    Next ii
    Next i
    End With
End Sub

Gruß
welga


  

Betrifft: AW: farbige felder finden per vba von: jhaustein
Geschrieben am: 21.01.2010 10:00:25

klasse - genau das meinte ich - super - vielen dank


  

Betrifft: AW: farbige felder finden per vba von: welga
Geschrieben am: 21.01.2010 10:04:11

Damit auch die erste Zeile "gefiltert" wird musst du noch was ändern:

Sub liste()

Dim i As Long
Dim ii As Long
Dim a As Boolean
a = False
    Sheets(1).Select
    Sheets(1).Copy Before:=Sheets(2)
    Sheets(2).Select
    Sheets(2).Name = "sortierte Liste"
    With Sheets(2)
    For i = .UsedRange.Rows.Count To 0 Step -1
    If a = True Then
    Rows(i + 1).Select
    Selection.Delete Shift:=xlUp
    End If
    a = True
if i>0 then
    For ii = 1 To .Cells(i, Columns.Count).End(xlToLeft).Column
    .Cells(i, ii).Select
    If Selection.Interior.ColorIndex <> xlNone Then a = False
    Next ii
end if
    Next i
    End With
End Sub



Beiträge aus den Excel-Beispielen zum Thema "farbige felder finden per vba"