Mehrere Checkboxen per Vba in einer Tabelle

[J21]

Hallo liebes Forum,

ich hab hier ein Code:

Private Sub CheckBox1_Click()
If CheckBox1 = True Then
    Rows("21:79").Select
    Selection.EntireRow.Hidden = True
    Range("B5").Select
    Else
    Rows("21:79").Select
    Selection.EntireRow.Hidden = False
    Range("B5").Select
    
    End If
End Sub

wie bekomme ich hin das in einer Tabelle mehrere Chechbox per diesen Code ausgewählt werden können. 

Wäre über eine Antwort sehr erfreut. :)

Mit freundlichen Grüßen

J21/Jan

[Kuwer]

Hallo Jan,

wie bekomme ich hin das in einer Tabelle mehrere Chechbox per diesen Code ausgewählt werden können. 

ich verstehe leider nicht, was Du möchtest.  

Gruß Uwe

[J21]

Also dieser Code:

Private Sub CheckBox1_Click()
If CheckBox1 = True Then
    Rows("21:79").Select
    Selection.EntireRow.Hidden = True
    Range("B5").Select
    Else
    Rows("21:79").Select
    Selection.EntireRow.Hidden = False
    Range("B5").Select
    
    End If
End Sub

steht schon in der Tabelle.

Ich will aber noch dazu diesen Code den ich davor dir geschickt habe auch noch in der Tabelle haben, also qausi das beide codes in einer tabelle ausgeführt werden. Hat bei mir nicht funktioniert.

Ich glaub weil man nicht in einer Datei 2 verschiedene Chechboxen ansprechen kann O.o?

[Kuwer]

Hallo Jan,

Ich glaub weil man nicht in einer Datei 2 verschiedene Chechboxen ansprechen kann O.o?

warum soll das nicht gehen?

Private Sub CheckBox1_Click()
 Rows("21:79").Hidden = CheckBox1
End Sub

Private Sub CheckBox2_Click()
 Rows("101:159").Hidden = CheckBox2
End Sub

Gruß Uwe

[RPP63]

Hallo Mods, bitte löschen!

Ich glaub weil man nicht in einer Datei 2 verschiedene Chechboxen ansprechen kann O.o?

Das geht relativ einfach:

Hallo Chechboxen, seid ihr alle da?

Sorry, aber der musste sein …

Gruß Ralf

[J21]

Private Sub CheckBox1_Click()
If CheckBox1 = True Then
    Rows("21:79").Select
    Selection.EntireRow.Hidden = True
    Range("B5").Select
    Else
    Rows("21:79").Select
    Selection.EntireRow.Hidden = False
    Range("B5").Select
    
    End If
    
        
If CheckBox19 = True Then
    Rows("5:20").Select
    Selection.EntireRow.Hidden = True
    Range("B5").Select
    Else
    Rows("88:100").Select
    Selection.EntireRow.Hidden = False
    Range("B5").Select
    End If
End Sub

Funktioniert nicht. .(

[J21]

Hallo Mods, bitte löschen!
Das geht relativ einfach:


Sorry, aber der musste sein …

Gruß Ralf

HAHAHAHAHA

[RPP63]

Und ernsthaft:
Uwe hat Dir eine Möglichkeit aufgezeigt.
Du möchtest etwas erreichen, was weit hinter Deinem Horizont liegt (kein Problem).
Du wirst nicht glücklich mit einer mundgerechten Variante, die Du nicht anpassen kannst!
Bitte!
Basics sind unabdingbar!
Der Rekorder ist manchmal eine Hilfe, hier eher nicht.

Two cents,

Ralf

[J21]

Ja ich weiß es ja selbst, aber das ist nur ein einzelner Auftrag deswegen..
Oke, ich bin doch so dumm wie es mir schon gedacht habe.  :16: :22:

Aber vielen Dank für eure Hilfe Leute.  :15:

Mit freundlichen Grüßen

J21/Jan :)

[Kuwer]

Hallo,

Private Sub CheckBox1_Click()
 Rows("21:79").Hidden = CheckBox1
 Rows("5:20").Hidden = CheckBox19
 Rows("88:100").Hidden = Not CheckBox19
End Sub

Gruß Uwe