Jetzt möchte ich aber das VBA welches für das Ausblenden der Zeile zuständig ist dahingehend abändern, dass man nur dann ausblenden kann wenn keine Werte eingetragen sind. Sprich, habe ich eine Bestimmung gemacht und der Wert erscheint in Zelle K4, dann soll man nicht mehr die Zeile ausblenden können.
Was man als leer betrachtet ist relativ - im einfachsten Fall ist das eine Zeichenkette mit der Zeichenlänge Null (0).
Sub AusblendenTest()
If ActiveSheet.Range("K4").Value <> "" Then
Call MsgBox("Ih moag net!")
Exit Sub
End If
ActiveSheet.Rows("4:4").EntireRow.Hidden = True
ActiveSheet.Range("A4").FormulaR1C1 = ""
ActiveSheet.Shapes.Range("Test").Visible = False
ActiveSheet.Shapes.Range("TF Test").Visible = True
End Sub
|