ich möchte gern mit einem Radio Button mehrere Spalten z.B. 11-25, 35, 36, 40, 49 usw. aus- und anschl. wieder einblenden.
Kann mir jemand hierbei helfen?
Danke!
Gruß Tom
Private Sub OptionButton1_Click() ''alle Ausblenden
'True = Ausblenden, zusammenhengende Spalten kann mann auch
'so schreiben "E:F,H:I,K:K"
Call Spalte(True, "E:E,F:F,H:H,I:I,K:K,L:L")
End Sub
Private Sub OptionButton2_Click() 'alle Einblenden
'False = Einblenden, zusammenhengende Spalten kann mann auch
'so schreiben "E:F,H:I,K:K"
Call Spalte(False, "E:E,F:F,H:H,I:I,K:K,L:L")
End Sub
Sub Spalte(Zustand As Boolean, Bereich As String)
Range(Bereich).EntireColumn.Hidden = Zustand
End Sub
Gruß Tom
Range(Bereich).EntrieRow.Hidden = true
verwenden, ansonsten bleibt alles gleich.
damit du trotzdem nur ein Makro brauchst, kannst du das ja ganz einfach abprüfen:
- wenn das erste Zeichen von Bereich ein Buchstabe ist, gehts um Spalten, wenn das erste Zeichen eine Zahl ist, gehts um Reihen.
als Code sieht das ganze dann so aus (geschrieben für Checkboxen)
Private Sub CheckBox1_Click() '--- Beispiel Spalten ausblenden
Call EinAusblenden(CheckBox1.Value, "A:A, C:C")
End Sub
Private Sub CheckBox2_Click()'--- Beispiel Reihen ausblenden
Call EinAusblenden(CheckBox2.Value, "1:1, 3:3")
End Sub
Sub EinAusblenden(aus As Boolean, bereich As String)
Select Case IsNumeric(Left(bereich, 1))
Case False
Range(bereich).EntireColumn.Hidden = aus
Case True
Range(bereich).EntireRow.Hidden = aus
End Select
End Sub
Gruß, Daniel
Private Sub CheckBox1_Click()
Range("7:9,16:19,22:22").EntireRow.Hidden = CheckBox1
End Sub
mfg Kurt