Supportnet / Forum / Tabellenkalkulation
Excel Makro Zellen nach Hintergrundfarbe aus-/einblenden
Frage
Hallo, hab folgendes Problem... Hab ne Exceltabelle, in der die einzelnen Mitarbeiter unserer Abteilung aufgelistet sind...
Also in Spalte A steht einfach Meier, Müller, usw.
Bei den Mitarbeitern wird unterschieden, ob diese im Innen- (weiße Hintergrundfarbe) oder Außendienst (grüne Hintergrundfarbe) sind. Nun soll es durch Klick auf einen Button möglich sein, die Außerndienstler (grüner Hintergrund) auszublenden bzw. einzublenden. Bin schon so weit,dass ich sie ausgeblendet bekomm...
Die Frage ist nun, wie die dann mit dem gleichen Button wieder eingeblendet werden können...
Bis jetzt hab ich:
Sub ADausblenden()
Dim Zelle As Range
For Each Zelle In Range("A5:A40")
If Zelle.Interior.ColorIndex = 35 Then
Zelle.Select
Selection.EntireRow.Hidden = True
End If
Next Zelle
End Sub
Antwort 1 von Hajo_Zi
Hallo Nick,
auf select usw. kann in VBA zu 99,9% verzichtet werden.
Option Explicit
Sub ADausblenden()
Dim Zelle As Range
For Each Zelle In Range("A5:A40")
If Zelle.Interior.ColorIndex = 35 Then
Zelle.EntireRow.Hidden = Not Zelle.EntireRow.Hidden
End If
Next Zelle
End Sub
Gruß Hajo
auf select usw. kann in VBA zu 99,9% verzichtet werden.
Option Explicit
Sub ADausblenden()
Dim Zelle As Range
For Each Zelle In Range("A5:A40")
If Zelle.Interior.ColorIndex = 35 Then
Zelle.EntireRow.Hidden = Not Zelle.EntireRow.Hidden
End If
Next Zelle
End Sub
Gruß Hajo
Antwort 2 von bestman
super... des haut schon hin... jetz is nur noch die frage,ob ich den button abwechselnd mit text belegen kann...
Das also erst dort steht: AD ausblenden
und wenn alle ausgeblendet sind auf dem Button steht: AD einblenden
Das also erst dort steht: AD ausblenden
und wenn alle ausgeblendet sind auf dem Button steht: AD einblenden
Antwort 3 von Hajo_Zi
Hallo Nick,
Ja das ist möglich.
Was für ein Button? Formular, Steuerelemente Toolbox.
Private Sub CommandButton1_Click()
If CommandButton1.Caption = "Start" Then
CommandButton1.Caption = "Stop"
'erstes Makro
Else
CommandButton1.Caption = "Start"
' zweites Makro
End If
End Sub
Gruß Hajo
Ja das ist möglich.
Was für ein Button? Formular, Steuerelemente Toolbox.
Private Sub CommandButton1_Click()
If CommandButton1.Caption = "Start" Then
CommandButton1.Caption = "Stop"
'erstes Makro
Else
CommandButton1.Caption = "Start"
' zweites Makro
End If
End Sub
Gruß Hajo
Antwort 4 von bestman
hab nen button über die toolbox eingefügt... was schreib ich dann zu oben genanntem fall für makro1 und 2...
makro 1 ist ja wahrscheinlich das ausblenden-makro
und für die 2?
makro 1 ist ja wahrscheinlich das ausblenden-makro
und für die 2?
Antwort 5 von Hajo_Zi
Hallo Nick,
es ist nur ein Beispiel Makro1=Makro2= ADausblenden
Gruß Hajo
es ist nur ein Beispiel Makro1=Makro2= ADausblenden
Gruß Hajo