Ich habe lange gesucht, aber nichts gefunden.
Meine Frage: Kann man mit einem Toggle Button Zeilen ab A5 ein- und ausblenden, wenn diese leer sind ?
Denke da gehen nur ganz genau definierte Zeilen oder Spalten...........
chris
Sub chris()
Lr = cells(rows.count, "A").end(xlup).row
Range("a1", cells(lr, "A")).specialcells(xlcelltypeblanks).select
Selection.rows.hidden = true
End sub
Mfg
Columns(1). Rows.hidden = false
Ich dachte, du könntest das selbst zusammen setzen und nur der Anzatz mit 'specialcells' sei notwendig als Hinweis. Ein bisschen Spass beim Suchen/Ausprobieren wollte ich dir nicht nehmen
Private Sub ToggleButton1_Click()
Dim Wiederholungen As Long
Application.ScreenUpdating = False
For Wiederholungen = 1 To 20
If Cells(Wiederholungen, 1).Value = "nein" Then
Rows(Wiederholungen).Hidden = True
Else
Rows(Wiederholungen).Hidden = False
End If
Next
End Sub
Private Sub CheckBox1_Change()
Dim PW
If B Then B = False: Exit Sub
PW = Application.InputBox("Passwort eingeben", "Passwort")
If PW "xxx" Then
B = True
CheckBox1.Value = Not CheckBox1.Value
End If
End Sub
Private Sub ToggleButton1_Click()
Static blnAus As Boolean, rngAus As Range
If blnAus Then
Range("a5:a20").EntireRow.Hidden = False
Else
For Each Rng In Range("a5:a20")
If Rng.Value "" Then
If Not rngAus Is Nothing Then
Set rngAus = Union(rngAus, Rng)
Else
Set rngAus = Rng
End If
End If
Next
If Not rngAus Is Nothing Then rngAus.EntireRow.Hidden = True
End If
blnAus = Not blnAus
End Sub
Private Sub CheckBox1_Change()
Dim PW
If B Then B = False: Exit Sub
PW = Application.InputBox("Passwort eingeben", "Passwort")
If PW "xxx" Then
B = True
CheckBox1.Value = Not CheckBox1.Value
End If
End Sub
dazugesetzt. Leider gelingt es mir bei diesem nicht, wenn die InputBox kommt, das ganze Abzubrechen.
Private Sub CheckBox1_Click()
Dim Passwort As String
Passwort = InputBox("Berechtigt ?", "Passwort-Abfrage", "Passworteingabe")
If Passwort "test" Then Exit Sub
Static blnAus As Boolean, rngAus As Range
ActiveSheet.Unprotect Password:="test"
Dim i As Integer
Application.ScreenUpdating = False
For i = 2 To 150
If LCase(Cells(i, 1)) = "leer" And CheckBox1 = True Then
Rows(i).Hidden = True
ElseIf LCase(Cells(i, 1)) = "leer" And CheckBox1 = False Then
Rows(i).Hidden = False
End If
Next i
ActiveSheet.Protect Password:="test"
End Sub