Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon bestman vom 04.01.2020, 10:38 Options
Excel Makro Zellen nach Hintergrundfarbe aus-/einblenden
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
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 vom 04.01.2020, 11:09 Options
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 vom 04.01.2020, 11:15 Options
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 vom 04.01.2020, 11:26 Options
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 vom 04.01.2020, 11:32 Options
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?
Ähnliche Themen
Excel Print Makro markierte Zellen
Ric 30.01.2007 - 204 Hits - 14 Antworten
Excel Print Makro Problem bei Belegdrucker
Ric 31.01.2007 - 88 Hits - 2 Antworten
Steuerelement + makro
sven1234 06.05.2007 - 105 Hits - 1 Antwort
Farbwert auslesen!!!
Platin7 29.02.2008 - 55 Hits - 6 Antworten
Makro-bestimmt Zellen löschen
musiker021 06.05.2008 - 87 Hits - 3 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
