Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 11:45:34
Feld im SAP auslesen
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
836to840
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
836to840
836to840
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen(-nummern) identifizieren, die eingefärbt sd

Zeilen(-nummern) identifizieren, die eingefärbt sd
18.01.2007 21:17:26
Peter
Guten Abend
Ich befasse mich mit folgender Problemstellung:
Ich habe umfangreiche Tabellen mit bis zu 3000 gefüllten Zeilen. In Spalte B sind verschiedene Zeilen jeweils gelb eingefärbt (Interior.ColorIndex = 6)
Nun möchte ich mittels Makro feststellen, welche Zeilen gelb markiert sind. Ich stelle mit vor, dass das Ergebnis (die einzelnen Zeilennummern) in ein Workbook namens "gelb" ab Zelle A1 abwärts, eingetragen wird.
Bei meiner Suche bin ich auf keine Lösungsansätze gestossen. Kann mir jemand weiterhelfen?
Bin darauf gespannt.
Danke, Peter

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen(-nummern) identifizieren, die eingefärbt sd
18.01.2007 21:33:17
Josef
Hallo Peter,
probier mal.
Sub zaehle_gelbe()
    Dim rng As Range
    Dim vTmp() As Variant
    Dim lngLast As Long
    Dim intIndex As Integer
    
    With Sheets("Tabelle1") 'Tabellenname anpassen!
        
        lngLast = .Cells(Rows.Count, 2).End(xlUp).Row
        
        For Each rng In .Range("B1:B" & lngLast)
            If rng.Interior.ColorIndex = 6 Then
                Redim Preserve vTmp(intIndex)
                vTmp(intIndex) = rng.Row
                intIndex = intIndex + 1
            End If
        Next
        
    End With
    
    If intIndex > 0 Then
        Sheets("gelb").Range("A1:A" & UBound(vTmp) + 1) = Application.Transpose(vTmp)
    End If
    
End Sub

Gruß Sepp
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige