2 Codes auf einem Blatt
08.11.2021 21:23:52
Icefish232
ich habe in einem Tabellenblatt über einen Button veranlasst, dass bestimmte Zeilen ausgeblendet werden, wenn die Spalte B nicht gefüllt ist, was auch funktioniert (code 1). Nun habe ich einen zweiten Button, der die Zeilenhöhe anpassen soll (was auch funktioniert - Code 2). Wenn man nun allerdings den 2. Button nach dem ersten drückt werden alle vorher ausgeblendeten Zeilen wieder eingeblendet, da alle Zellen deren Zeilenhöhe im Code 2 geprüft werden sollen (D) befüllt sind.
FRAGE: Wie kann ich veranlassen, dass die schon ausgeblendeten Zeilen über die Anpassung der Zeilenhöhe nicht wieder eingeblendet werden, sondern ausgeblendet bleiben?
Code 1:
Sub SchülerAusblendenLEB()
Dim xRg As Range
For Each xRg In Range("B4:B33")
ActiveSheet.Unprotect "Schiller"
If xRg.Value = "" Then
xRg.EntireRow.Hidden = True
Else
xRg.EntireRow.Hidden = False
End If
Next xRg
ActiveSheet.Protect "Schiller"
End Sub
Code 2:
Sub ZeilenhöheLEB()
ActiveSheet.Unprotect "Schiller"
ActiveSheet.Range("D2:D33").Rows.AutoFit
ActiveSheet.Protect "Schiller"
End Sub
Herzlichen Dank für die HIlfe.