Ausblenden von Zeilen
04.02.2019 15:49:01
Zeilen
vielleicht kann mir jemand helfen, was echt super wäre.
Ich habe eine Tabelle, in der unbenutzte Zeilen abhängig von der Zeile und Spalte 2, sofern _ diese leer ist, verkleinert (bzw. ausgeblendet) werden. Hierzu benutzt das Programm folgenden Code.
Sub ausblenden()
Dim wks As Worksheet
Dim i As Integer
Dim Zelle As Range
Application.ScreenUpdating = False
Application.Calculation = False
Set wks = Tabelle3
With wks
For i = 15 To 60 Step 9
For Each Zelle In .Cells(i, 2).Resize(8)
Zelle.EntireRow.RowHeight = 0.5 - 14.5 * (Zelle > 0)
Next Zelle
Next i
Set Zelle = Nothing
End With
Set wks = Nothing
Application.ScreenUpdating = True
Application.Calculation = True
End Sub
Kann man zusäötzlich noch Spalte 3 prüfen? Ich möchte, dass er, wenn in 2 etwas steht noch prüft, ob spalte 3 ein "Off" hat. Wenn dort was anderes steht, soll er die Zeile nicht ausblenden.
Im Ergebnis soll er prüfen: Wenn in Spalte 2 nichts, dann verkleinern. Wenn in Spalte 2 etwas steht, dann prüfe noch zusätzlich, ob Spalte 3 "Off" steht. Wenn ja, Spalte verkleinern, wenn Spalte einblenden
Vielen Dank vorab an alle, die helfen können.
Danke Peter.