Welchen Code muß in dem Button geben?
Vieden Dank!
Gruß
Werner
Welchen Code muß in dem Button geben?
Vieden Dank!
Gruß
Werner
Hier eine Lösung, welche sämtliche Zeilen, die nicht Rot sind ausblendet.
'alle Zeilen einblenden
Cells.Select
Selection.EntireRow.Hidden = False
'letzte beschriebene Zeile suchen
i = Range("A65536").End(xlUp).Row
'Zeile um Zeile durchsuchen und ausblenden, falls nicht Rot
For a = 1 To i
If Cells(a, 1).Interior.ColorIndex <> 3 Then
Rows(a & ":" & a).Select
Selection.EntireRow.Hidden = True
End If
Next a
Range("A1").Select
So wie das Makro gemacht ist, eruiert es den Tabellenbereich anhand der letzten beschriebenen Zeile in Spalte A. Falls du also keinen Zelleninhalt, sondern nur die Hintergrundfarbe hast, funktioniert es nicht. In diesem Fall musst du manuell "For a = 1 To i" abändern. z.B. "For a = 1 To 100" heisst, Zeile 1 bis 100. Wenn du in Zeile 1 noch einen Titel hast, dann "For a = 2 To i".
Gruss
Chris
und hier noch ne Lösung, wie die Zeilen aus Tabelle 1, deren Zelle in Spalte A rot ist, in Tabelle2 lückenlos, beginnend bei A1 kopiert werden.
Im Beispiel wird der Bereich A1 bis A100 der Tabelle 1 auf rote Zellen geprüft. Diesen Bereich kannst du natürlich anpassen.
Übertragen in Tabelle 2 werden im übrigen nur die Werte, nicht die Formate.
Gruß Boris