Hallo!
Ich habe ein VBA welches genau das macht was ich möchte, allerdings muss ich nun eine Anpassung vornehmen.
Ich habe Register, auf dem ersten "Übersicht" werden die Werte vom zweiten "Test" übertragen.
Drücke ich auf ein durchgestrichenes Auge, wird die Zeile ausgeblendet und auch auf dem Register "Test" sind keine Zellen mehr hervorgehoben in die Werte eingetragen werden können. Klickt man dann auf den Button "Test", der mit dem Ausblenden der Zeile eingeblendet wird, erscheint die Zeile wieder und auf dem Register "Test" sind die Zellen die gefüllt werden müssen, grau.
Dies funktioniert auf auch alles richtig gut. In der Praxis geht dies über 40 Zeilen!
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.
Die VBA die ich bisher dafür habe sieht so aus:
Sub EinblendenTest()
Rows("4:4").Select
Selection.EntireRow.Hidden = flase
Range("A4").Select
ActiveCell.FormulaR1C1 = "x"
ActiveSheet.Shapes.Range(Array("Test")).Visible = True
ActiveSheet.Shapes.Range(Array("TF Test")).Visible = False
End Sub
Sub AusblendenTest()
Rows("4:4").Select
Selection.EntireRow.Hidden = True
Range("A4").Select
ActiveCell.FormulaR1C1 = ""
ActiveSheet.Shapes.Range(Array("Test")).Visible = False
ActiveSheet.Shapes.Range(Array("TF Test")).Visible = True
End Sub
Hier muss jetzt irgendwie verwurstet werden, dass man nur Ausblenden kann wenn K4 leer ist!
Ich hoffe hier kann mir jemand weiterhelfen.
Viele Grüße
Jens
|