Fehler With ohne end with
18.10.2018 14:24:36
Andre
ich hätte gerne einen toggle button mit dem ich sobald in einer bestimmten Spalte ein "x" enthalten ist die entsprechende Zeile ausblenden.
das hat soweit auch funktioniert allerdings nur für explizite Zeile..
jetzt habe ich versucht alle weiteren mit einer variablen i zu berücksichtigen.
Nun kommt der Fehler With ohne End with.
Scheinbar ist es ja so, dass dann eine Schleife nicht richtig beendet wurde oder so.
Wenn ihr mal einen Blick drauf werfen könntet, wäre das super nett :)
Private Sub ToggleButton1_Click()
ActiveCell.Activate
With ToggleButton1
.Caption = "Zeilen sind " & IIf(.Value = True, "eingeblendet", "ausgeblendet")
.BackColor = IIf(.Value = True, &HFF&, &HFF00&)
Dim i As Integer
For i = 11 To 55
If .Value = True Then
Cells(i).EntireRow.Hidden = False
Else
If Cells(i, 9).Value = "x" Then
Cells(i).EntireRow.Hidden = True
End If
End If
End With
End Sub