Thema Datum  Von Nutzer Rating
Antwort
11.07.2017 12:41:34 Franzi
NotSolved
11.07.2017 13:04:22 fedjo
NotSolved
11.07.2017 13:20:58 Gast462
NotSolved
11.07.2017 13:31:17 Gast83982
NotSolved
Rot Filter
 11.07.2017 13:36:19 Gast95222
NotSolved
11.07.2017 19:08:41 Gast70117
NotSolved

Ansicht des Beitrags:
Von:
Gast95222		 Datum:
11.07.2017 13:36:19		 Views:
614		 Rating:
     
Antwort:
  Ja
Thema:
Filter

Hier hab ich mal das Makro:

Option Explicit

Private Sub CheckBox1_Click()

Dim intZeile As Integer
Dim rngZelle As Range

If CheckBox1 = True Then
  For Each rngZelle In Worksheets("Tabelle1").Range("A3:F40")
    If rngZelle = "G7" Then Rows(rngZelle.Row).EntireRow.Hidden = False
  Next rngZelle
Else
  For Each rngZelle In Worksheets("Tabelle1").Range("A3:F40")
    If rngZelle = "G7" Then Rows(rngZelle.Row).EntireRow.Hidden = True
  Next rngZelle
End If

End Sub

Private Sub CheckBox2_Click()

Dim intZeile As Integer
Dim rngZelle As Range

If CheckBox2 = True Then
  For Each rngZelle In Worksheets("Tabelle1").Range("A3:F40")
    If rngZelle = "G2" Then Rows(rngZelle.Row).EntireRow.Hidden = False
  Next rngZelle
Else
  For Each rngZelle In Worksheets("Tabelle1").Range("A3:F40")
    If rngZelle = "G2" Then Rows(rngZelle.Row).EntireRow.Hidden = True
  Next rngZelle
End If

End Sub

Das Problem ist:

Wenn ich das Kontrollkästchen "G7" aktiviere und gleichzeitig das Kontrollkästchen "G2" deaktiviere,

dann blendet es mir natürlich alle Zeilen mit dem Spalteninhalt "G2" (in Spalte B) aus.

Es kommt allerdings vor, dass in manchen Zeilen mehrere Zelleninhalte vorkommen, z. B.  A13 = G7 und B13 = G2. 

Jetzt bräuchte ich ein Programm, was das abgleicht und dementsprechend die Zeile trotzdem eingeblendet lässt (da das Kontrollkästchen "G7" aktiviert ist)

 

Kann mir hierbei wer helfen?

 

Grüße

Franzi

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
11.07.2017 12:41:34 Franzi
NotSolved
11.07.2017 13:04:22 fedjo
NotSolved
11.07.2017 13:20:58 Gast462
NotSolved
11.07.2017 13:31:17 Gast83982
NotSolved
Rot Filter
 11.07.2017 13:36:19 Gast95222
NotSolved
11.07.2017 19:08:41 Gast70117
NotSolved