Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
740to744
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
740to744
740to744
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Zeilen ausblenden wenn farbig mit VBA
13.03.2006 16:38:00
MathiasW
Hallo Excel Freunde
hab da noch ein 2tes Problem,
ich in meiner Excel Datei sind Einträge von Zeile
3 bis 3000.
Jetzt habe ich einen ToggleButton1 eingefügt und möchte erreichen,
dass beim betätigen alle Zeilen die nicht mit der standard Farbe
(weiss) hinterlegt sind ausgeblendet werden und beim erneuten betätigen
alle Zeilen wieder sichtbar werden.
Könnt ihr mir da weiterhelfen?
vielen Dank im vorraus
Mathias
PS: Es würde auch schon reichen wenn der Bereich A3:A3000
geprüft wird ob eine Zelle einen anderen Farbindex hat.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen ausblenden wenn farbig mit VBA
13.03.2006 18:36:18
Selma
Hallo Matthias
hab das hier mal ausprobiert. Hoffe, es trifft deine Vorstellung.
Die Variable "pressed" ist bei mir standardmäßig false, wenn bei dir nötig kannst du mit Workbook_open auch manuell pressed auf False setzen...
Gruß,
Selma
---------
Option Explicit
Public pressed As Boolean
Sub hide()
Dim i As Integer
For i = 3 To 3000
If (Sheet1.Cells(i, 1).Interior.ColorIndex > 0) Then
Sheet1.Cells(i, 1).EntireRow.Hidden = True
End If
Next i
End Sub
Sub show()
Sheet1.Range("A3:A3000").EntireRow.Hidden = False
End Sub

Private Sub ToggleButton_Click()
If pressed = False Then
Call hide
pressed = True
Else
Call show
pressed = False
End If
End Sub

Anzeige
AW: Zeilen ausblenden wenn farbig mit VBA
13.03.2006 18:39:45
Uli
Hallo Mathias,
oder vielleich so:

Private Sub ToggleButton1_Click()
Application.ScreenUpdating = False
If ToggleButton1.Value = True Then
For i = 3 To 3000
If Cells(i, 1).Interior.ColorIndex = xlNone = False Then
Rows(i).Select
Selection.EntireRow.Hidden = True
End If
Next i
Else
Range("A1").Resize(3000, 1).Select
Selection.EntireRow.Hidden = False
End If
End Sub

viele Grüße
Uli
AW: Zeilen ausblenden wenn farbig mit VBA
13.03.2006 18:41:59
ChrisL
Hallo
Kleine Anmerkung der Vollständigkeit wegen. Mittels bedingter Formatierung erzeugte Farben haben keinen Index der sich über VBA abfragen liesse. In solchen Fällen ist die eigentlich Bedingung abzufragen.
Gruss
Chris
Anzeige

327 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige