AW: Variable Zeilen einfügen
22.12.2008 14:21:00
Johanna
Und jetzt brauche ich noch einen kleinen Handgriff hierzu:
Ich möchte jetzt sagen, dass er im dem Sheet "Amort" unabhängig von dem was in F steht eine Zeile einblenden soll, abhängig von dem was im Sheet "Input" passiert. D.h. wenn in Input eine Zeile eingeblendet wird, soll dies auch in Amort passieren?!
Private Sub CommandButton1_Click()
Dim sh As Worksheet
Dim sh1 As Worksheet
Dim Zelle As Range
For Each sh In Sheets(Array("P&L", "PIC1", "Amort", "PIC2", "PIC3"))
sh.Unprotect Password:="Controlling"
Next sh
For Each sh1 In Sheets(Array("Input", "P&L", "PIC1", "Amort", "PIC2", "PIC3"))
For Each Zelle In sh1.Range("F23:F121")
Zelle.Offset(1, 0).EntireRow.Hidden = (Zelle.Value = "0")
Next Zelle
Next sh1
For Each sh In Sheets(Array("P&L", "PIC1", "Amort", "PIC2", "PIC3"))
sh.Protect Password:="Controlling"
Next sh
End Sub